CSVファイルを読み込み、ファイル名を変更。

質問

CSVファイルを読み込み、ファイル名を変更。

使用言語はperlです。perlは初心者です。
アルゴリズムが、
CSVファイルを読み込み→２次元配列に格納→ファイル名変更
という流れになっているプログラムを作成中です。

CSVファイルの中身は
あ.txt , a.txt
い.txt , b.txt
う.txt , c.txt
です。

CSVファイルを読み込み２次元配列に格納するプログラムは以下のようにしました。
-----------------------------------
$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] ;
と書いてみましたが、変換されません。
どう書けばよいのでしょうか。よろしくお願いします。

回答No.4

Tacosan · ベストアンサー

ですね＞#3. 読み込んだ直後に chomp; しておいた方がいいでしょう.

お礼

何度も回答していただきありがとうございます。
うまくいきました。
助かりました。

回答No.3

diszo

splitした際に、改行が入っているのが問題かなと思いました。
while(<IN>)の後に
chomp($_);
を入れてみたらどうでしょうか？

お礼

chompを入れてみたらうまくいきました。
ありがとうございます。

回答No.2

Tacosan

split で得られた配列の値は期待した通りですか? こっそり空白が入っていたりしませんか?
あと, 毎回 rename $jdata[0][0] , $jdata[0][1] ; で正しいですか?

補足

＞split で得られた配列の値は期待した通りですか? こっそり空白が入っていたりしませんか?
調べてみると、「$jdata[0][1]」の方のデータが、空白もしくは改行が入ってしまっています。これを解決すれば良さそうですが、解決策がわかりません…。

＞あと, 毎回 rename $jdata[0][0] , $jdata[0][1] ; で正しいですか?
これは試しに書いてみただけで、繰り返し文で全て処理させるつもりです。

回答No.1

Tacosan

「変換されません」とは, もっと具体的にはどうなるのですか?
実行するディレクトリに「あ.txt」などはあるのですか?
また, rename でエラーメッセージまたは「エラーを示す返り値」は出ていませんか?

補足

＞「変換されません」とは, もっと具体的にはどうなるのですか?
変換されずに「あ.txt」のままということです。

＞実行するディレクトリに「あ.txt」などはあるのですか?
あります。
ただ単に
「rename　"あ.txt" , "a.txt"」
と書くと変換されます。

＞また, rename でエラーメッセージまたは「エラーを示す返り値」は出ていませんか?
エラーメッセージは出ないです。