Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Happy birthday, happy birthday... happy birthday to Perl!

by Discipulus (Abbot)
on Dec 18, 2017 at 07:49 UTC ( #1205775=obfuscated: print w/replies, xml ) Need Help??

# ### ##0## ### # ;while( #=30==# <DATA>) {chomp; s{#}{}g #==30=# ;3;s{0} {\n}g;; #=30==# ;s{\d}{ " "x $& }xge;print}BEGIN{print$/,(" "x14),(join" - ",( map{join" ",(split/\s/,scalar gmtime$_)[1,2,4] }566784000,1513555200)),$/};END{seek DATA,0,0; print" "x 4,$_ while<DATA>}30;30;__DATA__###30 9_2_2_7_2_7_2_2_2_108|_||_1|_|1|4_||1|2\1/|_1| #_||_||_108|2|_1|1\1|_3_||_|3/1|_1|1||1\1_|10#

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re: Happy birthday, happy birthday... happy birthday to Perl!
by marto (Archbishop) on Dec 18, 2017 at 15:34 UTC

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2019-10-16 22:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?