求问如何用perl 生成shell文件

周黑鸭

想批量处理某些文件,想用perl批量生成shell指令处理文件，每个shell命令文件处理一个文件($file);

#!/usr/bin/perl -w


my $file="\home\jing\cabnine\split_contig_v2";
my $p=0;
opendir DH,$file or die "cannot open the $file!\n";
foreach my $fh (readdir DH){
   $p++;
   open OUT ">$p.sh";
   print OUT "#!/usr/bin/sh\n/home/jing/software/xxx $file> xxx;";
}

求问哪里错了?

周黑鸭

明白了 转义问题 还有一个$rh的错误