大佬教程收集整理的这篇文章主要介绍了perl – 使用通配符移动文件，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
例如,我想做这样的事情：
my $old_loc = "/share/cust/abc/*.dat"; my $arc_dir = "/share/archive_dir/";
现在,我可以像这样做一个文件：
use strict; use warnings; use File::Copy; my $old_loc = "/share/cust/abc/Mail_2011-10-17.dat"; my $arc_dir = "/share/archive_dir/Mail_2011-10-17.dat"; my $new_loc = $arc_dir; #archive print "Moving files to archive...\n"; move ($old_loc,$new_loc) || die "cound not move $old_loc to $new_loc: $!\n";
我想在perl程序结束时做什么,将所有这些名为* .dat的文件移动到一个存档目录.
glob运算符来获取需要打开的文件列表：
use strict;
use warnings;
use File::Copy;
my @old_files = glob "/share/cust/abc/*.dat";
my $arc_dir = "/share/archive_dir/";
foreach my $old_file (@old_files)
{
my ($short_file_name) = $old_file =~ m~/(.*?\.dat)$~;
my $new_file = $arc_dir . $short_file_name;
move($old_file,$new_file) or die "Could not move $old_file to $new_file: $!\n";
}
这具有不依赖于系统调用的益处,该系统调用是不可移植的,依赖于系统的并且可能是危险的.
编辑：更好的方法是提供新目录而不是全新的文件名. (抱歉没想到这个！)
move($old_file,$arc_dir) or die "Could not move $old_file to $new_file: $!\n";
# Probably a good idea to make sure $arc_dir ends with a '/' character,just in case
以上是大佬教程为你收集整理的perl – 使用通配符移动文件全部内容，希望文章能够帮你解决perl – 使用通配符移动文件所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。