OT: a problem about text manipulation
Benjamin Franz
snowhare at nihongo.org
Tue Oct 31 15:03:42 UTC 2006
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" }
:)))
--
Benjamin Franz
Perl - A post-modern programming language or a
scripting tool gone horribly, horribly wrong?
-- Rob Malda
More information about the users
mailing list