RE: 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
[download]

--ZZamboni

Comment on RE: Perl/Tk Chatterbox Client Download Code

Replies are listed 'Best First'.
RE: RE: Perl/Tk Chatterbox Client by tye (Sage) on Jul 25, 2000 at 20:32 UTC
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` [download] 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.	[reply] [d/l] [select]
Re: RE: Perl/Tk Chatterbox Client by Chady (Priest) on Jan 22, 2001 at 01:42 UTC
isn't it easier to click on the "d/l code" to download the code???? Chady \| http://chady.net/	[reply]
Re: Re: RE: Perl/Tk Chatterbox Client by ZZamboni (Curate) on Jan 22, 2001 at 02:03 UTC
Those comments were written waaaaaay before the "d/l code" feature existed... :-) --ZZamboni, aka Duke Dong	[reply]


Syntactic Confectionery Delight
	PerlMonks