$USER = "user"; $HOST="hostname"; $CMD="/usr/sbin/ping"; #open(PING,"/usr/sbin/ping -s ".$nodeName." 64 10 |"); open(PING,"ssh ".$USER."@".$HOST." /bin/ping -s ".$nodeName." 64 10 +|"); $old_fh = select(STDOUT); $| = 1; select($old_fh); print "<PRE>"; while(<PING>) { print; } print "</PRE>";
In reply to Re^2: Shell to Perl conversion
by rockmountain
in thread Shell to Perl conversion
by rockmountain
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |