各位大神,我想做查找目錄下的檔案名,并對檔案分類的操作。
use File::Find;
use File::Copy;
my $dir="E:\\perl_stduy";
my $tardir="E:\\perl_stduy\\test";
print $dir;
foreach my $x(1..4){
sub process
{
if ( -f $File::Find::name )
{
if ( $File::Find::name =~ /^.*_$x.dat$/ )
{
print "$File::Find::name\n";
copy ($File::Find::name,$tardir);
}
}
}
find( \&process, $dir );
}
現寫了如下操作,但 $File::Find::name =~ /^.*_$x.dat,無法匹配變數啊,有解決辦法嗎?
轉載請註明出處,本文鏈接:https://www.uj5u.com/qita/85439.html
下一篇:matlab視頻轉圖片
