Help for this page
my @fieldnames = qw /S_10 S_11 S_12 S_13 S_14 S_15 T_10 T_11 T_12 T_13 + T_14 T_15/; # Note you could also make it dynamic and generate it from the in +put ... my ($index, @values) = split /,/, $_; $params{$index} = { map {$fieldnames[$_], $values{$_}} 0..15;} }
use strict; use warnings; ... 5,26,26,27,26,26,27,23,18,17,23,18,17 6,27,33,31,27,33,31,14,17,18,14,17,18 7,33,29,29,33,29,29,12,18,23,12,18,23
Station 1 : Salinity: 31; Temperature: 15 Station 2 : Salinity: 28; Temperature: 15 Station 3 : Salinity: 33; Temperature: 23 Station 4 : Salinity: 25; Temperature: 23 Station 5 : Salinity: 26; Temperature: 18