Here's another way, which I suppose is simply an alternative to the system call:
Notice how you just print the *value* from the captured backtick in the following
line:

perl -e '$c=`clear`; print "Testing ...\n"; sleep 1 ; print $c;'

Matt



--- Hewlett Pickens <[EMAIL PROTECTED]> wrote:
> Invoking a Perl script from a TN3270 terminal (Linux/390)
> 
> Want to issue the shell "clear" command to clear the screen.
> 
> Using Bash shell 1.14.7(1)
> 
> "clear" works ok from the command line.
> 
> Does not clear the screen when issued from the script.  Displays    1
> instead
> 
> Have tried these "syntaxes" (if that's a word)
>   
>   my $x = `clear`;
>   my $x = qx(clear);
>   `clear`;
> 
> Thanks,
> 
> Hewlett Pickens
> 
> -- 
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> 


__________________________________________________
Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games
http://sports.yahoo.com

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to