Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: the star still shines

by shmem (Chancellor)
on Dec 08, 2019 at 14:23 UTC ( [id://11109840]=note: print w/replies, xml ) Need Help??


in reply to Re: the star still shines
in thread the star still shines

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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11109840]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2024-04-20 11:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found