Come posso convertire una stringa in un numero in Perl?

Ho una stringa che contiene un valore decimale e ho bisogno di convertire quella stringa in una variabile a virgola mobile. Quindi un esempio della stringa che ho è "5.45" e voglio un equivalente in virgola mobile in modo da poter aggiungere .1 ad esso. Ho cercato in Internet, ma vedo solo come convertire una stringa in un numero intero.

Non è necessario convertirlo affatto:

% perl -e 'print "5.45" + 0.1;'
5.55

Questa è una soluzione semplice:

Esempio 1

my $var1 = "123abc";
print $var1 + 0;

Risultato

123

Esempio 2

my $var2 = "abc123";
print $var2 + 0;

Risultato

0

Perl è un linguaggio basato sul contesto. Non fa il suo lavoro in base ai dati che gli dai. Invece, capisce come trattare i dati in base agli operatori che usi e al contesto in cui li usi. Se fai numeri un po 'di cose, ottieni numeri:

# numeric addition with strings:
my $sum = '5.45' + '0.01'; # 5.46

Se fai stringhe un po 'di cose, ottieni stringhe:

# string replication with numbers:
my $string = ( 45/2 ) x 4; # "22.522.522.522.5"

Perl per lo più capisce cosa fare ed è per lo più giusto. Un altro modo per dire la stessa cosa è che Perl si preoccupa più dei verbi che dei sostantivi.

Stai cercando di fare qualcosa e non funziona?

Google mi ha portato qui mentre cercavo la stessa domanda posta da phill (ordinamento dei float), quindi ho pensato che sarebbe valsa la pena pubblicare la risposta nonostante il thread fosse un po 'vecchio. Sono nuovo in Perl e mi sto ancora girando la testa, ma l'affermazione di Brian D Foy "Perl si preoccupa più dei verbi che dei sostantivi." sopra colpisce davvero il chiodo sulla testa. Non è necessario convertire le stringhe in float prima di applicare l'ordinamento. Devi dire all'ordinamento di ordinare i valori come numeri e non stringhe. cioè

my @foo = ('1.2', '3.4', '2.1', '4.6');
my @foo_sort = sort {$a <=> $b} @foo;

Vedi http://perldoc.perl.org/functions/sort.html per maggiori dettagli sull'ordinamento

Da quanto ho capito, int () non è inteso come una funzione 'cast' per designare il tipo di dati, viene semplicemente (ab) usato qui per definire il contesto come uno aritmetico. Ho (ab) usato (0 + $ val) in passato per assicurarmi che $ val sia trattato come un numero.

$var += 0

probabilmente quello che vuoi. Attenzione, tuttavia, se $ var è una stringa non può essere convertita in numerica, verrà visualizzato l'errore e $ var verrà reimpostato su 0 :

my $var = 'abc123';
print "var = $var\n";
$var += 0;
print "var = $var\n";

registri

var = abc123
Argument "abc123" isn't numeric in addition (+) at test.pl line 7.
var = 0

Perl ha solo tre tipi: scalari, array e hash. E anche questa distinzione è discutibile. ;) Il modo in cui ogni variabile viene trattata dipende da cosa ne fai:

% perl -e "print 5.4 . 3.4;"
5.43.4


% perl -e "print '5.4' + '3.4';"
8.8

Nei confronti fa differenza se uno scalare è un numero di una stringa. E non è sempre decidibile. Posso segnalare un caso in cui perl ha recuperato un float in notazione "scientifica" e ha usato lo stesso poche righe sotto in un confronto:

use strict;
....
next unless $line =~ /and your result is:\s*(.*)/;
my $val = $1;
if ($val < 0.001) {
   print "this is small\n";
}

E qui $valnon è stato interpretato come numerico per esempio "2e-77"recuperato da $line. L'aggiunta di 0 (o 0,0 per i buoni programmatori in C) ha aiutato.

Perl è debolmente tipizzato e basato sul contesto. Molti scalari possono essere trattati sia come stringhe che come numeri, a seconda degli operatori utilizzati. $a = 7*6; $b = 7x6; print "$a $b\n";
Ottieni42 777777 .

Tuttavia, c'è una sottile differenza. Quando leggi i dati numerici da un file di testo in una struttura dati e poi li visualizzi con Data::Dumper, noterai che i tuoi numeri sono citati. Perl li tratta internamente come stringhe.
Leggi: $my_hash{$1} = $2 if /(.+)=(.+)\n/;.
Dump:'foo' => '42'

Se si desidera che i numeri non quotate in discarica:
Leggi: $my_hash{$1} = $2+0 if /(.+)=(.+)\n/;.
Dump:'foo' => 42

Dopo che $2+0Perl ha notato che hai trattato $ 2 come un numero, perché hai usato un operatore numerico.

L'ho notato mentre cercavo di confrontare due hash con Data::Dumper.