Question

1.用perl 程序怎么把文件中的空格去掉 2.怎么让文件以>单独一行开头。

Answer 1

1. s/\s//g;
2. print OUT ">\n$_";
这个没太明白，举个例子吧

追问

文件A ctgaaaatgaatttttagtaaaaga cattaaaaaaaagaaggcagtatcacttac
变为：
>C
ctgaaaatgaatttttagtaaaagacattaaaaaaaagaaggcagtatcacttac

追答

>C里的C是随便定义的？
每一行都是这样的？比如
>C
ctgaaaatgaatttttagtaaaagacattaaaaaaaagaaggcagtatcacttac
>C
ctgaaaatgaatttttagtaaaagacattaaaaaaaagaaggcagtatcacttac
>C
ctgaaaatgaatttttagtaaaagacattaaaaaaaagaaggcagtatcacttac

追问

是随便定义的。
一个文件内容只要第一行是：>C
就可以了。谢谢。。

追答

open IN,"A";
open OUT,">B.txt";
print OUT ">C\n";
while(){
s/\s//g;
print OUT $_;
}