早教吧作业答案频道 -->其他-->
Perl代码该怎么写?有一个文本文件1.txt,有60行,格式如下xaaaaaaaaaaaxbbbbbbbbbbb.yaaaaaaaaaaaybbbbbbbbbbbycccccccccccccydddddddddddyeeeeeeeeeeeyffffffffffffffffffffff.y开头序列的数量是x开头的3倍,即x开头的有15
题目详情
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
有一个文本文件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
▼优质解答
答案和解析
open FILE1, "<1.txt";
@file =;
for $i (1..5)
{
open FILE, ">1$i.txt";
for $j (0..2)
{
print FILE $file[$i*3-$j];
}
for $k (0..8)
{
print FILE $file[$i*9-$k+15];
}
close FILE;
}
@file =
for $i (1..5)
{
open FILE, ">1$i.txt";
for $j (0..2)
{
print FILE $file[$i*3-$j];
}
for $k (0..8)
{
print FILE $file[$i*9-$k+15];
}
close FILE;
}
看了Perl代码该怎么写?有一个文...的网友还看了以下:
某店对AB商品进行打折,打折前,购买5件A商品和1件B商品用84元,6件A商品和3件B商品 2020-06-14 …
某超市开业十周年举行了店庆活动,对A、B两种商品实行打折出售.打折前,购买5件A商品和1件B商品需 2020-06-16 …
从2013年6月至2014年5月,全国检察机关共批准逮捕涉嫌污染环境罪案件459件799人,起诉3 2020-06-27 …
2000年10月1日起,行政诉讼法、行政处罚法和行政复议法都先后开始实施。十年来,全国各级法院受理 2020-07-11 …
某超市为“开业三周年”举行了店庆活动.对A、B两种商品实行打折出售.打折前,购买5件A商品和1件B 2020-07-17 …
列方程或方程组解应用题:为迎接“五一劳动节”,某超市开展促销活动,决定对A,B两种商品进行打折出售 2020-07-17 …
用指针指向两个变量,通过指针运算选出值小的那个数./*例81*//*用指针指向两个变量,通过指针运算 2020-11-01 …
某超市为促销,决定对A,B两种商品进行打折出售.打折前,买6件A商品和3件B商品需要54元,买3件A 2020-11-08 …
投掷一颗骰子,掷出的点数构成的基本事件空间是Ω={1,2,3,4,5,6}.设事件A={1,3},B 2020-11-18 …
某工厂利用随机数表对生产的700个零件进行抽样测试,先将700个零件进行编号001、002、…、69 2020-12-24 …