glob
perl中通过文件操作符glob提供相当于shell中的指定多个文件的“通配符”语法功能
my @files=glob("$ARGV[0]/*fa");
open OUT, ">$ARGV[1]";
foreach my $f(@files){
my $prefix=basename($f);
print OUT "blastn -query $f -num_threads 4 -outfmt 0 -evalue 1e-10 -max_target_seqs 1 -db $ARGV[2] -out $ARGV[3]/$prefix.blast.m0\n";
}
参考:
perl glob操作符的用法
](http://blog.chinaunix.net/uid-26990529-id-3468821.html)
网友评论