不使用eval从标量变量创建VSTRING

Question

我只是很好奇， - 甚至可以从标量变量创建一个V字符串而不需要使用eval ？

I. e。，这有效，但使用eval ：

my $var = 'v1.2.3';
my $conversion = to_vstring_1($var);
# Prints "Version: 1.2.3, type: VSTRING"
printf("Version: %vd, type: %s\n", $conversion, ref \$conversion);

sub to_vstring_1 {
    my ($arg) = @_;

    $arg =~ tr/0-9.//cd;
    $arg = 'v' . $arg;

    return eval $arg;
}

这两个变体也有效，并且不使用eval ，但它们打印“SCALAR”而不是“VSTRING”：

my $conversion_2 = to_vstring_2($var);
# Prints "Version: 1.2.3, type: SCALAR"
printf("Version: %vd, type: %s\n", $conversion_2, ref \$conversion_2);

my $conversion_3 = to_vstring_3($var);
# Prints "Version: 1.2.3, type: SCALAR"
printf("Version: %vd, type: %s\n", $conversion_3, ref \$conversion_3);

sub to_vstring_2 {
    my ($arg) = @_;

    $arg =~ tr/0-9.//cd;
    $arg = pack('U*', split(/\./, $arg));

    return $arg;
}

sub to_vstring_3 {
    my ($arg) = @_;

    $arg =~ tr/0-9.//cd;
    $arg =~ s/[._]?(\d+)/chr($1 & 0x0FFFF)/eg;

    return $arg;
}

那么，还有第四种方法吗？

Answer 1

甚至可以从标量变量创建一个V字符串而无需求助于eval ？

是的，它是，但这是一个痛苦，没有充分的理由。

您可以编写以下XS代码：

• 解析你的输入字符串
• 将数字转换为它们的char等价物
• 通过调用sv_magic为你的标量指定v-string魔法

但是，这正是Perl_scan_vstring中的内部函数Perl_scan_vstring所做的。 为什么重新发明轮子？