On Sun, Apr 13, 2008 at 2:16 PM, Chas. Owens <[EMAIL PROTECTED]> wrote:
snip
> > next if ! m{
> > .+\s+D\s+
> > udp\s+
> > \d+\.\d+\.\d+\.\d+\s+
> > \d+\.\d+\.\d+\.\d+\s+
> > \d+\s+\d+\s+
> > .+
> > }xms;
> > push @bad, join('_', ( split( /\s+/, $_))[10,12,11,13,9,8]);
> snip
snip
Oh, and \d does not mean [0-9] unless you are using the bytes pragma
(it matches any UNICODE character that is defined as a digit).
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
