suivant: Installer un Script perl
monter: Utiliser la base de
précédent: Utiliser la base de
Index
Pour ajouter le chemin vers l'interpréteur perl dans les variables de
NT, il faut accéder au fichier de registres via use WIN32;.
La valeur à ajouter se trouve dans
, on ouvre donc cette clef :
$p = "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
$main::HKEY_LOCAL_MACHINE->Open($p, $srv) or die "open: $!";
et on lit la table de hachage des valeurs :
$srv->GetValues(\%vals) or die "QueryValue: $!";
On peut vérifier si le chemin est déjà présent, sinon on l'ajoute :
if (!($vals{'Path'}[2] =~ /perl/i)) {
$value=$vals{'Path'}[2];
$srv->SetValueEx("Path", 0,REG_SZ, "c:\\perl\\bin;$value");
}
Olivier Aubert
1999-06-01
| 
