Perl代码该怎么写?有一个文本文件1.txt,有60行,格式如下x aaaaaaaaaaax bbbbbbbbbbb.
Perl代码该怎么写?
有一个文本文件1.txt,有60行,格式如下
x aaaaaaaaaaa
x bbbbbbbbbbb
.
y aaaaaaaaaaa
y bbbbbbbbbbb
y ccccccccccccc
y ddddddddddd
y eeeeeeeeeee
y ffffffffffffffffffffff
.
y开头序列的数量是 x开头的3倍,即x开头的有15行,y开头的有45行.
现在要将这个文件分成5等份,且要保持每等分中y开头的序列仍是x开头序列的三倍,代码该怎么写?
要求输出格式为5个文本文件,每一个文件12行(x3行,y9行),格式如下:(5个文件合起来是完整的1.txt)
x aaaaaaaaaaaaa
x bbbbbbbbbbbbb
x ccccccccccccccc
y aaaaaaaaaaaaa
y bbbbbbbbbbbbb
.
y iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii