Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Larry Wall

by usemodperl (Beadle)
on Jun 18, 2018 at 02:19 UTC ( #1216832=obfuscated: print w/replies, xml ) Need Help??

perl -e '$_=`perl -v`;while(/\d\,(\s\x4c[^\n]+)/){print$1}'

Edit: It prints a lot! If that annoys you try the static version:

perl -le '$_=`perl -v`;if(/\d\,\s(\x4c[^\n]+)/){print$1}'

Replies are listed 'Best First'.
Re: Larry Wall
by usemodperl (Beadle) on Jun 18, 2018 at 02:36 UTC
    perl -e '$_=`perl -v`;while(/\d\,(\s\x4c[^\n]+)/){print"\r".$1;print"\ +r"," "x10;print"\r".reverse$1}'
Re: Larry Wall
by zentara (Archbishop) on Jun 18, 2018 at 12:28 UTC
    Hi, nice way to lock up a terminal. :-) Anyone care to explain how it works?

    I'm not really a human, but I play one on earth. ..... an animated JAPH
      perl -v says something like
      This is perl 5, version 18, subversion 2 (v5.18.2) built for x86_64-li +nux-thread-multi Copyright 1987-2013, Larry Wall

      The match occurs at Larry's name (the only capital L* after a space after a comma after a digit).

      $_ doesn't change in the loop and there's no /g modifier, so the loop is endless.

      * Update: The capital L has been updated to \x4c.

      ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
      Hi, nice way to lock up a terminal. :-)

      Sorry about that, it didn't lock here. My only intention was to build a Wall. Maybe why it got a downvote...

        Hi, I think it happened because my processor is fairly fast, and "the wall" just didn't respond to Control-C, it just kept flying by. :-)

        I'm not really a human, but I play one on earth. ..... an animated JAPH

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2018-09-22 00:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Eventually, "covfefe" will come to mean:













    Results (190 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!