Question

perl语言的一个简单脚本求助

1.
有两个文件1.txt[文件内容ab]和2.txt[文件内容cd]
@ARGV qw/1.txt 2.txt/;
print <>;
这样写的代码最后会展示位1234，请问如何写能展示位12回车34？
抱歉上面写错，如何展示为ab回车cd？

Answer 1

你这代码能跑起来?
是不是两个文件交叉输出的意思?

#!perl -w
use strict;
#AUTHOR: niejieqiang

open my $fh,"<","1.txt";
open my $fh2,"<","2.txt";
while( <$fh> ){
print ;
print scalar <$fh2>;
}
close $fh;
close $fh2;

追问

麻烦问您下 第四行的print是具体打印哪一个标量的呢？如果print改成print 为什么1.txt中的第一行不会被打印出来呢？

Answer 2

测试通过：

#! /usr/perl/bin
use warnings;
use strict;
@ARGV=qw/1.txt 2.txt/;
print $_ ."\n" while(<>);

Answer 3

print $_.$/ foreach @ARGV ; #ab回车cd
print "@ARGV"; # ab空白cd