perl 根据list.txt中的一些号码 从文件夹中找出相应的文件
今天鼓捣了个小需求，老板需要利用从一份已知的excel中的电话号码 在指定的文件夹中找到响应的录音录音的文件名是 日期+号码。wav格式， 900多条记录呢。。手动找不是累死？
呵呵 幸好，刚学了个perl，准备牛刀小试一把了！
#!C:/perl/bin/perl
use warnings;
use strict;
use File::Copy;
use File::Find;
my $path = "D:\\perlwj\\zmx"; #放录音的文件夹
my $pathto = "D:\\perlwj\\zmx1";#最后的存放点
my $list = "D:\\perlwj\\3.txt"; #3.txt是个号码的列表
open DH1, "<$list";
opendir DH, $path;
my $abc = 1;
while(<DH1>)
{
for my $file (readdir DH) {
if ($file =~ /$_/)
{
print $file ,"\n";
copy( $path."\\" .$pathto ) or die "Copy failed: $!";
}
}
}
closedir DH;
close DH1;
好了。一个小简单的小应用 .
页:
[1]