如何在perl中检查一个数字是否以其他数字开头

Question

我需要帮助创建一个获取随机数的函数(例如45789277(并将检查上面的数字是否以始终相同的数字列表中的一个开头(例如[1,2,45757,37466](

如果给定的数字是55366363，列表是[1,4,3]，则函数将返回False，如果列表是[6535,55,1,8]，则函数会返回True*这个数字不可能从列表中的两个数字开始*给定数字的第一位永远不会是0*列表中会有不同长度的数字(一位/两位/三位/四位(*给定的数字总是比列表中的数字多

谢谢；(

Answer 1

您可以将所有前缀连接到正则表达式中，并将随机数与其匹配：

#!/usr/bin/perl
use warnings;
use strict;
sub prefix_in_list {
my ($needle, $haystack) = @_;
my $regex = join '|', @$haystack;
return $needle =~ /^(?:$regex)/
}
use Test::More tests => 3;
ok prefix_in_list(45789277, [1, 2, 45, 757, 3, 7466]);
ok ! prefix_in_list(55366363, [1, 4, 3]);
ok prefix_in_list(55366363, [6535, 55, 1, 8]);

或者，如果你喜欢数字解决方案：

sub compute_length {
my ($n) = @_;
return int(log($n) / log 10)
}
sub prefix_in_list {
my ($needle, $haystack) = @_;
for my $prefix (@$haystack) {
my $start = $needle;
my $divider = 10 ** (compute_length($start) - compute_length($prefix));
return 1 if int($start / $divider) == $prefix;
}
return
}

Answer 2

您也可以使用substr:

# Checks if a number $num has a prefix given by an item in @$list
sub starts_width {
my ( $num, $list ) = @_;
for (@$list) {
return 1 if (substr $num, 0, length $_) eq $_;
}
return 0;
}

或者，如@choroba所述，可以使用index：

return 1 if (index $num, $_) == 0;

请注意，即使index在位置0没有找到匹配项，它也会扫描整个字符串。因此，substr和index的最有效解决方案很可能取决于您的数据。