Re^5: adding an index column to a csv data file

You could build the array while reading the data

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

my @AoA = (); # ArrayOfArrays
while (<DATA>){
  s/\s//g;
  my @tmp = split ',',$_;
  $tmp[0] *= 1.0;
  $tmp[1] /= 1.0;
  $tmp[2]  = $.;
  push @AoA,\@tmp;
}

printf "%e,%e,%d\n",@$_ for @AoA;

__DATA__
0.00000000e+00, 2.41644835e+00
1.20048018e-04, 2.38938189e+00
2.40096037e-04, 2.36473989e+00
[download]

poj

Comment on Re^5: adding an index column to a csv data file Download Code