Larry Wall


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

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


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

Comment on Larry Wall Select or Download Code

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}' [download]	[reply] [d/l]
Re: Larry Wall by zentara (Cardinal) 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	[reply]
Re^2: Larry Wall by choroba (Cardinal) on Jun 18, 2018 at 15:51 UTC
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` [download] 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, [download]	[reply] [d/l] [select]
Re^2: Larry Wall by usemodperl (Beadle) on Jun 18, 2018 at 16:43 UTC
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...	[reply]
Re^3: Larry Wall by zentara (Cardinal) on Jun 18, 2018 at 19:20 UTC
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	[reply]