in reply to Re^4: Impress your children with Perl
in thread Impress your children with Perl

Probably influenced by other comments in the thread I interpreted "And even that isn't save [sic]" in your comment above to mean the direct URL in some fashion wasn't "safe" in the sense that it could point to nefarious code. I presume now your intended meaning is that even the direct URL you gave might not be a reliable ("safe") way of accessing the code.

Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

Replies are listed 'Best First'.
Re^6: Impress your children with Perl
by LanX (Saint) on May 22, 2024 at 00:56 UTC
    I meant to say that we can't reliably check all (subtle) edits to a post.

    Even if the authors are reliable, their accounts could be hacked, especially after them being inactive for a decade.

    That's why such links should better point to immutable posts, like from anonymous monks.

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    see Wikisyntax for the Monastery

      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. :-)

        > 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

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        see Wikisyntax for the Monastery