Как вывести 2-мерный массив в файл csv в perl

Question

Как я могу вывести 2-мерный массив в файл csv в perl?

Например, я построил одномерный массив как:

for my $i(0..100) { 
    for my $j (0..50) { 
     $data[$i][$j]=0; 
    } 
} 

И я хочу, чтобы вывести его в CSV-файл для дальнейшего использования. И этот файл csv следует читать и реконструировать в 2-мерный массив. используя код как:

my $outfilename="output.csv"; 
my $csv = Text::CSV->new; 
open OUT , '<', $outfilename or die "Could not open $outfilename: $!"; 

while(my $row = $csv->getline(OUT)) { 
    push @output, $row; 
} 
close OUT; 

Что такое эффективный способ сделать это?

Answer 1

Как обычно, CPAN ваш изверг: вы можете использовать Tie::Array::CSV

пример в документации выглядит очень похоже на то, что вам нужно:

use strict; use warnings; 
use Tie::Array::CSV; 
tie my @file, 'Tie::Array::CSV', 'filename'; 

# print $file[0][2]; 
$file[3][5] = "Camel"; 

Что касается эффективности, это выглядит очень эффективным с точки зрения к вашему времени. В модуле есть оговорка, в которой говорится, что «некоторые действия могут быть очень неэффективными [...] (например, (un) shift-ing». Это не похоже на то, что ваш случай будет затронут.