求助~如何连续读取多个文件?

求助~如何连续读取多个文件?

求助~如何连续读取多个文件?
如何连续读取多个文件并打印出来呢 ?
望高手指点,有个完整代码做个例子最好了~(WINXP系统)[CCB]1[/CCB]
CMD下一条命令:[quote]pe.
CMD下一条命令:[quote]perl -ple '$_' file1.txt file2.txt file3.txt ...[/quote]
多谢~[CCB]1[/CCB].
多谢~!
那我如果需要把他们连续打开 并 进行逐行操作呢?
比如:
open(read1,"<C:/****.txt");
open(read2,"<C:/****.txt");

@ARGV=<read1,read2>;
while(<>){}

不知道错在哪里~望指点~




   

my @lines;--open FILE1.
my @lines;
open FILE1, '<', 'c:/a.txt' or die "can't open: $!";
open FILE2, '<', 'c:/b.txt' or die "can't open: $!";
push @lines, <FILE1>, <FILE2>;
close FILE1;
close FILE2;
chomp(@lines);
foreach (@lines) {
print "$_\n";
}
# 或者这样




   

[quote]回复给 hangring :.
[quote]回复给 hangring : my @lines;--open FILE1....[/quote]
是把2个文件内容归并到一起再操作是吧~
恩…谢谢…[CCB]1[/CCB]