Re^2: Pimp My RegEx

That should be:

while( <DATA>) {
    if (/^\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d:\d\d\d/) {
        $count++;   
        #if (defined($fullrec)) {
        #   process($fullrec);
        #}
        $fullrec = $_;
    } else {
        $fullrec .= $_;
    }
}

#if (defined($fullrec)) {
#   process($fullrec);
#}
[download]

or look at my solution to eliminate this redundancy.

Comment on Re^2: Pimp My RegEx Download Code

Replies are listed 'Best First'.
Re^3: Pimp My RegEx by demerphq (Chancellor) on May 31, 2005 at 19:03 UTC
Indeed. Good catch. :-) --- $world=~s/war/peace/g	[reply]