Comment puis-je convertir une chaîne en float avec Perl?

Question

Y a-t-il une fonction comme int() qui peut convertir une chaîne en valeur flottante? J'utilise actuellement le code suivant:

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

Je dois convertir la chaîne retournée par substr flotter.

Answer 1

Il suffit de l'utiliser. En Perl, une chaîne qui ressemble à un nombre est un nombre.

Maintenant, si vous voulez être sûr que la chose est un nombre avant l'utiliser alors il y a une méthode utilitaire dans Scalar::Util qui le fait:

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

Sur la base de l'entrée de l'échantillon vous avez laissé dans le commentaires, une méthode plus robuste d'extraire le nombre est:

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

Answer 2

Je ne sais pas ce que vos données ressemble, mais vous ne me rends compte que le troisième argument de substr est une longueur, non une position, non? En outre, la première position est 0. Je suppose que vous n'obtenez pas les données que vous pensez obtenir, et cela fonctionne le plus souvent accidentellement parce que vous commencez au début de la chaîne et ne sont que d'une unité.