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;

 

好了。一个小简单的小应用 .