Re^7: Impress your children with Perl

For safety, I disabled Len's login and mangled his pw recovery email. He hasn't been here in years, and is probably unlikely to return, but if he does, we can easily reenable his login, and advise him not to mess with spiraling quine. :-)

Comment on Re^7: Impress your children with Perl

Replies are listed 'Best First'.
Re^8: Impress your children with Perl by LanX (Saint) on May 24, 2024 at 14:07 UTC
> I disabled Len's login and mangled his pw recovery email. Sounds complicated, I would just have reposted it as AnoMonk to make it immutable and change the URL. `perl -MHTTP::Tiny -e 'eval HTTP::Tiny->new->get(shift)->{content}' https://perlmonks.org/?abspart=1;displaytype=displaycode;node_id=11159651;part=2` If there was a market for such a feature I'd invest into our own internal URL shortening "service". #!/usr/bin/perl $_=' $q ="\ 47"; wh ile ($ ;= $z += .5 ){ %c= $r=0;$/ ="";whi le(2 0+ $z>($;+=.05)){$c{int$ _+ 2 6+ 2($ r+= .0 2) s in$ ;}{1 -$_ +1 0+ int $r*c o s $ ;} =1for(0. .1) }$ t =r ever se;$ /. =` c le ar `. " #! / usr /bi n/ pe rl \n\ $_ =$q \n" ; fo r$y (1..20){$c{$_} { $ y }? $ /.=chop$t : ($/ . =" \4 0") for(0. .53) ; $/. ="\n"}pri nt"$/$ q; s; ". chr(9 2)."s;;g;eval\n "} ';s;\s;;g;eval [download] Cheers Rolf _{(addicted to the Perl Programming Language :) see Wikisyntax for the Monastery}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^8: Impress your children with Perl
by LanX (Saint) on May 24, 2024 at 14:07 UTC

> I disabled Len's login and mangled his pw recovery email.

Sounds complicated, I would just have reposted it as AnoMonk to make it immutable and change the URL.

perl -MHTTP::Tiny -e 'eval HTTP::Tiny->new->get(shift)->{content}' https://perlmonks.org/?abspart=1;displaytype=displaycode;node_id=11159651;part=2

If there was a market for such a feature I'd invest into our own internal URL shortening "service".

#!/usr/bin/perl $_=' $q ="\ 47"; wh ile ($ ;= $z += .5 ){ %c= $r=0;$/ ="";whi le(2 0+ $z>($;+=.05)){$c{int$ _+ 2 6+ 2*($ r+= .0 2) * s in$ ;}{1 -$_ +1 0+ int $r*c o s $ ;} =1for(0. .1) }$ t =r ever se;$ /. =` c le ar `. " #! / usr /bi n/ pe rl \n\ $_ =$q \n" ; fo r$y (1..20){$c{$_} { $ y }? $ /.=chop$t : ($/ . =" \4 0") for(0. .53) ; $/. ="\n"}pri nt"$/$ q; s; ". chr(9 2)."s;;g;eval\n "} ';s;\s;;g;eval
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

see Wikisyntax for the Monastery}

[reply]
[d/l]
[select]