s_gaurav1091 has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks, I am struck up at a problem. lets say ,I have got two arrays @versionArray = ("1.000.10.01","1.000.10.01"); @dateArray= ("110905,"111505"); Now I want my output form the arrays to be dispalyed like this 
date           version
11/09/05       1.000.10.01
11/15/05       1.000.10.01

[download]
Can anyone suggest what i should do?

Replies are listed 'Best First'.
Re: altering and printing an array
by Zaxo (Archbishop) on Dec 05, 2005 at 07:15 UTC

    BUU's reply is how I'd do it, but he forgot to rewrite the date in slashed format: 

    print "date\tversion\n";
for (0..$#dateArray) {
    my $date = $dateArray[$_];
    $date =~ s!^(\d\d)(\d\d)(\d\d)$!$1/$2/$3!;
    print "${date}\t$versionArray[$_]\n";
}

    [download]
    I didn't alter the original array, just a copy of each element as it came up. There might be reason to get old-fashoned and look at perlform, or modern and Template Toolkit.

    After Compline,
    Zaxo

[reply]
[d/l]
Re: altering and printing an array
by BUU (Prior) on Dec 05, 2005 at 06:34 UTC 
    print "date\tversion\n";
for( 0..$#dateArray )
{
  print "$dateArray[$_]\t$versionArray[$_]\n";
}

    [download]
[reply]
[d/l]
    A reply falls below the community's threshold of quality. You may see it by logging in.
Re: altering and printing an array
by gopalr (Priest) on Dec 08, 2005 at 15:35 UTC

    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";
}

    [download]

    Output: 

    date            version

11/09/05        1.000.10.01
11/15/05        1.000.10.01

    [download]

    Thanks,
    Gopal.R

[reply]
[d/l]
[select]
Re: altering and printing an array
by l.frankline (Hermit) on Dec 05, 2005 at 11:15 UTC

    Hi,

    Many of them suggested very well....I too have some suggestions. this can help u too.

    @dateArray = ("110905","111505");
@versionArray = ("1.000.10.01","1.000.10.01"); 

print "date\t-\tversion";
for ($i=0;$i<=$#dateArray;$i++)
{
  print "\n$dateArray[$i]\t-\t$versionArray[$i]";
}

    [download]

    Regards
    Franklin

    Don't put off till tomorrow, what you can do today.

[reply]
[d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.

Back to Seekers of Perl Wisdom