34、Perl文件与I/O操作全面解析

Perl文件与I/O操作全面解析

1. getopt与getopts的区别

在处理脚本的命令行参数时， getopt 和 getopts 是两个常用的工具。 getopt 不需要预先声明选项，但处理错误较为困难。而 getopts 需要声明选项，并且在处理命令行开关出错时会返回 false 值。在大多数情况下，为了避免进行大量的值测试，更推荐使用 getopts 。

2. 示例脚本：switches.pl

下面是一个简单的Perl脚本 switches.pl ，它根据使用的开关以不同方式处理文件：

#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use vars qw($opt_r $opt_l $opt_s $opt_n);

if (! getopts('rlsn')) {
    die "Usage: switches.pl -rlsn\n";
}

my @file = <>;

if ($opt_s) {
    @file = sort @file;
}

if ($opt_n) {
    @file = sort {$a <=> $b} @file;
}

if ($opt_r) {
    @file = reverse @file;
}

my $i = 1;
foreach my $line (@f