Re: Re: Date formats

Personally I find the printf function far more appealing for number and output formatting.

my $date = sprintf("%02d%02d", (localtime)[4] + 1, (localtime)[3]);
print $date, "\n";
[download]

Reducing formatting logic clauses and conditionals within business code is a good thing from my perspective.

perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

Comment on Re: Re: Date formats Download Code

Replies are listed 'Best First'.
Re:x3 Date formats by grinder (Bishop) on Jan 09, 2002 at 18:26 UTC
Naughty rob_au, bad boy! You are calling localtime twice, which is setting yourself up for a race condition, should the code ever run on the crack of midnight of new year's eve. You could have the month from one day and the year from another. Yes it's highly unlikely to happen, but it would be better to `my $date = do { my @now = localtime; sprintf("%02d%02d", $now[4] + 1, $now[3]); };` [download] Why invite trouble? -- `g r i n d e r print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'`	[reply] [d/l]

Replies are listed 'Best First'.

Re:x3 Date formats
by grinder (Bishop) on Jan 09, 2002 at 18:26 UTC

rob_au

You are calling localtime twice, which is setting yourself up for a race condition, should the code ever run on the crack of midnight of new year's eve. You could have the month from one day and the year from another.

Yes it's highly unlikely to happen, but it would be better to

my $date = do {
  my @now = localtime;
  sprintf("%02d%02d", $now[4] + 1, $now[3]);
};
[download]

Why invite trouble?

`g r i n d e r print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'`

[reply]
[d/l]