perl $.什么意思

在 Perl 中，`$.` 是一个特殊的变量，它代表当前输入文件的行号。当使用 `<>` 或 `readline()` 从文件句柄中读取行时，`$.` 将自动地递增。
例如，下面的代码将打印出文件 test.txt 的每一行及其行号：

open my $fh, "<", "test.txt" or die "can't open test.txt: $!";
while (my $line = <$fh>) {
  print "Line $.: $line";
}
close $fh;

相关问题

Can't locate Locale/gettext.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 / usr/share/perl5 .).什么意思

该错误消息表示Perl模块"Locale::gettext"在系统中找不到。在Perl中，@INC是一个包含模块搜索路径的数组。当您尝试使用use或require语句加载模块时，Perl会在@INC中的路径中查找所需的模块文件。

根据错误消息，Perl无法找到"Locale/gettext.pm"文件，这意味着在您的系统上缺少"Locale::gettext"模块。

为了解决这个问题，您可以按照我之前提供的步骤安装"Locale::gettext"模块。请参考我之前的回答，里面提供了在CentOS 7上安装该模块的详细步骤。

安装完成后，您应该能够正常加载"Locale::gettext"模块，并且不再遇到"Can't locate Locale/gettext.pm"错误。

perl /^(["']).*\1$/ 其中 .表示什么意思

在Perl中，`.`表示匹配任意一个字符（除了换行符）。在正则表达式`/^(["']).*\1$/`中，`.`匹配的是在单引号或双引号里的任意字符，`*`表示匹配前面的字符零次或多次，这里是匹配单引号或双引号之间的任意字符，`\1`表示回溯引用分组1，即与分组1中捕获的字符相同的字符。因此，这个正则表达式可以匹配以单引号或双引号开头并且结尾的字符串。