Re: A little text file munging golf on the list

En op 13 maart 2003 sprak Bass:
> here's another (equal length, stupid \Q :-)
> this works since perl kindly resets the //g search upon modify.
>
> #!perl -p0
> s/\G\n\Q$1/ /while/(\S+ ).*/g

I enjoyed this clever solution. It works for Perl 5.6.1 and 5.8.0
but not for Perl 5.005_03.

> and if we ever get those variable length lookbehinds in perl:
>
> #!perl -p0
> s/(?<=^\1.+)\n(\S+ )/ /gm
>
> or something thereabouts :-)

Yes, I was frustrated in the extreme because that seemed the natural
way to solve this problem. BTW, I was able to whittle 4 strokes from
my original try:

-0p s/^\S+/$:=$&if$&ne$:/gem;s/\n / /g

but this line of play is a dead horse it would seem.

/-\



http://mobile.yahoo.com.au - Yahoo! Mobile
- Check & compose your email via SMS on your Telstra or Vodafone mobile.