John W. Krahn <[EMAIL PROTECTED]> wrote:
> Steve Grazzini wrote:
>>
>> #!/usr/bin/perl -pi~ -0777
>> # [untested:]
>>
>> s{ /s*? /n (\s*) }
> ^^ ^^
> s{ \s*? \n (\s*) }
>
>
>> { $1 =~ tr/\n // ? "\n" : " " }xeg
^
You missed one ;)
(drat!)
--
Steve
perldoc -qa.j | perl -lpe '($_)=m("(.*)")'
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
