Thanks a lot for your help ! moritz
Concerning your remark to overcome the problem, could this work ? Thanks
while (<$file>){ chomp; my @items = split m/;/, $_; if (defined($items[1])){ push @{$prices{$items[0]}, $items[1]; } else{ # add a ";" when there is a value void $prices{$items[0]} = "$prices{$items[0]}".";"; } }
In reply to Re^2: hash table with three input files
by steph_bow
in thread hash table with three input files
by steph_bow
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |