CSVファイルを読み込み、ファイル名を変更。
CSVファイルを読み込み、ファイル名を変更。
使用言語はperlです。perlは初心者です。
アルゴリズムが、
CSVファイルを読み込み→2次元配列に格納→ファイル名変更
という流れになっているプログラムを作成中です。
CSVファイルの中身は
あ.txt , a.txt
い.txt , b.txt
う.txt , c.txt
です。
CSVファイルを読み込み2次元配列に格納するプログラムは以下のようにしました。
-----------------------------------
$i= 0;
open IN, "sample.csv";
while (<IN>) {
my @data = ();
@data = split (/,/);
for (0..@data)
{$jdata[$i][$_] = "$data[$_]";}
$i++;
}
close IN;
----------------------------------------
「あ.txt」を「a.txt」に変更しようとして、この中に
rename $jdata[0][0] , $jdata[0][1] ;
と書いてみましたが、変換されません。
どう書けばよいのでしょうか。よろしくお願いします。