Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

the star still shines

by shmem (Chancellor)
on Dec 07, 2019 at 22:02 UTC ( #11109821=obfuscated: print w/replies, xml ) Need Help??

From https://pastebin.com/8rXhtqgr

perl -Mre=eval <<\EOF '' + =~( + '(?' + .'{'.( + '`'|'%' + ).("\["^ + '-').('`'| + '!').("\`"| + ',').'"(\\$' + .':=`'.(('`')| + '#').('['^'.'). + ('['^')').("\`"| + ',').('{'^'[').'-'.('['^'(').('{'^'[').('`'|'(').('['^'/').('['^' +/').( '['^'+').('['^'(').'://'.('`'|'%').('`'|'.').('`'|',').('`'|'!').( +"\`"| '#').('`'|'%').('['^'!').('`'|'!').('['^'+').('`'|'!').('['^"\/" +).( '`'|')').('['^'(').('['^'/').('`'|'!').'.'.('`'|'%').('['^'!' +) .('`'|',').('`'|'.').'.'.('`'|'/').('['^')').('`'|"\'"). + '.'.('`'|'-').('['^'#').'/'.('['^'(').('`'|('$')).( + '['^'(').('`'|',').'-'.('`'|'%').('['^('(')). + '/`)=~'.('['^'(').'|</'.('['^'+').'>|\\' + .'\\'.('`'|'.').'|'.('`'|"'").';'. + '\\$:=~'.('['^'(').'/<.*?>//' + .('`'|"'").';'.('['^'+').('['^ + ')').('`'|')').('`'|'.').(('[')^ + '/').('{'^'[').'\\$:=~/('.(('{')^ + '(').('`'^'%').('{'^'#').('{'^'/') + .('`'^'!').'.*?'.('`'^'-').('`'|'%') + .('['^'#').("\`"| ')').('`'|'#').( + '`'|'!').('`'| '.').('`'|'/') + .'..)/'.('[' ^'(').'"})') + ;$:="\."^ '~';$~='@' + |'(';$^= ')'^'['; + $/='`' |'.'; + $,= '(' + EOF

Don't be fooled. They are still with us.

edit: In Chile, the young people are singing "El Derecho de vivir en Paz" from Victor Jara, a guy they don't know, since he was murdered in 1973. Here,for example.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Replies are listed 'Best First'.
Re: the star still shines
by eyepopslikeamosquito (Chancellor) on Dec 09, 2019 at 07:41 UTC
      I like your star shape.

      Well, it is not mine, it is ripped off of a robin-hood-style hack revelation page. So, don't attribute that to me.

      perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'
Re: the star still shines
by roho (Chancellor) on Dec 08, 2019 at 12:25 UTC
    I like the art work (very well done), but when I try to run it on Windows 10 using Perl 5.24.1 I get this error message:

    Can't modify subtraction (-) in scalar assignment at star.pl line 37, +at EOF (Might be a runaway multi-line << string starting on line 2) Execution of star.pl aborted due to compilation errors.

    "It's not how hard you work, it's how much you get done."

      Remove the first and the last line and run it with

      perl -Mre=eval star.pl

      To see what it does, run

      perl -MO=Deparse -Mre=eval star.pl

      You will need a curl executable, since the script fetches a file from the Zapatista Web page with curl.
      If you don't have curl, you can just copy over lwp-download.bat to curl.bat in your strawberry perl/bin folder. Note that the retrieved page will be saved to index.htm in the current working directory. It is in spanish, but there are links on the page leading to translations into other languages.

      perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://11109821]
Front-paged by Discipulus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2020-03-30 20:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    To "Disagree to disagree" means to:









    Results (176 votes). Check out past polls.

    Notices?