Linux関連の手順メモ場所だったりします。 (Almost private technical memo about Linux.) 自動販売機の在庫管理を例としてCSVファイルを2次元配列に読み込むperlサンプルです。 まずは行ごとに1次元配列(@csv_array)に読み込み、各行の要素は一度(@line)配列に保持し、 split関数を使用して2次元配列(@line_data)に読み込んでいます。 配列に読み込んだ後の処理は適当です。 配列をCSVファイルに出力する準備として2次元配列(@line_data)をjoin関数を使用して カンマ区切りの要素とした1次元配列(@line_consolidate)に整形した後に CSVファイルに出力しています。 ■構成情報 ・OS: Amazon Linux AMI release 2012.09(64bit) ・Perl: 5.10.1