RE: [Perl-unix-users] getting putput of ping command into file

[Scott Purcell]

You can take the output from the command and put it into an array like so.

This seemed to work, I am usign cygwin, and I couldn't find your -c switch. But maybe 
this could help...

#! perl

use strict;


my $cmd = "ping -n 3 127.0.0.1";


print "Begin", "\n";

open (PING, "$cmd |") or die("Problem somewhere. $!");
my @pings = <PING>;
close PING;

foreach (@pings) {
    print;
}


Scott Purcell



-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 15, 2003 4:02 PM
To: Perl-Unix-Users
Subject: [Perl-unix-users] getting putput of ping command into file


Hi gurus,
    I am trying to get the output of ping into a filehandle. My problem
is that this program works on one Linux box and throws up an error on
another.
    Pls tell me where am I goofing up.


<code> ## I get an error in this part
open(PING,"-|","ping -c 30 192.168.1.1") || die "Cannot ping to
192.168.1.1 : ", $!,"\n";


while($line = <PING>)
{
    print $line if($DEBUG == 1);

    chomp $line;

    ## lots of further processing...

} ## end of while

</code>

I tried to run it on 2 Linux boxes with one working fine. foll is the
"uname -a" output of this one:
        Linux m3 2.4.6 #7 Tue Jul 3 14:32:36 IST 2001 i686 unknown


Then I took the "uname -a" output of the erroneous one :
        Linux shiva 2.4.13 #2 Fri Nov 2 07:09:41 IST 2001 i686 unknown


Can anyone pint out the mistake to me.

Regards,
Parvez

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs