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
On Sun, 11 Feb 2007 00:38:02 +, vjp2 wrote:
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