Perl是否有内置方法实现任意进制字符串转整数（非第三方/手动）？

核心答案 #

Perl内置了无需依赖第三方模块、无需手动逐位转换的方法，利用oct()函数的扩展功能即可实现运行时指定2-36进制的字符串转整数。

具体用法 #

oct()原本设计用于解析八进制字符串，但Perl对其做了扩展，支持base#digits的格式，其中base可指定2-36之间的任意进制，digits部分支持0-9、a-z/A-Z（大小写不敏感）。

• 直接解析固定进制的字符串：

  my $decimal = oct("34#JQ");
  print $decimal; # 输出 672
  

• 运行时动态指定进制：

  my $target_base = 34;
  my $base_str = "JQ";
  my $decimal = oct("$target_base#$base_str");
  print $decimal; # 输出 672
  

关于“功能缺失”的疑惑解释 #

Perl的实现方式和Python、JavaScript等语言不同——后者将进制作为函数的第二个参数传入，而Perl通过字符串前缀指定进制，这种差异容易让习惯其他语言的用户忽略oct()的扩展能力，误以为Perl缺失此功能。此外，oct()的该扩展特性在文档中并非最突出的部分，进一步加深了这种误解。

备选（不推荐）方式 #

如果不想使用oct()的前缀语法，也可以通过eval实现，但绝对不要用于处理不可信输入（存在代码注入风险）：

my $target_base = 34;
my $base_str = "JQ";
my $decimal = eval "$target_base#$base_str";
print $decimal; # 输出 672

内容的提问来源于stack exchange，提问作者ShadowRanger