初めてのPerl ~ 13章 ファイルとディレクトリの取り扱い ~

13.1　ファイルを削除する

　unlink　を用いて指定ファイルを削除する

#!/usr/bin/perl

use　warnings;
use　strict;

foreach(<@ARGV>){
　　　　unlink　$_　or　warn　"Can't　delete　$_　:　$!\n";　
}

13.2　ファイルの名前を変更する

　rename　を用いてファイルの名前を変更する

#!　/usr/bin/perl

use　warnings;
use　strict;

foreach　my　$file(　glob　"*.pl"　){
　　　　my　$newfile　=　$file;
　　　　$newfile　=~　s/\.pl$/.pm/;
　　　　if(-e　$newfile){
　　　　　　　　warn　"can't　rename　$file　to　$newfile　:　$newfile　exists\n";
　　　　}
　　　　elsif(rename　$file,$newfile){
　　　　}
　　　　else{
　　　　　　　　warn　"rename　$file　to　$newfile　failed:$!\n";
　　　　}
}

参考書

初めてのPerl