Discussion :

[jameson]

Bonjour a tous.

Bon je vais rien vous cacher, c'est une question de module de pratique, j'ai essqyer de comprendre un peu mais je suis vraiment une bille en perl.

ma question:

Les fonctions à user : sort, split, foreach, for. Réaliser un procédé qui enregistre les champs d'un registre(contrôle).
Reécrire l'exemple antérieur en utilisant variables (hashes) associatifs. Utiliser les boucles suivantes :

foreach $val (sort keys %var_hash)



Si quelqu'un pouvait m'aider pour que j'ai une base de ce script

je vais me repete mais ce sujet n'est pas note, c'est juste pour apprendre ou comprendre le fonctionnement.

dsl pour les accents mais je suis en espagne et clavier qwerty c'est pas simple.

bonne journee merci d avance.

[Invité]

Un début que tu peux décliner à ta sauce : code pour lister toutes les applications intallées sur un Windows via le registre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
my $softKey = $Registry->{"LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/"}
  or  die "Can't read LMachine/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall key: $^E\n";
 
foreach(keys %$softKey) {
  my $appNAME = $softKey->{$_}{'DisplayName'} || '---';
  my $appVERSION = $softKey->{$_}{'DisplayVersion'} || '---';
  my $appEDITEUR = $softKey->{$_}{'Publisher'} || '---';
  unless ($appNAME eq '---') {
    print ("$appEDITEUR", "$appNAME", "$appVERSION")/);
  }
}