指定したディレクトリ内の一番新しいファイルを獲得する
※sortしなくてもシステムによってはあたらしいファイルを指定されるが
陽にsortした方がよさそうだ
※ソートしたフィイルのうち、$dir_sorted[-1]が最後のファイルをあらわす
※パスにスペース文字をいれないこと!
///////////
use strict;
use warnings;
#★★★
my $dirname='C:\指定したいディレクトリ';
my @dir;
my @dir_sorted;
my $filename_new;
opendir(DIR, $dirname) or die "$dirname: $!";
#dirnameにあるファイルを@dirに格納
@dir = readdir(DIR);
#名前順に並び替える
@dir_sorted=sort(@dir);
#最後のファイルをパスを含めて$filename_newに格納
$filename_new=$dir_sorted[-1];
my $filename_path=$dirname."\\".$filename_new;
print "filename_path: ",$filename_path,"\n";
closedir (DIR);
0 件のコメント:
コメントを投稿