Perl 特殊变量学习笔记

Perl 的特殊变量是指一些具有特殊含义或作用的变量，它们的名称通常以特殊字符开头或具有特殊的单词含义。在 Perl 中，这些变量被广泛用于各种场景，包括正则表达式、文件句柄、命令行参数等。

常用的特殊变量

$_

变量名称：$_

含义：默认变量，表示当前上下文中的默认操作对象

使用场景：默认情况下，Perl 的许多内置函数和操作符都会默认使用 $_ 变量作为其操作对象。例如：

perlCopy Code
while(<$fh>) {
  print;
}

这段代码会从文件句柄 $fh 中逐行读取数据，并将每行数据存储到 $_ 变量中，然后使用 print 函数输出 $_ 变量中的数据。

$!

变量名称：$!

含义：系统错误信息

使用场景：当系统出现错误时，可以通过读取 $! 变量获取关于错误的详细信息。例如：

perlCopy Code
if (!open FILE, "<", $filename) {
  print "Error: $!\n";
}

这段代码会尝试打开名为 $filename 的文件。如果文件打开失败，则会输出 $! 变量的内容。

@_

变量名称：@_

含义：参数列表

使用场景：当函数被调用时，参数列表会被存储在 @_ 数组中。例如：

perlCopy Code
sub max {
  my $max = shift @_;
  foreach (@_) {
    if ($_ > $max) {
      $max = $_;
    }
  }
  return $max;
}

这段代码定义了一个函数 max，它用于返回传入参数中的最大值。函数内部通过从 @_ 中获取参数并进行比较，来确定最大值。

$@

变量名称：$@

含义：上次 eval 函数的错误信息

使用场景：当 eval 函数失败时，可以通过读取 $@ 变量获取关于错误的详细信息。例如：

perlCopy Code
eval {
  # some code that may throw an exception
};
if ($@) {
  print "Error: $@\n";
}

这段代码使用 eval 函数执行一些可能会抛出异常的代码块。如果代码执行失败，则会输出 $@ 变量的内容。

实例

下面是一个简单的例子，演示了如何使用 Perl 的特殊变量：

perlCopy Code
while(<>) {
  if (/(\d+)\s+(\d+)/) {
    my $sum = $1 + $2;
    print "Sum of $1 and $2 is $sum\n";
  }
}

这段代码会从标准输入逐行读取数据，并尝试匹配每行内容中的两个数字。如果匹配成功，则会计算这两个数字之和，并输出结果。

在这个例子中，$_ 变量被用作默认操作对象，<> 运算符会将输入数据逐行读取到 $_ 变量中。正则表达式中的 $1 和 $2 变量从特殊变量 $1 和 $2 中获取匹配结果。最终结果通过使用 print 函数输出到标准输出中。