:-))) - tak teda nevim, ale po tom, co jsem si precetl
#!/usr/bin/perl while(){ if(/(\\d+\\.\\d+\\.\\d+.\\d+)/){ push(@ips,$1); } } my(@ip); foreach $i (@ips){ $no = 1; foreach $k (@ip){ if ($i==$k){ $no = 0; last; } } if ($no){ push(@ip,$i); # print $i; } } print \"\"; foreach $h (@ip){ print \" \". $h .\" -> \"; $full = `host $h`; ($hn) = $full =~ /pointer\\s(.+)\\./; print $hn.\"
\\n\"; } print \" \";
usuzuju, ze Perl by mohl byt mym oblibenym jazykem ;-))
#!/usr/bin/perl while(){ if(/(\\d+\\.\\d+\\.\\d+.\\d+)/){ push(@ips,$1); } } my(@ip); foreach $i (@ips){ $no = 1; foreach $k (@ip){ if ($i==$k){ $no = 0; last; } } if ($no){ push(@ip,$i); # print $i; } } print \"\"; foreach $h (@ip){ print \" \". $h .\" -> \"; $full = `host $h`; ($hn) = $full =~ /pointer\\s(.+)\\./; print $hn.\"
\\n\"; } print \" \";
usuzuju, ze Perl by mohl byt mym oblibenym jazykem ;-))