Re: OT: a problem about text manipulation

On Tue, 31 Oct 2006, Benjamin Franz wrote:

On Tue, 31 Oct 2006, Joe Klemmer wrote:

On Tue, 2006-10-31 at 03:05 -0800, Benjamin Franz wrote:

Assuming that what you *MEANT* for your output example was
[...]]
the following Perl script should do it.

If I ever happen to get motivated I might try and do an awk script for
this. It's likely to be much simpler/smaller than the perl version
(though not necessarily any better, OC).


#!/usr/bin/perl -na

foreach my $i (@F) { ($i =~ m/^[0-9]+$/) ? $a = $i : print "$a $i\n" }

:)))

Darn it, now you have me playing Perl Golf (last one, promise):

#!/usr/bin/perl -na

foreach (@F) { m/^[0-9]+$/ ? $a = $_ : print "$a $_\n" }

--
Benjamin Franz

--
fedora-list mailing list
fedora-list@xxxxxxxxxx
To unsubscribe: https://www.redhat.com/mailman/listinfo/fedora-list