17、Perl文件与数据操作全解析

Perl文件与数据操作全解析

1. @ARGV与<>的关系

在Perl中， <> 和 @ARGV 存在着紧密的功能关系，具体规则如下：
- 若 @ARGV 数组中有元素，会依次取出首个元素，将其视为文件并读取内容，直至 @ARGV 为空。
- 若 @ARGV 为空，则从标准输入读取数据。

以下是一个示例程序 argv2.pl ：

#!/usr/bin/perl
# argv2.pl

use warnings;
use strict;

@ARGV = qw(file1.dat file2.dat file3.dat);

while (<>) {
    print "text read: $_";
}

执行该程序的输出如下：

$ perl argv2.pl
text read: this is file1.dat
text read: it is not too exciting...
text read: this is file2.dat
text read: equally unexciting...
text read: this is file3.dat
text read: yep, you guessed it, not too exciting...
$

需要注意