In eine bestehende Datenstrucktur weiteren wert einfügen (Allgemeines zu Perl)

[thread]16901[/thread]

In eine bestehende Datenstrucktur weiteren wert einfügen

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+2 replies

Xertno

2011-11-09 16:55

User since
2011-10-18
18 Artikel
BenutzerIn
[default_avatar]

Hi ich habe ein Problem mit diesen Codezeilen

Code (perl): (dl )

...
      my %DateName=("WarningPerFile"=> {"$resultFilePath" => "$resultFileWarning"});      
      push(@outputArray,%DateName);
...

sie befindet sich in einer for Schleife welche ein Array durchsucht und wenn bestimmte Bedingungen erfüllt sind $resultFilePath und $resultFileWarning befüllt bzw. anschließend in ein Array schreibt was dann ebenfalls Teil einer Datenstruktur ist. Die Ausgabe nach der For-Schleife ist dann:

Code: (dl )

$VAR1 = [
          'WarningPerFile',
          {
            'flux.h' => '44'
          },
          'WarningPerFile',
          {
            'file.h' => '0'
          },
          'WarningPerFile',
          {
            'utils.h' => '1'
          },
          'WarningPerFile',
          {
            'mainloop.c' => '64'
          },
          'WarningPerFile',
          {
            'bootchart.c' => '23'
          },
          'WarningPerFile',
          {
            'cgroups.h' => '2'
          },
          'WarningPerFile',
          {
            'cgroups.c' => '24'
          },
          'WarningPerFile',
          {
            'file.c' => '17'
          },
          'WarningPerFile',
          {
            'gflux.h' => '0'
          },
          'WarningPerFile',
          {
            'action.c' => '23'
          },
          'WarningPerFile',
          {
            'atomic.h' => '16'
          },
          'WarningPerFile',
          {
            'rbtree.c' => '10'
          },
          'WarningPerFile',
          {
            'main.c' => '1'
          },
          'WarningPerFile',
          {
            'flux.c' => '23'
          },
          'WarningPerFile',
          {
            'log.c' => '3'
          },
          'WarningPerFile',
          {
            'utils.c' => '8'
          }
        ];

Prinzipiell ist nachvollziehbar warum das so nicht so ist wie ich es gern hätte.
Ich hätte es gern so:

Code: (dl )

$VAR1 = [
          'WarningPerFile',
          {
            'flux.h' => '44'
            'file.h' => '0'
            'utils.h' => '1'
            'mainloop.c' => '64'
            'bootchart.c' => '23'
            'cgroups.h' => '2'
            'cgroups.c' => '24'
            'file.c' => '17'
            'gflux.h' => '0'
            'action.c' => '23'
            'atomic.h' => '16'
            'rbtree.c' => '10'
            'main.c' => '1'
            'flux.c' => '23'
            'log.c' => '3'        
            'utils.c' => '8'
          }
        ];

Die Frage ist also wie schaffe ich es in einen bereits bestehenden "key" (WarningPerFile) einen weiteren Eintag zu machen?

pq

2011-11-09 17:07
User since
2003-08-04
12208 Artikel
Admin1
Code (perl): (dl )

$hash{WarningPerFile}->{$resultFilePath} = $resultFileWarning
oder bei einer hashref:
Code (perl): (dl )

$hashref->{WarningPerFile}->{$resultFilePath} = $resultFileWarning
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2011-11-09 16:55.