Hmm... this used to work in old dos:
cls > clear.txt
type clear.txt
This would clear the screen. Now you just get an ascii representation of the clear
code.
Does this mean than that you cannot clear the screen in Win32 just by printing an
ascii sequence?
Or perhaps we need
device=c:
Hey Michael,
Monday, July 02, 2001, 4:32:10 PM, my MUA believes you used
(X-Mailer not set) to write:
>> 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.
MF> Given the code sho
On Mon, Jul 02, 2001 at 12:24:15PM -0700, Wagner-David wrote:
> 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.
Given the code shown, you have to print $clear for the screen to ac
On Mon, 2 Jul 2001, Craig S Monroe wrote:
> 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') {
> $cl
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'
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
N
