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

質問

Perlで、
ファイル名
「abd@docomo.ne.jp」
というファイル名内のカンマを削除し、
「.csv」という文字列を連結させ、
「abd@docomonejp.csv」
という名前のファイルに
Rename
する方法をお教えください

回答No.2

osamuy · ベストアンサー

訂正。

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

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

補足

追加で質問です。

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

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

回答No.1

osamuy

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

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

エラー処理とか、省略。

回答者：osamuy

03-09-02 22:05