Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: altering and printing an array

by gopalr (Priest)
on Dec 08, 2005 at 15:35 UTC ( #515270=note: print w/replies, xml ) Need Help??


in reply to altering and printing an array

Hi Gaurav,

Use "pairwise" method of List::MoreUtils module.

use List::MoreUtils qw(pairwise); @versionArray = ("1.000.10.01","1.000.10.01"); @dateArray= ("110905","111505"); @result=pairwise{replace($a, $b)} @dateArray, @versionArray; print "\ndate\t\tversion\n"; $"="\n"; print "\n@result"; sub replace { my ($a,$b)=@_; $a=~s#([0-9]{2})([0-9]{2})([0-9]{2})#$1/$2/$3#g; return "$a\t$b"; }

Output:

date version 11/09/05 1.000.10.01 11/15/05 1.000.10.01

Thanks,
Gopal.R

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://515270]
help
Chatterbox?
[Corion]: Oh yay. Thanks to The New Firefox, my irc client ChatZilla doesn't work anymore either... So I'll have to keep an old FF around just for that...
[Corion]: 100% of my FF add-ons are unsupported currently. Maybe upgrading Firefox wasn't such a good idea after all ;)
[Corion]: Also suffering is my 2-factor Github sign-in, as now, FF can't read my USB token anymore. "This was a horrible idea" is slowly dawning on me ;)

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (10)
As of 2017-11-20 20:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (293 votes). Check out past polls.

    Notices?