ファイル名ないにあるカンマを削除し、文字列[.csv]を連結させてファイル名をRenameする方法を教えてください

Perlで、
ファイル名
「[e-mail]」
というファイル名内のカンマを削除し、
「.csv」という文字列を連結させ、
「[e-mail]」
という名前のファイルに
Rename
する方法をお教えください

No.1 回答者： osamuy 回答日時： 2003/09/02 22:08

カンマ（,）がドット（.）の事なら、こんな感じ：

while ( <> ){ chop;
my $fn_old = $_;
s/?.//g; # ドットを全置換により削除。
$_ .= '.csv'; # 末尾に接尾辞.csvを付加。
rename( $fn_old, $_ ); # ファイル名変更
}

エラー処理とか、省略。

回答者：osamuy

03-09-02 22:05

No.2 ベストアンサー 回答者： osamuy 回答日時： 2003/09/03 00:20

訂正。

誤： s/?.//g;
正： s/\.//g;

うーん。Safari/OmniWebだと、バックスラッシュが化けるなあ。

この回答への補足

追加で質問です。

初歩の質問ですみません。

変更されたファイル名を変数名「$filename」
の値にする場合には
どのようにすればよろしいでしょうか。

補足日時：2003/09/06 15:55