linux - Perl 正则表达式和参数

Question

以下 Perl 示例是长 Perl 脚本的一部分。

此脚本从 ifconfig -a 获取结果并打印 IP 地址。

谁能解释一下 $1 是如何获取 IP 地址的？

还有什么正则表达式

$RESULTS =~ /addr:(\S+)\s+/

是什么意思？

  my $COMMAND = "ifconfig -a | grep inet | grep -v 127.0.0.1 | head -1";
  my $RESULTS = `$COMMAND`;
  chomp $RESULTS;
  #          inet addr:106.13.4.9  Bcast:106.13.4.255  Mask:255.255.255.0
  #          inet 106.13.4.9 netmask ffffff80 broadcast 106.13.4.127


if ( $RESULTS =~ /addr:(\S+)\s+/ ) {
    $IpAddress = $1;
}
elsif ( $RESULTS =~ /inet\s+(\S+)\s+/ ) {
    $IpAddress = $1;
}

print "IpAddress = $IpAddress\n";

Answer 1

如果 =~ 匹配表达式为真，特殊变量 $1, $2, ... 将是匹配部分的子字符串括号中的模式。 $1 匹配第一个左括号，$2 匹配第二个左括号，依此类推。

\S 匹配任何非空白字符，
+匹配1次或多次，
\s 匹配任何空白字符(空格、制表符、换行符)，

因此在您的正则表达式中它匹配 addr:(any non-whitespace character 1 or more time) matches any whitespace character one or more time。 $1 捕获括号中的值。

查看此问题以了解$1:What does $1 mean in Perl?