如何使用 Perl 将字符串转换为浮点数？

Question

有没有像 int() 这样的函数可以将字符串转换为浮点值？ 我当前正在使用以下代码：

$input=int(substr($line,1,index($line,",")-1));

我需要将 substr 返回的字符串转换为浮点数。

Answer 1

只需使用它即可。在 Perl 中，看起来像数字的字符串就是数字。

现在，如果您想在使用它之前确定它是一个数字，那么 Scalar::Util 中有一个实用程序方法可以做到这一点：

use Scalar::Util qw/looks_like_number/;

$input=substr($line,1,index($line,",")-1);

if (looks_like_number($input)) {
    $input += 1; # use it as a number!
}

基于示例输入您在评论中留下的，提取数字的更可靠的方法是：

$line =~ /([^\[\],]+)/; # <-- match anything not square brackets or commas
$input = $1;            # <-- extract match

Answer 2

我不知道你的数据是什么样的，但你确实意识到 substr< 的第三个参数/a> 是长度，而不是位置，对吗？另外，第一个位置是 0。我怀疑你没有得到你认为你得到的数据，而且它大多是意外地工作，因为你从字符串的开头开始，并且只偏离了一个。