perl：配列の配列から配列をシフトすると、特別なレベルの間接参照が追加されるのはなぜですか？

Question

私のCSVファイルの最初の行には、以下のフィールドの名前が含まれています。 ファイルを配列の配列に読み込み、0行目のシフトを試みます。

しかし、配列は別の配列レベルでラップされているようです。

どのようにして間接的にレベルを上げることができますか？

ここでは、コードです：

open CSV, "ExDivExport.csv" or die;; 
@fields=(); 
while (<CSV>) 
{ chomp; 
    ($temp) = /^"(.+)"$/; # remove first and last " 
    @line=split /","/, $temp ; 
    print"\n@line"; # all the lines print correctly here 
    push @fields, [@line]; 
} 
@names = shift @fields; # Here I shift off the 0th row 

print "\nat12 names=@names";   # prints: ARRAY(0x26e52c) 
print "\nat13 names[0]=$names[0]"; # prints ARRAY(0x26e52c) 
print "\nat14 names[0][0]=$names[0][0]"; # correctly prints first name 'Symbol' 

Answer 1

あなたのコード@fields変数に配列にreferenceを格納し、それはあなたがこの種のデータを抽出しようとする方法を変更する必要があります：

$names = shift @fields;    # get a reference, so use $ sigil (scalar) 
print "\nat12 names=@$names";   # dereference array ref 
print "\nat13 names[0]=$names->[0]"; # get the first element (access with -> notation) 

は、私はあなたが学習目的のためにそれを試みていると思います。他の方法として、CSVの解析を真剣に検討している場合は、Text::CSVのように、CPANのよくテストされ、文書化されたモジュールを使用する方が良いでしょう。

また、デバッグの目的で、変数の構造を分析する場合は、Data::Dumperを理解するのに役立ちます。例：

print Dumper(\@names), "\n"; 

コードで古い形式でファイルを開きます。 3つのparamsを使用して近代的なアプローチがあります：

open CSV, "ExDivExport.csv" or die;; 

は

open my $CSV, '<', 'ExDivExport.csv' or die "cannot open file: $!"; 
#... then use the lexical variable $CSV instead of the CSV bareword 

でなければなりませんし、私がしなければならなかったすべては置き換えたので、close $CSV;

Answer 2

することを忘れないでください：

@names = shift @fields;

@names = @ {シフト@fields}と

。

問題を解決しました。