On 5/17/07, sivasakthi <[EMAIL PROTECTED]> wrote:
snip
> 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
Did you type
OUTER:
while(<FILE>) {
or just
while (<FILE>) {
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
