给pl脚本授权，+x 切换到脚本目录下，然后执行./xxx.pl 这样就可以了。知道 提问 搜一搜 。举报反馈 战队 linux 如何执行pl脚本 写回答 有奖励 。
请教一个文件目录操作的pl脚本 遍历文件夹方法主要有三种1.使用File：Find；2.递归遍历。(遍历函数为lsr)3.使用队列或栈遍历。(遍历函数为lsr_s)1.use File：Findusr/bin/perl-WFile：find.plAuthor：路小佳License：GPL-2use strict；use warnings；use File：Find；my($size，$dircnt，$filecnt)=(0，0，0)；sub process {my$file=$File：Find：name；print$file，\"\\n；if(-d$file){dircnt+；}else {filecnt+；size+-s$file；}}find(\\&process，'.')；print\"$filecnt files，$dircnt directory.$size bytes.\\n；2.lsr递归遍历usr/bin/perl-WFile：lsr.plAuthor：路小佳License：GPL-2use strict；use warnings；sub lsr($){sub lsr；my$cwd=shift；local*DH；if。opendir(DH，$cwd)){warn\"Cannot opendir$cwd：$。E；return undef；}foreach(readdir(DH)){if($_eq '.'|$_eq '.'){next；}my$file=$cwd.'/'.$_；if。l$file&-d_){file.='/'；lsr($file)；}process($file，$cwd)；}closedir(DH)；}my($size，$dircnt，$filecnt)=(0，0，0)；sub process($){my$file=shift；print$file，\"\\n；if(substr($file，length($file)-1，1)eq '/'){dircnt+；}else {filecnt+；size+-s$file；}}lsr('.')；print\"$filecnt files，$dircnt 。
如何批量执行 *.pl脚本
