Hello f77coder,

I’ve always thought the regex in perlfaq5#How can I output my numbers with commas added? was pretty cool; so here it is in a one-liner:

16:56 >perl -wE "say s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\
+d))/$1,/gr for @ARGV;" 1234567 987654321098765
1,234,567
987,654,321,098,765

16:56 >
[download]

(The FAQ entry also has a commented version.)

Hope that helps,

s zzs vvxv
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s SxSlcfirstSe
and s YZZxZYvvxvYi and print
z
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s ZVZchr 122Zie
and s SxSlcfirstSe
and s YZZxZYvvxvYi and print
[download]

Dave.

You can look through the solutions in perl for the golf problems at http://golf.shinh.org/

Hi f77coder,

Many of these are not exactly one-liners, but figuring out some of these JAPH scripts (Update: also, super search, or of course) could be fun :-) This one is my relatively simple contribution:

perl -le "print map+chr 63+oct reverse,reverse+sort+0xbbddcb=~m~..~g"
[download]

There are actually lots of variations on the same principle, so naturally I wrote a generator script, these just a few examples of currently more than 2000 ;-)

perl -le "print map+chr 22+oct reverse,reverse+sort+0x21a111a=~m~..~g"
perl -le "print map+chr 23+reverse,sort+0xe8a8ea=~m~..~g"
perl -le "print map+chr -7+reverse,sort+(7*11*0xf7e9b)=~/../g"
perl -le "print map+chr 59+oct reverse,reverse+sort+(5*7*94_61*3**3*2*
+*3)=~/../g"
[download]

Regards,
-- Hauke D

Thank you.

• mines? ;=)
• Explain one liner for fibonacci and Explain Fibonacci one-liner ??
• Pascal's triangle... where you can find perl -e "while((@_=(1,map$_[$_-1]+$_[$_],1..@_))<=$ARGV[0]){print qq(@_\n)}"
• Perl White Magic and one liners and A gentle introduction about Perl command line flag and a column by Merlyn at stonehenge and which oneliners monks use
• Perl oneliners explained
• odometer oneliner

L*

Thanks for the comments, i can bang out bash one liners but perl is a different beast, especially ones with hellishily complicated maps.

If you are interested in one-liners, they even have a book on it: Perl One-Liners by Peter Krumins, No Starch Press https://www.amazon.com/Perl-One-Liners-Programs-That-Things/dp/159327520X

Why not just go to the Obfuscation page here on Perlmonks? There is plenty of insane code to try and crack there, although they are not necessarily one liners.

Check it out: Obfuscated Code

Thanks, I'll have a look but intentionally obfuscated code is an order of magnitude harder it seems, I only want to look at shortened, compact code. Obfuscation is like adding an encryption layer, I'm not ready for that yet but thanks.

Just pick the most powerful module you know and invoke it as a one-liner. Just for one (not real great) example: Maypole::HTTPD:

perl -MMaypole::HTTPD -e 'Maypole::HTTPD->new(module=>"BeerDB")->run()
+'
[download]