On Tue, 2006-10-31 at 07:03 -0800, Benjamin Franz wrote:
> #!/usr/bin/perl -na
>
> foreach my $i (@F) { ($i =~ m/^[0-9]+$/) ? $a = $i : print "$a $i\n" }
>
> :)))
Heh, looks good to me. ;-)
--
Boring Home Page - http://www.webtrek.com/joe
See my blog, sumo game ranks and other interesting junk
