Installer une variable d'environnement via la base de registre

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");
}