On Wed, 2007-05-16 at 08:01 -0400, Chas Owens wrote:
>
> 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.
> }
I have checked your suggestions, but it shows the error of
Label not found for "next OUTER" at ./test.pl line 11, <FILE> line 9
Thanks,
Siva
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
