Perl脚本求助

chenhuasheng

#!/usr/bin/perl -w
use lib "d:/genesis/e92/all/perl";
use Genesis;
use Tk;
use File::Find;

my $path = "E:/aa/";

find(\&wanted, $path);

sub wanted {
print "$File::Find:$_\n" if /~*.rep/;
}
以上为查找文件源代码，可我想将其查找的文件显示在LIST里面，可以一直没搞定，在此请教各位高手，帮忙解决，在此谢过！

zhangwei12354

use File::Find;这个库我没试过不清楚

keyou2007

use File::Find;这个库我没试过不清楚

百香果

认真看看perldoc文档吧

jy198435

sub wanted {
$list->inser(0,end,"File::Find:$_)  if /~*.rep/;
}

这样不就好了