perl中通过文件操作符glob提供相当于shell中的指定多个文件的“通配符”语法功能,文件操作符glob将返回与所指定的glob文件模式相匹配的所有文件的list。
@files = glob "/home/site/*.fasta"
上面的glob的用法相当于如下:
opendir(Dir,"/home/site");
@Files=readdir(Dir);
closedir(Dir);
foreach $Cur(@Files){
$File="/home/globtest".$Cur;
open(IN,$File);
while(<IN>){
......
}
close(IN);
}
如果觉得我的文章对您有用,请随意打赏。你的支持将鼓励我继续创作!