微波EDA网,见证研发工程师的成长!
首页 > 研发问答 > PCB设计问答 > Genesis学习交流 > Perl脚本求助

Perl脚本求助

时间:10-02 整理:3721RD 点击:
#!/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里面,可以一直没搞定,在此请教各位高手,帮忙解决,在此谢过!

Perl, 脚本, 求助

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

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

认真看看perldoc文档吧

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

Copyright © 2017-2020 微波EDA网 版权所有

网站地图

Top