[EMAIL PROTECTED] schreef:
> <?>:

>> perl -n00e'tr/\n/ /; print "$1\n" while s/^(.{0,69}\S)\s+//; print
>> "\n"'
>
> Since I'll use on both UNIX and DOS, can I put the $1 inside qq? as in
> ..print qq($1\n) while..

Yes you can. Or try it like this:

perl -wln00e'
  tr/ \t\r\n/ /s;
  print $1 while /(.{0,69}\S)\s*/g;
' datafile

-- 
Affijn, Ruud

"Gewoon is een tijger."


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to