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 :
- #!/usr/bin/perl -w
- use strict;
- use Switch;
- my $calcul_adresse_ip;
- my @octet;
- my $calcul_masque;
- my $ip_long;
- my $num;
- my $calcul_inetaddr;
- my $ip_temp="10.20.25.0";
- $num=ip2long($ip_temp);
- sub ip2long
- {
- $calcul_adresse_ip=$_[0];
- chomp($calcul_adresse_ip);
- @octet=split(/\./,$$calcul_adresse_ip);
- $ip_long=0;
- foreach my $octet (@octet)
- {
- $ip_long <<=8;
- $ip_long |= $octet;
- }
- print $ip_long;
- }
|
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 :
- 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
FORUM HardWare.fr
