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