Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Re: padding/substr quirk

by ysth (Canon)
on Jan 11, 2004 at 06:52 UTC ( #320438=note: print w/ replies, xml ) Need Help??


in reply to Re: padding/substr quirk
in thread padding/substr quirk

Or feed it to B::Deparse:

$ perl -MO=Deparse,-p #!perl use strict;use warnings; use Time::localtime; print "substr month= " . (substr("0" . localtime->mon() + 1, -2)) . "\ +n"; print "substr day= " . (substr("0" . localtime->mday(), -2)) . "\n"; print "sprintf month= " . (sprintf "%02d", localtime->mon() + 1) . "\n +"; print "sprintf day= " . (sprintf "%02d", localtime->mday()) . "\n"; ^D
which gives:
use Time::localtime; BEGIN {${^WARNING_BITS} = "UUUUUUUUUUUU"} use strict 'refs'; print((('substr month= ' . substr((('0' . localtime()->mon) + 1), (-2) +)) . "\n") ); print((('substr day= ' . substr(('0' . localtime()->mday), (-2))) . "\ +n")); print((('sprintf month= ' . sprintf('%02d', (localtime()->mon + 1))) . + "\n")); print((('sprintf day= ' . sprintf('%02d', localtime()->mday)) . "\n")) +;


Comment on Re: Re: padding/substr quirk
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (9)
As of 2014-11-23 08:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (129 votes), past polls