同一个perl程序处理多个文本

papagogogo

手上有500个文本，文件名不同，格式是一致的。写了一个perl程序，可以对所有的文本跑，可是新手，只会在程序中open 路径 写死某个文本，需要处理另外一个的时候只有进去改名字。这样一来很麻烦。有没有什么办法，像python一样，写好一个程序就直接比如（perl sort.pl chr*.txt > ch*.txt）之类的简单一个命令就能批量处理文件呢，而且程序中需要做哪些改动，谢谢。当然我一上括号中的写法是错的，为了帮助我表达需求。

兰花仙子

回复 1# papagogogo


    文件名可以glob进一个列表的。

papagogogo

具体如何操作呢。500个文件夹，每个文件夹下200个文件，我想了一下我可能可以对某个文件夹下的文件依次读取并写入同一个文件。可是不同文件夹如何操作分别写入500个文件呢，谢谢
回复 2# 兰花仙子


   

兰花仙子

回复 3# papagogogo


    你看看perldoc -f readdir

huang6894

my @allfile=glob("/home/*/chr*.txt");
for my $file (@allfile){

                         .....................

}