in reply to Need a better way to count input lines
I'd probably do it this way.
#! perl -slw use strict; until( eof( DATA ) ) { no warnings 'uninitialized'; printf '%-7.7s %-7.7s ', <DATA> =~ m[ ([^,]+) , \s* (.+) $]x; printf '%7.7s %7.7s %7.7s ', <DATA> =~ m[ ([^/]+) / (?:(\S+)\s+)? +(\S+) $]x; printf "%s\n", <DATA> =~ m[^(\S+)]; } __DATA__ Alanon, Bart 5590/EL ---- O'Lewis, John. ----/--- -- john Le Much,Bo Jo 3406/165 NS ed@a.nl Abe-Jen, Mar-Jo 3421/164D NS cbest
Output
P:\test>351465 Alanon Bart 5590 EL ---- O'Lewis John. ---- --- -- john Le Much Bo Jo 3406 165 NS ed@a.nl Abe-Jen Mar-Jo 3421 164D NS cbest
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham"Think for yourself!" - Abigail
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Re: Need a better way to count input lines
by Theo (Priest) on May 07, 2004 at 19:53 UTC | |
by BrowserUk (Patriarch) on May 07, 2004 at 20:57 UTC | |
by Theo (Priest) on May 07, 2004 at 22:19 UTC | |
by BrowserUk (Patriarch) on May 07, 2004 at 22:22 UTC | |
by Theo (Priest) on May 07, 2004 at 22:36 UTC | |
|
In Section
Seekers of Perl Wisdom