CSVファイルのデータをPerlの配列に追加するにはどうすればよいですか？

Question

私はオンラインで検索して検索しましたが、私は何も動作していないようです。私はこれが愚かに簡単な質問であることを知っていますが、私は本当に立ち往生しています...

私はファイルのディレクトリを持っていて、CSVファイルにディレクトリの名前を保存しました。単にデータなどの1列で構成されています：

100 
101 
102 
103... 

私は（ちょうどその関連する場合）ファイルを作成するには、次のコードを使用：

今

open (my $fileh, '>', '/Users/Shared/serials.csv') or die "Could not open file!"; 
print $fileh `ls -1 $path`; 
close $fileh; 
print "Saved Serials!"; 

私が望むすべてを読み込むことですファイル内のデータを配列に格納し、各値をループしてタスクを完了します。前述したように、私が代わりに自動的に書きたい、

@ser_list = (100,101,102,103,...); 

：私は

は現在、私は次のように、配列にコード内で手動で番号を入力しています...これを行う方法を見つけ出すことはできません lsコマンドラインクエリを使用してファイル名（数値）を取得し、そこからスクリプトに読み戻します。 これを行う方法があれば、別の値のファイルを作る必要はありません。

この例では、配列は@ser_listと呼ばれています。そこから、配列から次の$ ser_numを読み込み、ループ内でそれを処理しています。

foreach $ser_num (@ser_list) {....} 

ご協力いただきありがとうございます。

Answer 1

をPerlプログラムで使用しないでください。あなたは代わりにglobを使用することができます。

my @files = glob "$path/*"; 

あなたはパスとファイル名で作業する必要がある場合は、Path::Tinyを確認してください。ちょうど

open my $fh, '<', $filename or die $!; 
chomp(my @paths = <$fh>); 

を使用し、アレイへのパスを持つ行を読み取るために

はopen、chomp、および詳細readlineを参照してください。