comment convertir une chaine en numeric en perl ?
l'execution ne marche pas
#programme principal
 
$texte = "1233a";
$texte = remplace_car($texte, ",","\." );
 
if (verifier_nombre($texte)) {print (" ok" );}
 
pour verifier que le texte est un nombre
sub verifier_nombre{
     local($texte) = @_;
     $texte =(numeric) $texte;
     if ($texte =~ /[+-]?(\d+\.\d+|\d+\.|\.\d+)|\d+/){
     print $texte;
     print "\n";
     print " est un nombre";
     print "\n";  
     return(1);
     }  
        else {  
      print $texte;
      print "\n";
      print "ce n'est pas un nombre";
      return(0);
       }
}

Les titres en majuscule sont interdits par la charte du forum, tu devrais l'éditer.
 
Sinon, pour répondre à ta question, les conversions sont normalement automatiques. Que souhaites-tu faire exactement ?

Hmm ca ressemble pas trop à du perl ca!
on ne peut pas faire de casting en perl (ton "$texte=(numerci)$texte" ).
 
Sinon effectivement si tu veux tester q'une chaine corespond bien entierement à un nombre tu peux utiliser une regexp, ou plus simplement ce module:
http://search.cpan.org/~chocolate/ [...] Numeric.pm

et ta fonction "remplace_car" fait un peu peur !
tu sais en perl ca peut s'impelmenter comme ca: $text =~ s/,/\./g;

En Perl, les chaines et les nombres c'est la meme chose a partir du moment ou la chaine represente un nombre. Dans ce cas la variable est interpretee comme du texte ou comme un nombre, suivant le contexte.

oui, et c'est justement ce que cette personne veut savoir.
par exemple "4564a" sera interpreté comme le chiffre 4564 en contexte de numerique, mais cette personne voudrait rejetter cette chaine

Dans ce cas tu peux faire simplement :

 
Edit : faudrait faire quelque chose pour les \, c'est penible. Enfin bon y'a un \ devans, les n, quoi.

ouai pas mal comme idée! simple et propre
reste à voir si il veut etretolérant aux +, "," à la place de ".", "." pour separer les milliers, espaces,etc...

ta fonction verifier_nombre peut se faire avec une regex :
 
sub verifier_nbre
{
     my $arg = shift;
     return $arg=~/^(\d+)\.?(\d*)$/;
}