Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Perl is Magic

by usemodperl (Beadle)
on Jun 30, 2018 at 00:27 UTC ( #1217635=poem: print w/replies, xml ) Need Help??

Looking for ways to get perl to make Magic? Any odd way to print that word: like a JAPH! This shell one liner runs 3 perl one liners that run perl 4 times to make Magic:
perl -e'$_="Larry";while(++$_){print"\rPerl is $_";goto(MAGIC)if/Magic +/}MAGIC:print"\n"';perl -v|perl -pe's\Perl\Magic\magic';perl -e'print +"[Perl$^V] ";<STDIN>'


STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!CPAN 🐪

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://1217635]
Approved by haukex
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2018-11-19 11:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My code is most likely broken because:
















    Results (210 votes). Check out past polls.

    Notices?