如何用shell或者perl将下列序列逐个输入到文本文件?
发布网友
发布时间：2022-05-08 18:54
共1个回答
热心网友
时间：2024-02-17 11:19
@array=<F>;
foreach(@array){
if(/^[A-Z]+$/){
$c++;
open O,">1/a$c.txt";
print O $_;}}
#每条序列一个文件，然后再用批量命令bash之类的运行对比即可。
追问谢谢！不过不知道怎么用bash的批处理命令！而且这样要生成一千多个文件，比较麻烦。没办法直接在foreach里调用执行程序吗？
追答open F,"1.txt" or die $!;#将画面上的放入1.txt文件中
@array=<F>;
foreach(@array){
if(/^[A-Z]+$/){
open O,">a.txt";
print O $_;}
#在这个位置加入调用命令.....scan_for_matches -c a.txt < b.txt即可
}
