摘要:
1 #遍历一个文件夹 2 3 use File::Find; 4 5 my $path = '/home/test/'; 6 sub process 7 { 8 if ( -f $File::Find::name ) 9 {10 if ( $File::Find::name =~ /\.old$/ ) 11 {12 print "$File::Find::name\n";13 }14 }15 }16 17 find( \&process, $path ); 阅读全文
摘要:
~~~~~~ if (!tmFile[0]) { printf("Pls input tlist file\n"); return 1; } if (!hmmPmModel_W[0]) { printf("Pls input hmm_W file\n"); return -1; }啊啊啊啊啊啊啊#将HTK格式的lab文件转换为Forcealign需要的ref文件#参数1:输入lab#参数2:输入需要的文件list#参数3:输出refuse 5.010;open IN, "<$ARGV[0]" or die $!;open LIS 阅读全文