Perl을 사용하여 문자열을 float로 변환하려면 어떻게해야합니까?

Question

문자열을 float 값으로 변환 할 수있는 int()과 같은 함수가 있습니까? 나는 현재 다음과 같은 코드를 사용하고 있습니다 : 내가 떠 substr에 의해 반환 된 문자열을 변환 할 필요가

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

합니다.

Answer 1

그냥 사용하십시오. Perl에서 숫자처럼 보이는 문자열은 숫자입니다.

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! 
} 

당신이 남아 샘플 입력을 기반으로 : 당신이 그것을 사용 전에 것은 숫자 되어 있는지 확인하려면

이제 다음을 수행 Scalar::Util의 유틸리티 메소드가있다 코멘트 번호를 추출하는보다 강력한 방법은 다음과 같습니다

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

Answer 2

나는 당신의 데이터가 어떻게 생겼는지 모르겠지만, 당신이 substr 세 번째 인수가 길이 아니라는 것을 깨닫게 않습니다 위치, 그렇지? 또한, 첫 번째 위치는 0입니다. 당신이 얻고 있다고 생각하는 데이터를 얻지 못했다고 생각합니다. 그리고 문자열의 시작 부분에서 시작하여 하나만 떨어져 있기 때문에 대부분 우연히 작동합니다.