Natural Language Principles in Perl

#!/usr/bin/perl   -lw    #!/Once/upon/a/time
$_=qq~http://wall.org/\~larry/natural.html~;
require(HTTP::Tiny);$_=HTTP::Tiny->new->get(
$_);$_=$_->{content};$a=0;for(/<H3/g){push@_
,++$a}use List::Util qw/shuffle/;@_=shuffle(
@_);$a=pop@_;@_=split/<H3>/;($_=$_[$a])=~s/<
[^>]+>//xgx;system('clear');$_=~s/^([^\n]+)/
\033\[1m$1\033\[0m/x;$a=$a**$a/$a**$a;print;
__END__
And they lived happily ever after.
[download]

Comment on Natural Language Principles in Perl Download Code

Replies are listed 'Best First'.
Re: Natural Language Principles in Perl (one-liner) by usemodperl (Beadle) on Jun 21, 2018 at 08:41 UTC
`perl -lw -Xe'{"#!/Once/upon/a/time"} $L=qq~http://wall.org/\~larry/natural.html~; require(HTTP::Tiny);$_=HTTP::Tiny->new->get( $L);$_=$_->{content};$a=0;for(/<H3/g){push@_ ,++$a} @_=sort{rand($a)<=>rand($b)}@_;$a=pop @_;@_=split/<H3>/;($_=$_[$a])=~s/<[^>]+>//g; system("clear");$_=~s/^([^\n]+)/\0\033\[1m$1 \033\[0m/x;print;;print$L;$A=$R$R$Y;WALL #__END__ And they lived happily ever after.'` [download] (because being anonymous was just too annoying :-) _{STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!—CPAN} 🐫	[reply] [d/l]
Re: Natural Language Principles in Perl by Anonymous Monk on Jun 17, 2018 at 15:30 UTC
I love you guys, but this is Meditation! Think about what it does and why it does that. There's only two useless things to maintain a shape... It's not Obfuscated.	[reply]