Discussion :

[djibril]

Salut,
Question bête, vu qu'activeperl comme JAVA ne dispose pas d'exécutable de désinstallation, comment faire si on veut lancer la désinstallation de perl en ligne de commande?
Afin de ne pas passer par le panneau de configuration sous windows.

Merci

[pomoxp]

Il faut utiliser msiexec comme cela :

Code :

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

1
2
 
  msiexec /qn /x {061CE7E5-0115-4BB6-8381-47C602B98C7D}'

Il faut juste avoir le bon code entre {....} qui dépend du Perl installé.

[djibril]

où est ce que se trouve ce code sur le PC?

[djibril]

bon c'est OK. En mettant le nom du package, c'est suffisant.
http://technet2.microsoft.com/window....mspx?mfr=true

Merci

[pomoxp]

Dans la base de registre windows.

1)
Regarde ici :
http://support.microsoft.com/kb/296067

2)
Sinon dans la log d'install silencieuse de Perl

3)
Et enfin la commande DOS qui tue :

Code :

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

1
2
 
for /f "tokens=7 delims=\" %a in ('reg query hklm\software\microsoft\windows\currentversion\uninstall ^| FIND "{"') do for /f "tokens=2,*" %c in ('reg query hklm\software\microsoft\windows\currentversion\uninstall\%a ^|  find /i "DisplayName"') do echo %d,%a>>GUIDSoftware.txt

Merci qui ?

[djibril]

merci pomoxp

[djibril]

log d'install silencieuse de Perl, où se cache t il?
Sinon, je vais essayer de convertir ta commande Dos en perl

[pomoxp]

Et bien lorsque j'installe ActivePerl en installation silencieuse, je crée un fichier de log au cas où.

Voici mon script BAT d'installation :

Code :

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

1
2
3
4
5
6
 
@echo off
echo. Automatic installation of ActivePerl-5.8.8.822-MSWin32-x86-280952.msi
echo. under D:\APPS
 
msiexec /qb /l* ActivePerl.log /i ActivePerl-5.8.8.822-MSWin32-x86-280952.msi ADDLOCAL="PERL_FEATURE,PPM,PERLIS,PERLSE,EXAMPLES,DOCUMENTATION" PERL_PATH=Yes PERL_EXT=Yes TARGETDIR="D:\APPS"

Ensuite dans la log, tu peux rechercher ProductCode= pour voir le fameux code GUID qui permet d'identifier notamment les applications installés sous Windows.

Voilou
PS: si tu convertis la commande Dos en Perl avec un module Win32..., je suis intéressé

[djibril]

Bon, j'ai fait tout en perl.

Je te met le code que tu peux utiliser pour d'autre logiciel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
 
 
if ( my $RefInfoPerl = GetProductCode("ActivePerl") ) { 
  foreach ( keys %{$RefInfoPerl} ) {
    print "$_ : $RefInfoPerl->{$_}\n";
  }
}
 
 
sub GetProductCode {
  unless ( scalar(@_) == 1 || scalar(@_) == 2 ) {
    my $Usage = <<'FIN_USAGE';
      Usage: GetProductCode($Name, $RegistryPath);
      my $Name = "ActivePerl";
      my $RegistryPath = "HKEY_LOCAL_MACHINE/Software/microsoft/windows/currentversion/uninstall";
FIN_USAGE
    die($Usage);
  }
 
  my $Name         = shift;
  my $RegistryPath = shift || "LMachine/Software/microsoft/windows/currentversion/uninstall";
  my %InfoProduct;
 
  use Win32::TieRegistry;
  $Registry->Delimiter("/");
  $Registry->ArrayValues(1);
 
  my $SubKey = $Registry->{$RegistryPath};
  foreach my $key ( keys %{$SubKey} ) {
     my $RefName = $SubKey->{$key}{DisplayName};
     if ( $RefName and $RefName->[0] =~ m{$Name}i ) {
        $key =~ s{/$}{};
        %InfoProduct = (
            "Code"            => $key,
            "DisplayName"     => $SubKey->{$key}{DisplayName}->[0],
            "InstallLocation" => $SubKey->{$key}{InstallLocation}->[0],
            "DisplayVersion"  => $SubKey->{$key}{DisplayVersion}->[0],
            "InstallDate"     => $SubKey->{$key}{InstallDate}->[0],
          );
       last;
     }
  }
 
  return \%InfoProduct;
 
}

Explications dans les tutoriels et cours de formation pour apprendre le langage Perl : http://perl.developpez.com/cours/