Hi all,

just starting my journey down Perl6, figured best way to learn it is to write 
stuff so i am do some stuff I have done in other languages. as ideas
for what to write. first a ping sweep; 

problem is:

if i:

my $results = run 'ping', '-c', '1',$line;

where $line is the IP address, $results hold the result how can i pull the 
results out? it outputs like this:

PING 4.2.2.5 (4.2.2.5): 56 data bytes
64 bytes from 4.2.2.5: icmp_seq=0 ttl=53 time=2.147 ms

--- 4.2.2.5 ping statistics ---
1 packets transmitted, 1 packets received, 0.0% packet loss
round-trip min/avg/max/stddev = 2.147/2.147/2.147/0.000 ms


Thanks in advance

-Nex6



Reply via email to