# вообще парсер csv
мо $parser = текст:: CSV:: Simple->new;
мои @data = $parser->read_file ($datafile);
@data foreach печати @$_;
# только те некоторые поля?
мо $parser = текст:: CSV:: Simple->new;
# определите колонки вы хотите после того как вы вытягиваны от csv
$parser->want_fields (1, 2, 4, 8);
мои @data = $parser->read_file ($datafile);
# карта поля к хэшу?
мо $parser = текст:: CSV:: Simple->new;
$parser->field_map (городок qw/id названный нулевой);
мои @data = $parser->read_file ($datafile);
|