Profile_bird

Hey there! perloneliner is using Twitter.

Twitter is a free service that lets you keep in touch with people through the exchange of quick, frequent answers to one simple question: What's happening? Join today to start receiving perloneliner's tweets.

Already using Twitter
from your phone? Click here.

perloneliner

  1. awesome japh one-liner http://perlmonks.org/index....
  2. why print, when you can goto http://perlmonks.org/index....
  3. #perl -MDevel::Caller=called_with -le 'sub hello { join " "=> (caller 0)[3], called_with(0,1)} print hello($world);'
  4. #perl -MString::CamelCase=decamelize -le 'print decamelize "IHateCamelCase"'
  5. a fibonacci #perl one-liner http://perlmonks.org/index....
  6. howto download youtube videos with a perl one-liner. http://www.catonmat.net/blo...
  7. primitive grep -C replacement #perl -e '($c,$p,@ARGV)=@ARGV;@l=<>;print$/,@l[$_-$c..$c+$_] for grep $l[$_]=~/$p/,0..$#l' 2 bash /etc/passwd
  8. #perl -0777 rockz http://bit.ly/3kahFw
  9. I just helped a colleague to escape some javascript for later use in post requests: cat invx.js| #perl -MURI::Escape -pe '$_=uri_escape($_)'
  10. #perl -e 'print "daylight saving ", (localtime)[8] ? "active" : "inactive"'
  11. phonetic grepping #perl -MText::Metaphone -ne 'print if Metaphone("beer") eq Metaphone($_)' /usr/share/dict/words
  12. lynx -dump #perl equivalent GET twitter.com | perl -MHTML::FormatText::WithLinks -0777ne 'print HTML::FormatText::WithLinks->new->parse($_)'
  13. fortune | perl -MAcme::LOLCAT -0777ne 'print translate $_'
  14. #perl 5.11 is out http://bit.ly/14QnuF finally some mess gets cleaned up perl5.11.0 -we '$[=4711'
  15. #perl -MProc::Killall -e 'killall "TERM", "xterm"'
  16. perl -MDevel::Symdump -E 'say for Devel::Symdump->new("Devel::Symdump")->functions'
  17. lots of useful #perl tools http://perldoc.perl.org/per... e.g.corelist Data::Dumper
  18. just another #perl obfu $ echo -e 'use Acme::Enc;\nprint "hello world"' > enc.pl;perl enc.pl; perl enc.pl
  19. autobox too cumbersome #perl -Mautobox::Core -MMP3::Tag -e'[glob"*.mp3"]->map(sub{[MP3::Tag->new($_)->autoinfo]})->map(sub{"@$_\n"})->say'
  20. golfed OO, use poping constructors #perl -e 'package P;sub new{bless pop}; P->new({foo=>bar})'