On Sep 22, 10:16 am, [EMAIL PROTECTED] (Stephen Reese) wrote: > John, > > I made many of the changes but what is the addition of the 'next' statement > for? I tried to add the additional code but the script dies mentioning that > it is not terminated correctly. If I comment out the next statement the > script runs fine. > > #!/usr/bin/perl > # > use warnings; > use strict; > [snip] > > #next unless /IPACCESSLOGP: list $acl denied ([tcpud]+) > ([0-9.]+)\([0-9]+\)\s*->\s*([0-9.]+)\(([0-9]+)\), ([0-9]+) \; > next unless /IPACCESSLOGP: list $acl denied ([tcpud]+) ([0-9.]+)\ ([0-9]+\)\s*->\s*([0-9.]+)\(([0-9]+)\), ([0-9]+) /;
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
