Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

RE: Perl/Tk Chatterbox Client

by ZZamboni (Curate)
on Jul 13, 2000 at 01:43 UTC ( #22284=note: print w/ replies, xml ) Need Help??


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


Comment on RE: Perl/Tk Chatterbox Client
Download Code
RE: RE: Perl/Tk Chatterbox Client
by tye (Cardinal) 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

    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.

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/
      Those comments were written waaaaaay before the "d/l code" feature existed... :-)

      --ZZamboni, aka Duke Dong

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://22284]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2015-07-04 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls