{"id":48,"date":"2009-01-14T22:00:00","date_gmt":"2009-01-14T22:00:00","guid":{"rendered":"https:\/\/karwin.com\/blog\/index.php\/2009\/01\/14\/best-perl-script-ever\/"},"modified":"2020-02-19T22:57:01","modified_gmt":"2020-02-19T22:57:01","slug":"best-perl-script-ever","status":"publish","type":"post","link":"https:\/\/karwin.com\/blog\/index.php\/2009\/01\/14\/best-perl-script-ever\/","title":{"rendered":"Best. Perl Script. Ever."},"content":{"rendered":"

A user recently asked<\/a>:<\/p>\n

What has been your best programming experience so far?<\/p><\/blockquote>\n

The most successful program I’ve ever written was this Perl script:<\/p>\n

map<\/span>((<\/span>$r<\/span>=<\/span>$_<\/span>,<\/span>map<\/span>((<\/span>$y<\/span>=<\/span>$r<\/span>-<\/span>$_<\/span>\/<\/span>3<\/span>,<\/span>$l<\/span>[<\/span>24<\/span>-<\/span>$r<\/span>]\n.=(<\/span>' '<\/span>,<\/span>'@'<\/span>)[<\/span>$y<\/span>**<\/span>2<\/span>-<\/span>20<\/span>*<\/span>$y<\/span>+(<\/span>$_<\/span>**<\/span>2<\/span>)\/<\/span>3<\/span><<\/span>0<\/span>]),(<\/span>0..30<\/span>)),),(<\/span>0..24<\/span>));<\/span>\n<\/span>print<\/span> join<\/span>(<\/span>\"\\n\"<\/span>,<\/span> map<\/span>(<\/span>reverse<\/span>(<\/span>$_<\/span>).<\/span>$_<\/span>,<\/span> @l<\/span>)),<\/span> \"\\n\"<\/span>;<\/span>\n<\/code><\/pre>\n
I wrote this for a woman I was dating in 2001. Writing a Perl script for my girlfriend is not as geeky as it sounds, at least in this case. She’s also a software developer, and she was taking a Perl class at the time.<\/p>\n
I consider this script a great success because she married me in 2007!<\/p>\n
I’ll leave it as an exercise for the reader to run the script in a console window and see its output (I promise it’s not a Trojan Horse or any other kind of evil trick).<\/p>\n
A user recently asked: What has been your best programming experience so far? The most successful program I’ve ever written was this Perl script: map(($r=$_,map(($y=$r-$_\/3,$l[24-$r] .=(‘ ‘,’@’)[$y**2-20*$y+($_**2)\/3<0]),(0..30)),),(0..24)); print join(“\\n”, map(reverse($_).$_, @l)), “\\n”; I wrote this for a woman I was dating in 2001. Writing a Perl script for my girlfriend is not as geeky as […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[24],"tags":[],"class_list":["post-48","post","type-post","status-publish","format-standard","hentry","category-perl"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/pawgV7-M","jetpack-related-posts":[],"jetpack_likes_enabled":true,"_links":{"self":[{"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/posts\/48","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/comments?post=48"}],"version-history":[{"count":0,"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/posts\/48\/revisions"}],"wp:attachment":[{"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/media?parent=48"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/categories?post=48"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/karwin.com\/blog\/index.php\/wp-json\/wp\/v2\/tags?post=48"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
I’m posting to my blog the questions I’ve answered on StackOverflow, which earned the “Good Answer” badge. This was based on my answer to “What is your best programming experience?<\/a>“<\/p>\n","protected":false},"excerpt":{"rendered":"