If all you want is the last column, this is a really long way to go about it.
while (<V4>) { print (split)[7]; print "\n"; }
I think that won't work due to some rows formatted like so:
2005/01/20 15:39 17 2% -il-o-b- - - - - sg F01000
unless that was typo?
In that case "7" isn't always the index of the last item in the list from split.
while (<V4>) {
my @tmp = split;
print "$tmp[ $#tmp ]\n";
}This should be enough to get you started. On the whole, though, I'd seriously recommend that you pick up a copy of a good intro perl book (_Learning Perl_ springs to mind), and read the FAQ for this group on how to identify (bad) examples of Perl 4 code, which it seems you've been looking at.
I second that!
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
