develooper Front page | perl.golf | Postings from August 2002

Re: Son of (-ugene's Cantor

Thread Previous | Thread Next
From:
Keith C. Ivey
Date:
August 17, 2002 09:48
Subject:
Re: Son of (-ugene's Cantor
Message ID:
3D5E46D3.15801.3C5DB955@localhost
Eugene van der Pijll <pijll@gmx.net> wrote:

> $_=$"x~-(1|1<<pop)."/\\
> ";print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\

Still wasting a stroke with the double quotes (which force you 
to escape the backslash):

 $_=$"x~-(1|1<<pop).'/\
 ';print,s/(?<=\\)../$&^v15.'|'/eg,s^$^/\\^while+s\^ \\

Of course, now the backslashes at the end aren't as pleasing.


-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
Thread Previous | Thread Next

nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About