On 5/16/07, sivasakthi <[EMAIL PROTECTED]> wrote:
Suppose i have checked the group of I/P addresses for deleting opting then what should i do?? Is there any inbuilt function there for that requirement??
snip
> while(<FILE>) { > my ($time,$lport,$ip,$stats,$rport) = split; > next if $ip eq '172.16.2.80'; > # using those values above to create hash,based on what form of hash > you needed. > }
Assuming that you have a list of IP addresses you want to skip in @ip, you could say #!/usr/bin/perl use strict; use warnings; OUTER: while(<FILE>) { my ($time, $lport, $ip, $stats, $rport) = split; for my $skip_ip (@ip) { next OUTER if $ip eq $skip_ip; } # using those values above to create hash #based on what form of hash you needed. } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/