You are correct. I believe that the backticks work on the shell, so
I replace `cls` with system("cls") and at least my screen cleared as it was
suppose to.
Wags ;)
-----Original Message-----
From: Craig S Monroe [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 02, 2001 12:13
To: Beginners@Perl (E-mail)
Subject: Agnostic clear command...
Someone posted this to the list a couple of weeks back.
It does not appear to be working....
I cannot seem to find the reference to $^0
my $clear;
if ($^O =~ /mswin/i || $^O =~ /dos/i) {
$clear = `cls`;
}
elsif ($^O eq 'linux') {
$clear = `clear`;
}
Thanks...
Craig
[EMAIL PROTECTED]
Pager
Numeric: 1-877-895-3558
Email pager: [EMAIL PROTECTED]
--------------------------------------------------------------
You will never find time for anything.
If you want time, you must make it.
Charles Buxton
