Hi Beau,
It wouldn't work on DOS either. This does:
#!/usr/bin/perl
use strict;
use warnings;
system("cls");
Joseph
"Beau E. Cox" wrote:
> Well ...
>
> Nothing in Programming Perl
> Perl Cookbook pointed me to CPAN, and I found
> Term::Cap and Term::Screen
>
> This works on Linux:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> require Term::Screen;
> my $scr = new Term::Screen;
> unless ($scr) { die " Something's wrong \n"; }
> $scr->clrscr();
>
> It does NOT work on Windows 2000!
> So, I really don't know how to help you...
>
> Aloha => Beau.
>
> -----Original Message-----
> From: Jensen Kenneth B SrA AFPC/DPDMPQ
> [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 02, 2003 4:38 AM
> To: [EMAIL PROTECTED]
> Subject: RE: Clear command in perl?
>
> Mostly for portability. Also just like to stray away from using system
> commands when at all possible.
>
> -----Original Message-----
> From: Beau E. Cox [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 02, 2003 8:35 AM
> To: Jensen Kenneth B SrA AFPC/DPDMPQ; [EMAIL PROTECTED]
> Subject: RE: Clear command in perl?
>
> Hi -
>
> Yes: system ("clear");
>
> :)
>
> I don't really know, but what is wrong with
> the 'system' approach? The overhead should
> be minimal since 'clear' is embedded in the
> shell. Are you worried about portability?
>
> system ($^O =~ /win32/i ? 'cls' : 'clear');
> (tested OK Win 2000 and Linux)
>
> Aloha => Beau.
>
> -----Original Message-----
> From: Jensen Kenneth B SrA AFPC/DPDMPQ
> [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, January 02, 2003 4:26 AM
> To: '[EMAIL PROTECTED]'
> Subject: Clear command in perl?
>
> Is there a perl command equivalent to:
> system ("clear");
> ?
>
> Thanks,
> Ken
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
