Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Natural Language Principles in Perl

by Anonymous Monk
on Jun 17, 2018 at 06:34 UTC ( #1216807=obfuscated: print w/replies, xml ) Need Help??

#!/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.

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.'
    (because being anonymous was just too annoying :-)

    STOP REINVENTING WHEELS, START BUILDING SPACE ROCKETS!CPAN 🐫
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.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2020-12-01 03:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?