Re: OT: a problem about text manipulation

[Benjamin Franz <snowhare nihongo org>]

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