字符串匹配的返回值

Question

假设我在 awk 中有一段代码：

str_1 = "abc123defg";
match(str_1, /[0-9]+/);
num_1 = substr(str_1, RSTART, RLENGTH);

那么 num_1 将是“123”。同一任务的 Perl 版本是什么？

提前致谢。

Answer 1

我会把它翻译成：

my $num_1 = ($str_1 =~ /(\d+)/)[0];

Answer 2

我通常会做类似

my ($num_1) = $str_1 =~ /(\d+)/;

or 的

my $num_1;
if ($str_1 =~ /(\d+)/) {
    $num_1 = $1;
}

事情在 Perl 的模式中 \d 相当于 ASCII 字符串的 [0-9] 。

Answer 3

它可能是：

$str="abc123defg";
$str =~ /[0-9]+/;
$num_1 = 
amp;;

你的 awk 直接翻译成：

$str="abc123defg";
$str =~ /[0-9]+/;
$num_1 = substr($str, $-[0], $+[0]-$-[0]);

可以写成：

use English;

$str="abc123defg";
$str =~ /[0-9]+/;
$num_1 = substr($str, $LAST_MATCH_START[0], $LAST_MATCH_END[0]-$LAST_MATCH_START[0]);