[langage] génération d'une liste

**BEAUJAULT** · 03/08/2004, 18h26

Bonjour tout le monde

voila je cherche à générer une liste. A priori, rien de bien compliqué. Voici ce que j'ai écris:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
   while ($num <= $total)
   {
      $test -> Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$num,$evtHashRef)
      			      or die "Can't read EventLog entry on $server\n";
 
      push @listeevent,$evtHashRef;
      # @listeevent = (@listeevent,$evtHashRef);
      $num++;
   }

Comme vous pouvez le constater, j'ai tenté 2 méthodes pour empiler la liste. Mon problème est que dés que $evtHashRef voit sa valeur changée,
il modifie tous les enregistrements de la liste.

Pour essayer d'être plus clair voici un exemple bidon mais c'est un exemple.
au premier passage la liste contient 1
au deuxième elle devrait contenir 1, 2
mais contient en réalité 2, 2

Si quelqu'un comprend moi pas.

Merci A+

**fsapet** · 03/08/2004, 18h48

salut

c'est un pb de reference selon toi ?

tu as essayer de dereferencer et de stocker la valeur dans le tableau plutot que une reference ?

**BEAUJAULT** · 04/08/2004, 10h09

non car je ne sais pas faire. Par ailleurs, la variable $evtHashRef, contient plusieur champs alors est-ce que cela peut marcher?

Si tu peux m'expliquer comment déréférencer je te dirais si ça résoud le pb.

Merci

A+

**fsapet** · 04/08/2004, 11h17

salut

c'est un peu complique,

que contient exactement la variable $evtHashRef (si je comprends bien, c'est une reference sur un hachage et il y a alors plusieurs couples cle-valeur) et que veux tu reellement stocker dans ton tableau ->tout ou seulement une valeur de cle, un couple de valeur?

**BEAUJAULT** · 04/08/2004, 11h33

Salut,

la variable contient l'ensemble des champs du journal d'événement de windows ainsi que la valeur pour chacun de ces champs.

Il me faut récupérer l'ensemble de ces valeurs afin, par la suite, de pouvoir réaliser des traitements sur chacun des évements de cette liste.

Merci

**fsapet** · 04/08/2004, 12h01

tu ne peux donc pas stocker ca dans un tableau, il te faut un hash puisque $evtHashRef pointe sur un hash,

en fait comme $evtHashRef, est une reference sur ton hash, le hash lui meme est : %{$evtHashRef}

http://www.lhullier.org/publications...html#id2469167

donc pour afficher tes valeurs tu dois faire ca :

Code :

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

1
2
3
4
5
 
foreach my $k (keys %{$evtHashRef})
{
  print "KEY: $k \tVALUE: $evtHashRef->{$k}\n";
}

je pense que ca devrait aller mieux

**BEAUJAULT** · 05/08/2004, 09h19

Désolé de ne pas avoir répondu plus tôt mais j'ai du passer sur un autre projet.

J'ai le ceque tu m'a écri et j'ai écrit ceci:

@listeevent = (@listeevent,%{$evtHashRef});

mais cela convient pas.

Est-il possible de générer une liste de liste afin d'avoir quelque chose du style:

Code :

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

1
2
3
4
5
6
7
8
 
@liste
        [0]
            valeur 1
            valeur 2
        [1]
            valeur 1
            valeur 2

ainsi, @liste[0] contient les valeurs d'un event du journal
et @liste[1] contient les valeurs d'un autre event du journal

Si tu a une idée, Je suis désolé si je ne suis pas trés clair mais je suis pas dévelloppeur et j'ai des fois du mal a tout comprendre.

Encore Merci[/code]

**fsapet** · 05/08/2004, 10h27

salut,

pour stocker ce genre de choses, il faudra que tu passes par des references, sinon tu ne peux pas stocker plusieurs scalaires dans une seule case d'un tableau (sauf si tu les concatenes avec un separateur particuleir puis tu fais un split ensuite)

Code :

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

1
2
3
4
5
6
7
@liste
        [0]
            valeur 1
            valeur 2
        [1]
            valeur 1
            valeur 2

mais sinon peux tu nous montrer ce qu'affiche le code que je t'ai donne (et d'abord est-ce-que cela affiche ce que tu voulais ?)

Code :

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

1
2
3
4
foreach my $k (keys %{$evtHashRef})
{
  print "KEY: $k \tVALUE: $evtHashRef->{$k}\n";
}

ensuite je pense que le pb sera vite resolu

**BEAUJAULT** · 05/08/2004, 10h38

Voici donc le code écrit

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
 
while ($num <= $total)
   {
      $test -> Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$num,$evtHashRef)
      			      or die "Can't read EventLog entry on $server\n";
      foreach my $k (keys %{$evtHashRef})
      {
         print "KEY: $k \tVALUE: $evtHashRef->{$k}\n";
      }
 
      #$start = $evtHashRef;
      #push @listeevent,$start;
      #@listeevent = (@listeevent,%{$evtHashRef});
      $num++;
   }

et voici ce que j'obtiens

KEY: TimeGenerated VALUE: 1089114815
KEY: ClosingRecordNumber VALUE: 0
KEY: RecordNumber VALUE: 1
KEY: User VALUE:
KEY: EventID VALUE: 1269629470
KEY: Computer VALUE: PC-BEAUJAULTA
KEY: Length VALUE: 0
KEY: Timewritten VALUE: 1089114815
KEY: Strings VALUE: Opération réussie.
KEY: EventType VALUE: 4
KEY: Source VALUE: Oakley
KEY: Data VALUE:
KEY: Category VALUE: 0
KEY: TimeGenerated VALUE: 1089114837
KEY: RecordNumber VALUE: 2
KEY: ClosingRecordNumber VALUE: 0
KEY: User VALUE:
KEY: Computer VALUE: PC-BEAUJAULTA
KEY: EventID VALUE: 1000
KEY: Length VALUE: 0
KEY: Timewritten VALUE: 1089114837
KEY: EventType VALUE: 4
KEY: Strings VALUE: Product: WebFldrs -- L'installation est terminée.KEY: Source VALUE: MsiInstaller
KEY: Category VALUE: 0
KEY: Data VALUE:

Est-ce que c'est ce qu'il te fallait

**fsapet** · 05/08/2004, 10h57

ok,

et tu veux formater tes donnees comment en sortie ?

parce que je ne vois par comment tu vas mettre ca dans un tableau ? (tu veux absolument un tableau ?)

tu veux avoir ca ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
@liste
        [0]
            VALUE: 1089114815 
            VALUE: 0 
            VALUE: 1 
            VALUE: 1269629470
            VALUE: PC-BEAUJAULTA
        [1]
            VALUE: 1089114837
            VALUE: 2 
            VALUE: 0
            VALUE: 
            VALUE: PC-BEAUJAULTA

mais la tu perds l'info concerant la cle ?
et les champs n'apparaissent pas dans le meem ordre a chaque passage dans la boucle while

**BEAUJAULT** · 05/08/2004, 11h04

Oui mais en concervant la clé.de manière à pouvoir facilement retrouver mes petits. Maintenant je ne suis pas obliger d'utiliser des tableaux c'est juste que je connais que ça pour le momment.

Si tu penses qu'il faut autre chose je prends pour vu que je sois capable d'utiliser les valeurs de la variable ailleur dans mon programme.

**fsapet** · 05/08/2004, 11h27

Essaye ca pour voir si ca correspond a ce que tu veux

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
while ($num <= $total)
   {
      $test -> Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$num,$evtHashRef)
                     or die "Can't read EventLog entry on 
 
      my %hash = %{$evtHashRef};
      @listeevent = (@listeevent,\%hash );
      $num++;
   }
 
my $count = 1;
foreach my $ref_hash (@listeevent) {
      print "Event $count\n";
      foreach my $k (keys %{$ref_hash} )
      {
         print "\tKEY: $k \tVALUE: $ref_hash->{$k}\n";
      } 
}

**fsapet** · 05/08/2004, 11h29

Essaye ca pour voir si ca correspond a ce que tu veux

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
while ($num <= $total)
   {
      $test -> Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$num,$evtHashRef)
                     or die "Can't read EventLog entry on 
 
      my %hash = %{$evtHashRef};
      @listeevent = (@listeevent,\%hash );
      $num++;
   }
 
my $count = 1;
foreach my $ref_hash (@listeevent) {
      print "Event $count\n";
      foreach my $k (keys %{$ref_hash} )
      {
         print "\tKEY: $k \tVALUE: $ref_hash->{$k}\n";
      } 
}

**BEAUJAULT** · 05/08/2004, 11h51

Génial voici ce qui ressort:

Event 0
KEY: TimeGenerated VALUE: 1089114815
KEY: RecordNumber VALUE: 1
KEY: ClosingRecordNumber VALUE: 0
KEY: User VALUE:
KEY: Computer VALUE: PC-BEAUJAULTA
KEY: EventID VALUE: 1269629470
KEY: Length VALUE: 0
KEY: Timewritten VALUE: 1089114815
KEY: EventType VALUE: 4
KEY: Strings VALUE: Opération réussie.
KEY: Source VALUE: Oakley
KEY: Category VALUE: 0
KEY: Data VALUE:
Event 1
KEY: TimeGenerated VALUE: 1089114837
KEY: ClosingRecordNumber VALUE: 0
KEY: RecordNumber VALUE: 2
KEY: User VALUE:
KEY: EventID VALUE: 1000
KEY: Computer VALUE: PC-BEAUJAULTA
KEY: Length VALUE: 0
KEY: Timewritten VALUE: 1089114837
KEY: Strings VALUE: Product: WebFldrs -- L'installation est terminée. KEY: EventType VALUE: 4
KEY: Source VALUE: MsiInstaller
KEY: Data VALUE:
KEY: Category VALUE: 0
Event 2
KEY: TimeGenerated VALUE: 1089115827
KEY: ClosingRecordNumber VALUE: 0
KEY: RecordNumber VALUE: 3
KEY: User VALUE:
KEY: EventID VALUE: 1000
KEY: Computer VALUE: PC-BEAUJAULTA
KEY: Length VALUE: 0
KEY: Timewritten VALUE: 1089115827
KEY: Strings VALUE: Product: Windows 2000 Support Tools -- Installation operation completed successfully. KEY: EventType VALUE: 4
KEY: Source VALUE: MsiInstaller
KEY: Data VALUE:
KEY: Category VALUE: 0

Si j'ai bien compris si je veux récupérer par exemple la valeur de EventID pour l'enregistrement 0 je dois écrire:

Code :

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

1
2
3
4
 
foreach my $test (@listeevent) {
     $test{EventID};
}

**fsapet** · 05/08/2004, 12h03

tu peux acceder directement a ta reference de hash en faisant

$hashref = $tab[0];
pour avoir les info de l'enregistrement 0

**BEAUJAULT** · 05/08/2004, 12h07

Merci pour toutes ces explications cela m'a permis de faire un grand pas en avant.

A+

**BEAUJAULT** · 05/08/2004, 12h16

Dernière toute petite question comment vider toute la variable @listeevent

**fsapet** · 05/08/2004, 12h32

je ne sais pas
et je ne sais pas si c'est utile comme en C pour recup de la memoire,

je demande l'avis de plus specialistes que moi !!!

**Choupi** · 05/08/2004, 12h36

Hum comme fsapet je sais pas si ca sert ... sinon :

Code :

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

@tab = undef;

je pense que ca convient non ?

**BEAUJAULT** · 05/08/2004, 12h37

Entre temps j'ai trouvé une solution:

Code :

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

1
2
3
 
 
@listeevent= splice(@listeevent,@listeevent,@listeevent);

cela semble bien fonctionner

[langage] génération d'une liste

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager