Problème sur le passage de paramètre en PERL[Résolu]

Problème sur le passage de paramètre en PERL[Résolu] - Codes et scripts - Linux et OS Alternatifs

Marsh Posté le 25-06-2008 à 15:19:12    

Bonjour,
 
Je viens d'essayer d'implémenter la fonction ip2long en Perl et je suis incapable de la teste à cause d'un problème de paramètre.
 

Code :
  1. #!/usr/bin/perl -w
  3. use strict;
  4. use Switch;
  6. my $calcul_adresse_ip;
  7. my @octet;
  8. my $calcul_masque;
  9. my $ip_long;
  10. my $num;
  12. my $calcul_inetaddr;
  13. my $ip_temp="10.20.25.0";
  15. $num=ip2long($ip_temp);
  17. sub ip2long
  18. {
  19.         $calcul_adresse_ip=$_[0];
  20.         chomp($calcul_adresse_ip);
  21.         @octet=split(/\./,$$calcul_adresse_ip);
  22.         $ip_long=0;
  23.         foreach my $octet (@octet)
  24.         {
  25.                 $ip_long <<=8;
  26.                 $ip_long |= $octet;
  27.         }
  28.         print $ip_long;
  29. }


 
J'ai essayé en passant $$ma_variable_passé_en_paramètre ou encore &mafct($param).
Rien n'y fait j'ai toujours ce message d'erreur.

Code :
  1. Can't use string ("10.20.25.0" ) as a SCALAR ref while "strict refs" in use at calcul.pl line 21.


 
Ca a un rapport avec le "use strict;"?
 
Merci pour la lecture,
 
+


Message édité par makiwill le 25-06-2008 à 15:31:10
Reply

Marsh Posté le 25-06-2008 à 15:19:12   

Reply

Marsh Posté le 25-06-2008 à 15:30:41    

C'est bon je viens de trouver, à la ligne 21 il y a un "$" de trop.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed