Bonjour,
 
Vraiment grand débutant en langage Perl, je dois utiliser StrawberryPerl en version

 
Et je me trouve confronté à une erreur Can't call method "Open" on an undefined value
 
Voici la partie du code sur lequel cela bloque :
 

 
Comment les variables $sub_key et $hkey sont alimentées ? Je ne comprend pas le shift.
 
Merci de votre aide

C'est très simple:
Tout sub (ie subroutine, bref, une fonction) en perl prend pour argument une liste
Si tu fais: win32_reg_read("SOFTWARE\\Net-SNMP","SNMPSHAREPATH" );  
(on met plus de & devant un nom de sub depuis des plombes, sauf dans des cas très spéciaux)
tu appelles le sub win32_reg_read avec la liste d'arguments ("SOFTWARE\\Net-SNMP", "SNMPSHAREPATH" )
La liste d'arguments à un nom implicite: @_
donc dans l'exemple, tu as un appel de win32_reg_read avec @_ = ("SOFTWARE\\Net-SNMP", "SNMPSHAREPATH" )
faire shift sans argument a l'intérieur d'un sub, c'est le faire sur @_
bref, faire  
my $sub_key = shift;
c'est faire
my $sub_key = shift @_;
ou shift a le sens habituel d'un shift sur une liste (fonction qui renvoie le premier argument de la liste, qu'il enlève de la liste)
après cet appel, $sub_key = "SOFTWARE\\Net-SNMP" et @_ = ("SNMPSHAREPATH" )
la ligne suivante faire
my $value = shift;  
c'est faire
my $value = shift @_;  
après cet appel, $value = "SNMPSHAREPATH" et @_ = ()
 
A+,
 

ok ok merci, je comprend je penses.
Mais alors pourquoi j'ai cette erreur de liste non alimentée ?
J'ai regardé l'ensemble du code, et je n'ai à aucun endroit l'appel à cette fonction win32_reg_read...
On est bien d'accord que dans le code, je devrais trouver à un endroit cette fonction avec comme argument, les trucs en exemple :
 
Example: &win32_reg_read("SOFTWARE\\Net-SNMP","SNMPSHAREPATH" );
 

Bon en cherchant, et à coup de print des variables, elles sont bien remplies par les bonnes valeurs :
subkey : SOFTWARE\Net-SNMP
value : SNMPSHAREPATH
 
Du coup, l'erreur est bidon ou quoi...

ok j'ai compris, le code que j'ai récupéré utilise Win32::Registry alors que celui-ci n'a pas l'air d'être bien supporté par StrawberryPerl qui est remplacé par Win32::TieRegistry
=> du coup faudrait que je modifie le code

L'erreur est pas bidon, si je suis bien, $HKEY_CURRENT_USER est pas initialisé (j'ai pensé au départ que ça l'était par l'importation de Win32::TieRegistry; mais ça a pas l'air au vu de la doc du module).
Il faut faire  
$HKEY_CURRENT_USER = $Registry->{"HKEY_CURRENT_USER"}; # ou $Registry->{"HKEY_CURRENT_USER\\"} ?? à tester
$Registry est lui créé a  l'importation de Win32::TieRegistry au vu de la doc
et la, comme il aura été initialisé,  
$HKEY_CURRENT_USER->Open
devrait marcher.
 
A+,

Oui en fait c'est moi qui a changé Win32::Registry dans le code car ça ne marchait pas, en pensant que Win32::TieRegistry fonctionnerait pareil.
C'est beau la naïveté ^^
 
Merci de ton aide, j'essai ça.

Merci pour ton aide mais après tests, voila ce que ça donne    
 
1er test :
 

sub win32_reg_read {
  my $sub_key = shift;
  my $value = shift;
  
  #require Win32::Registry;
  require Win32::TieRegistry;
    
  my ($hkey, %key_values, $temp, $no_warn);
 
  # Try HKCU first
  $HKEY_CURRENT_USER = $Registry->{"HKEY_CURRENT_USER"};
  $no_warn = $HKEY_CURRENT_USER;
  if ($HKEY_CURRENT_USER->Open($sub_key, $hkey))
  {
    $hkey->GetValues(\%key_values);   
    foreach $temp (sort keys %key_values) {
      if ($temp eq $value) {
        return $key_values{$temp}[2];
      }
    }
    $hkey->Close(); 
  }

 
Résultat :
Can't call method "Open" on an undefined value
 
 
2ème test :
 

sub win32_reg_read {
  my $sub_key = shift;
  my $value = shift;
  
  #require Win32::Registry;
  require Win32::TieRegistry;
    
  my ($hkey, %key_values, $temp, $no_warn);
 
  # Try HKCU first
  $HKEY_CURRENT_USER = $Registry->{"HKEY_CURRENT_USER\\"};
  $no_warn = $HKEY_CURRENT_USER;
  if ($HKEY_CURRENT_USER->Open($sub_key, $hkey))
  {
    $hkey->GetValues(\%key_values);   
    foreach $temp (sort keys %key_values) {
      if ($temp eq $value) {
        return $key_values{$temp}[2];
      }
    }
    $hkey->Close(); 
  }

 
Résultat :
Can't call method "Open" on an undefined value

Il faut aller lire la doc du module: Open ne fonctionne plus du tout pareil.
 

sub win32_reg_read {
  my $sub_key = shift;
  my $value = shift;
 
  use Win32::TieRegistry; 
 
  my $HKEY_CURRENT_USER  = Win32::TieRegistry->new("CUser" );
  if ($HKEY_CURRENT_USER) {
    my $skey = $HKEY_CURRENT_USER->Open($sub_key);
    if ($skey) {
      my %key_values = $skey->GetValue($value);
      foreach (sort keys %key_values) {
        print $_, "\n"; # a toi d'adapter ton code à ce que tu avais dans ta boucle
      }
    }
  }
}
 
# ControlPanel\Current Color Schemes
win32_reg_read("Control Panel\\Current\\", "Color Schemes" );
# -> renvoie Windows Standard

 
A+,

Merci de ton aide mais je vais pas m'en sortir tout seul...
Du coup j'ai changé Strawberry par ActiveState et y a plus d'erreur dans le code
 
Merci à toi en tout cas !!

Parce qu'il te manquait le module sous strawberry?
Suffisait de l'installer avec CPAN, non?
A+,

Arf
Je ne savais pas.... il faudra que je regarde comment on fait dans ce cas
Merci beaucoup !