 |
 |
 |
構文 |
|
|
rename 変更前のファイル名 変更後のファイル名 |
|
返り値 |
|
|
ファイル名の変更に成功した場合に真 |
|
説明
- ファイル名を変更します。
使用例
ファイル名old.txtからnew.txtに変更する
#!/usr/bin/perl
use strict;
use warnings;
my $old = 'old.txt';
my $new = 'new.txt';
rename $old, $new or die "$old:$new:$!";ファイルaccess.logのファイル・サイズが100バイト以上の場合は，ファイルに拡張子.bakを付けてバックアップしてから，ファイルaccess.logに日時を追記する
#!/usr/bin/perl
use strict;
use warnings;
my $size = 100;
my $log = 'access.log';
if (-e $log and -s _ >= $size) {
rename $log, "$log.bak" or warn "$log:$!";
}
open my $fh, ">>", $log or die "$log:$!";
print $fh scalar(localtime), "\n";
close $fh;
