I wonder if it is possibl to merge these two perl one liners inside one perl
one liners, by putting the pipe statement inside?
speach () { cat $1 | perl -n00e'tr/\t\r\n/ /s; print qq($1\n) while
s/^(.{0,36}\S)\s+//;print qq(\n)' | perl -pe 'if ($.%4==2) {$_ .= qq(\n).(q(-)
x 37).qq(\n)} elsif ($.%4==0) {$_ .= qq(\n).(q(=) x 37).qq(\n)} else {$_ .=
qq(\n)}' ;}
--
- = -
Vasos Panagiotopoulos, Columbia'81+, Reagan, Mozart, Pindus, BioStrategist
http://ourworld.compuserve.com/homepages/vjp2/vasos.htm
---{Nothing herein constitutes advice. Everything fully disclaimed.}---
[Homeland Security means private firearms not lazy obstructive guards]
[Urb sprawl confounds terror] [Remorse begets zeal] [Windows is for Bimbos]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
