Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: array assignment

by dragonchild (Archbishop)
on Nov 12, 2004 at 19:50 UTC ( #407495=note: print w/replies, xml ) Need Help??

in reply to array assignment

In your specific case, I would use something like Date::Calc to handle the uglies. Or, you could write a function that wraps that. :-)

As for the coolness factors ... you could use mapcar -- map for more than one list. That way, you might end up with something like:

my ($dd, $mm, $yyyy) = map { $_->[0] + $_->[1] } mapcar( [(localtime)[3..5]], [0, 1, 1900], );

Of course, you now have to explain how mapcar works and ... well, maybe it's too cool. :-)

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2020-05-30 14:02 GMT
Find Nodes?
    Voting Booth?
    If programming languages were movie genres, Perl would be:

    Results (172 votes). Check out past polls.