Re: Converting an index record array into a comma-separated array.

Something like:

#! perl -w
use strict;
use Data::Dumper;

my @AoA = (
            [ 'IBM','B', 226110, 22020702, 545 , 12.5109 ],
             [  'AOL', 'B', '4RK11709', 20020702, 3455, 81.3588 ]
         );


my @AoS;
for (0..1) {
    $AoS[$_] = join ',', @{$AoA[$_]} ;
}

print "Before\n", Dumper @AoA;
print "After\n",  Dumper @AoS;
__DATA__
#output
C:\test>181810
Before
$VAR1 = [
          'IBM',
          'B',
          226110,
          22020702,
          545,
          '12.5109'
        ];
$VAR2 = [
          'AOL',
          'B',
          '4RK11709',
          20020702,
          3455,
          '81.3588'
        ];
After
$VAR1 = 'IBM,B,226110,22020702,545,12.5109';
$VAR2 = 'AOL,B,4RK11709,20020702,3455,81.3588';
[download]

Comment on Re: Converting an index record array into a comma-separated array. Download Code

Replies are listed 'Best First'.
(jeffa) 2Re: Converting an index record array into a comma-separated array. by jeffa (Bishop) on Jul 15, 2002 at 16:09 UTC
Here is a good place for map instead of for: `my @AoS = map {join ',',@$_} @AoA;` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]