Chas. Owens wrote:
On Sun, Apr 13, 2008 at 2:32 PM, Richard Lee <[EMAIL PROTECTED]> wrote:
snip
But I am not 100% sure what you are saying on " Why are you making sure the
data is right and then pulling the data you want out? " ?
I need to move onto next data if it doesn't conform to 2nd regex and then I
am extracting only certain field and join them by _ and pushing them into
array.
snip
You can use a regex to pull data out of a string at the same time you
are checking it for correctness. This is almost always faster than a
regex plus code to pull the data out. For instance, it looks like you
want something like
next unless s{
.+\s+
D\s+
udp\s+
\d+\.\d+\.\d+\.\d+\s+
\d+\.\d+\.\d+\.\d+\s+
\d+\s+
\d+\s+
(\S+)\s+
(\S+)\s+
(\S+)\s+
(\S+)\s+
(\S+)
}{
$3_$5_$4_$6_$2_$1
}xms;
push @bad, $_;
Why not just:
next unless m{
\s
D\s+
udp\s+
\d+\.\d+\.\d+\.\d+\s+
\d+\.\d+\.\d+\.\d+\s+
\d+\s+
\d+\s+
(\S+)\s+
(\S+)\s+
(\S+)\s+
(\S+)\s+
(\S+)
}x;
push @bad, "$3_$5_$4_$6_$2_$1";
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
