RE: Perl/Tk Chatterbox Client

[ZZamboni]

in reply to Perl/Tk Chatterbox Client

If you cut-and-paste from this page, you can use the following to remove the continuation "+" signs and reconstruct the file correctly:

perl -ne 'chomp; if (/^\+(.*)$/) { $last.=$1 } \
  else { print "$last\n"; $last=$_ } \
  END { print "$last\n" }' origfile.pl > destfile.pl

--ZZamboni

[tye]

This is easier to type:

perl -pe 'chomp;s/^\+//||s/^/\n/;END{print"\n"}' # Unix
perl -pe "chomp;s/^\+//||s/^/\n/;END{print qq.\n.}" # Win32

And you can drop the END{...} part if you just append an extra blank line to the input or don't mind the missing final newline on the output.

[Chady]

isn't it easier to click on the "d/l code" to download the code????

---

Chady | http://chady.net/

[ZZamboni]

Those comments were written waaaaaay before the "d/l code" feature existed... :-)

--ZZamboni, aka Duke Dong