All that typing though! And I thought perl programmers were
supposed to be lazy :-) I might have done it like this: #!/usr/bin/perl -n -l
print join(' ', $i++, (split)[1,3,4,11,13]) if / physio_start /;
The only difference is that his line counter starts at zero,
and $. will start at one, which may or may not matter. And
his explicitly opening $ARGV[0] is a bit different than using
<> (albeit implicitly) here. And
using explicit variables (as he does) documents what they are a bit
better than using an anonymous array (like I have here), but if that's a
concern, I might cut n paste a short description of all the fields (whether I use'em or not) into a comment line.
Update:Fixed a bug, he was counting
output rows, not input records, so nevermind about $. :-)
------------
ooo O\O ooo tilly was here :,(
| [reply]
[d/l]
[select] |