http://qs321.pair.com?node_id=716454

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

I have to create a set of data using an array ftn for the variables content code, portal name, content text and display the information in a continous text form. Pls let me know how to concatenate the corresponing indexes. ------------------ @Code = (404,408); @Portal_Name = ("http://software.com","http://yahoo.com"); @Text = ("Not found","Request Timeout"); push(@Portal_Name,@Code); push(@Portal_Name,@Text); print @Portal_Name; -------------- I want to print 404 http://software.com Notfound like that for each index element

Replies are listed 'Best First'.
Re: Array function to concatenate
by Fletch (Bishop) on Oct 10, 2008 at 14:09 UTC

    a) use <code></code> tags. 2) See How (Not) To Ask A Question. III) Rather than keeping three parallel data structures like that it might make more sense to store the data for the same entry in one place (e.g. an array of hashrefs, each hashref containing the code, name, and text; see perldsc, perllol, perlreftut).

    The cake is a lie.
    The cake is a lie.
    The cake is a lie.

[reply]
Re: Array function to concatenate
by suaveant (Parson) on Oct 10, 2008 at 14:05 UTC
    If you know they are all arrays with corresponding indexes it is easy. 
    for(my $i=0; $i<@Code; $i++) {
  print "$Code[$i] $Portal_Name[$i] $Text[$i]\n";
}

    [download]

                    - Ant
                    - Some of my best work - (1 2 3)

[reply]
[d/l]
      Simpler: 
      for my $i ( 0..$#Code ) {
  print "$Code[$i] $Portal_Name[$i] $Text[$i]\n";
}

      [download]
[reply]
[d/l]
Re: Array function to concatenate
by dwm042 (Priest) on Oct 10, 2008 at 15:21 UTC
    I'm sure there is a pretty solution with map but this is what i came up with. Using sprintf makes it easier to switch formatting as required.

    #!/usr/bin/perl
use warnings;
use strict;

my @Code = (404,408); 
my @Portal_Name = ("http://software.com","http://yahoo.com");
my @Text = ("Not found","Request Timeout");
for my $i ( 0 .. $#Portal_Name ) {
    $Portal_Name[$i] = sprintf "%s %s %s\n", $Code[$i], $Portal_Name[$
+i], $Text[$i];
}

for( @Portal_Name ) {
    print;
}

    [download]
    And the output is:

    C:\Code>perl array_cat.pl
404 http://software.com Not found
408 http://yahoo.com Request Timeout

    [download]
[reply]
[d/l]
[select]
      I'm sure there is a pretty solution with map but ...

      I'm not sure about pretty but it is fairly straightforward.

      In your code, as well as the slightly dubious use of sprintf, I wonder why you trample over @Portal_Name and use two for loops when you could have done a print (or even a printf if you insist) in the first loop.

      use strict;
use warnings;

my @Code = qw{ 404 408 }; 
my @Portal_Name = qw{ http://software.com http://yahoo.com }; 
my @Text = ( q{Not found}, q{Request Timeout} );

print
   map { qq{$Code[$_] $Portal_Name[$_] $Text[$_]\n} }
   0 .. $#Portal_Name;

      [download]

      The output.

      404 http://software.com Not found
408 http://yahoo.com Request Timeout

      [download]

      I hope this is of interest.

      Cheers,

      JohnGG

[reply]
[d/l]
[select]
        Thanks all for your help..Its realy interesting to know different ways of getting info. Regards, Gowri
[reply]
      Not seeing the advantage of sprintf here; perl would print it correctly anyway. Can you expand on why it wins (or e.g. why print fails)?
[reply]

Back to Seekers of Perl Wisdom