关于perl语言输入输出

答案:2 悬赏:50 手机版

解决时间 2021-11-07 14:31

提问者网友：做自己de王妃
2021-11-07 04:19

关于perl语言输入输出

最佳答案

五星知识达人网友：妄饮晩冬酒
2021-11-07 05:51

我来翻译一下：
open($t1,"1.txt"); # 打开1
open($t2,"2.txt"); # 打开2
open($tt,"+>3.txt");# 打开3
while(<$t1>){ #读1
print $tt $_; #输出1的第一行
if(<$t1>){print $tt $_}; #输出1的第二行
if(<$t2>){print $tt $_;}else{last;} #输出2的第一行
if(<$t2>){print $tt $_;}else{last;}#输出2的第二行
} #这样的话，每次循环都是输出1的两行，在输出2的两行
close..... # 回答完毕，(*^__^*)

全部回答

1楼网友：街头电车
2021-11-07 06:41

open($t1,"1.txt");
open($t2,"2.txt");
open($tt,"+>3.txt");
while(<$t1>){
print $tt $_;
if(<$t1>){print $tt $_};
if(<$t2>){print $tt $_;}else{last;}
if(<$t2>){print $tt $_;}else{last;}
}
close.....追问能把每一步的作用说一下吗
谢谢了

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息