bisherige Skriptausgabe soll zusammengeführt werden (Allgemeines zu Perl)

[thread]16779[/thread]

bisherige Skriptausgabe soll zusammengeführt werden

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+13 replies
choff

2011-10-05 18:14
User since
2011-10-05
12 Artikel
BenutzerIn
Hallo,
ich habe wenig Ahnung von Perl, möchte aber gern ein kleines Skript schreiben.

Und zwar habe ich zwei Skalare mit bestimmten Informationen.

Nun sollen die beiden gemergt werden. Beide Skalare enthalten die ElementID, eine hexadezimale Zeichenfolge. Jetzt möchte ich gern, dass im Skalar 2 der ElementName zur zugehörigen ElementID zugeordnet wird. Der ElementName ist nur in Skalar 1 verfügbar. Also kurz gesagt, soll dann ein neues Skalar entstehen, welches die Informationen aus Skalar2 enthält zuzüglich des ElementNamens, der nur in Skalar1 zu sehen ist.

Wie stelle ich das jetzt am besten an? Mit Regex?

Ausgabe:
Code: (dl )

1 2 3 4 5

CreationClassName|ElementName|ElementID|OnTimeInMilliseconds Msvm_ComputerSystem|DevManage|0454C4E6-2C92-41C1-A5FD-D9F145D798D4|1051510957 CreationClassName|DeviceID|LoadPercentage|SystemCreationClassName|ElementID Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|0454C4E6-2C92-41C1-A5FD-D9F145D798D4
Skript:
Code: (dl )

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w use strict; my ($skalar1, $skalar2); $skalar1 = "wird gefüllt durch spezielle Abfrage"; $skalar2 = "wird gefüllt durch spezielle Abfrage"; print "$skalar1\n\n$skalar2\n";
Last edited: 2011-10-05 18:29:15 +0200 (CEST)
- bianca
  
  2011-10-05 18:41
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Vielleicht hilft die Funktion split() dabei?
  Damit kann man die Skalare schonmal in seine Teile vor und hinter | zerlegen in ein Array.
  10 print "Hallo"
  20 goto 10
- +11 replies
- payx
  
  2011-10-06 11:08
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo choff,
  
  hier ein Script, das ungefähr das tut, was Du vermutlich willst:
  
  Code (perl): (dl )
  
  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 51 52 53 54 55 56
  
  #!/usr/bin/perl use strict; use warnings; my %elements; # HOH key = ElementId, value = Hashref gemergeter Datensatz # Arrays für die Werte in je einer Zeile my @keys; my @values; # Daten einlesen und HoH befüllen while (my $row = <DATA>) { chomp $row; if ($row =~ m/ElementID/) { # eine Key-Zeile @keys = split(/\|/, $row); @values = (); # neue Key-Zeile, daher Values löschen } elsif ($row =~ /\|/) { # eine Value-Zeile @values = split(/\|/, $row); } else { # eine leere Zeile next; } if (@keys and @values) { die "Ungleiche Anzahl keys und values!" unless scalar @keys == scalar @values; my %entry; for my $i (0..$#keys) { # temporärer Hash, weil Id noch nicht bekannt $entry{$keys[$i]}=$values[$i]; } @keys = (); # Die Arrays leeren für den nächsten Datensatz @values = (); die "Keine ElementID!" unless my $id = $entry{'ElementID'}; for my $key (keys %entry) { # Hashref auffüllen $elements{$id}->{$key}=$entry{$key}; } } } # Ausgabe Ergebnis: for my $elementId (keys %elements) { my %entry = %{$elements{$elementId}}; # Hashref dereferenzieren print join("|", keys %entry) . "\n"; print join("|", values %entry) . "\n"; } __DATA__ CreationClassName|ElementName|ElementID|OnTimeInMilliseconds Msvm_ComputerSystem|DevManage|0454C4E6-2C92-41C1-A5FD-D9F145D798D4|1051510957 CreationClassName|DeviceID|LoadPercentage|SystemCreationClassName|ElementID Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|0454C4E6-2C92-41C1-A5FD-D9F145D798D4
  
  Sicher nicht maximal elegant ...
  
  HTH
  Grüße
  payx
  - choff
    
    2011-10-06 13:33
    
    User since
    2011-10-05
    12 Artikel
    BenutzerIn
    
    Vielen Dank für die Hilfe, ich werde mir das jetzt mal genauer anschauen und kann dann ja berichten :)
  - +9 replies
  - choff
    
    2011-10-07 10:43
    User since
    2011-10-05
    12 Artikel
    BenutzerIn
    
    Ok funktioniert und kann ich soweit auch nach voll ziehen....
    
    Wenn ich jetzt aber mehr als eine Zeile habe, dann gibt er trotzdem nur die eine aus. An welcher Stelle muss ich da drehen?
    
    Code: (dl )
    
    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
    
    __DATA__ CreationClassName|ElementName|ElementID|OnTimeInMilliseconds Msvm_ComputerSystem|DevManage|0454C4E6-2C92-41C1-A5FD-D9F145D798D4|1051510957 Msvm_ComputerSystem|Goliat4|0AF25718-009E-4D1A-919F-9E0DB2648AEA|1198063907 Msvm_ComputerSystem|CactiEZ|1C75D9AF-C0C3-4D10-B100-E95B7445DF22|1198224173 Msvm_ComputerSystem|Leowsuse3|1D05E39D-EB23-4E9C-BB73-390193B08C7A|630592142 Msvm_ComputerSystem|IPplan|23202E3D-9C0E-418D-9698-4C849901C087|0 Msvm_ComputerSystem|W2k-XP-W2k3|2E134AE0-39B8-43A7-8865-7D6568DD8FFA|1198919452 Msvm_ComputerSystem|Erwin2test|3DD2DE49-6AC5-4B5A-AD3C-0563C7890DFC|0 Msvm_ComputerSystem|Leowsuse|558A0B1E-19DF-48B8-AEEF-1C981109A1BC|1198814872 Msvm_ComputerSystem|Enterprise|6A07D0CA-5CB5-4A77-A385-57D0A0FF1DE9|1198093146 Msvm_ComputerSystem|Nero|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4|1195788608 Msvm_ComputerSystem|ADMTL02|9120EA07-BC2D-4D4E-9DAB-DEA283329250|1198604504 Msvm_ComputerSystem|G5Kopie|B055A594-AEC1-4289-AC9D-0BDBFB89ED59|0 Msvm_ComputerSystem|ADMTL04|B760EB72-88B5-4EB7-AFFF-A92DDFC60AC2|1198453806 Msvm_ComputerSystem|observer|B8B57A6C-30A1-49DF-B703-0A1FB4F749D8|1199030741 Msvm_ComputerSystem|Emil|C8A53044-6D54-45BA-ADD0-8FBF58060784|1195700155 Msvm_ComputerSystem|SQELSA|D2B60270-5159-4584-B7A3-6F258CFF16A1|1198965313 Msvm_ComputerSystem|Nhand01|DAC4F1DE-0B96-4451-AA67-4C6C3CEEE4D2|1195943565 Msvm_ComputerSystem|ADMTL01|DBC49355-FF05-4DBE-9BAF-FF40AE0BE3D4|606852144 Msvm_ComputerSystem|Goliat5|E1B1B665-2390-467C-BD70-2F697A973340|679830529 Msvm_ComputerSystem|Test W2k3|F0FB37C2-199E-44DC-9751-5DFE30758305|1198938024 Msvm_ComputerSystem|Acslpz01|FAF99B6C-654D-4423-B952-91D9CAAC2807|1198698286 Msvm_ComputerSystem|ADMTL03|FF53299C-4324-4A48-812F-8C38D264A340|1198564413 CreationClassName|DeviceID|LoadPercentage|SystemCreationClassName|ElementID Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|0454C4E6-2C92-41C1-A5FD-D9F145D798D4 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|0AF25718-009E-4D1A-919F-9E0DB2648AEA Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|1C75D9AF-C0C3-4D10-B100-E95B7445DF22 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|1D05E39D-EB23-4E9C-BB73-390193B08C7A Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|2E134AE0-39B8-43A7-8865-7D6568DD8FFA Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|558A0B1E-19DF-48B8-AEEF-1C981109A1BC Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|15|Msvm_ComputerSystem|6A07D0CA-5CB5-4A77-A385-57D0A0FF1DE9 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\1|1|Msvm_ComputerSystem|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|9120EA07-BC2D-4D4E-9DAB-DEA283329250 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|B760EB72-88B5-4EB7-AFFF-A92DDFC60AC2 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|B8B57A6C-30A1-49DF-B703-0A1FB4F749D8 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|C8A53044-6D54-45BA-ADD0-8FBF58060784 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|D2B60270-5159-4584-B7A3-6F258CFF16A1 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|DAC4F1DE-0B96-4451-AA67-4C6C3CEEE4D2 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|DBC49355-FF05-4DBE-9BAF-FF40AE0BE3D4 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|94|Msvm_ComputerSystem|E1B1B665-2390-467C-BD70-2F697A973340 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\1|92|Msvm_ComputerSystem|E1B1B665-2390-467C-BD70-2F697A973340 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|F0FB37C2-199E-44DC-9751-5DFE30758305 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|7|Msvm_ComputerSystem|FAF99B6C-654D-4423-B952-91D9CAAC2807 Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|FF53299C-4324-4A48-812F-8C38D264A340
    - +8 replies
    - payx
      
      2011-10-07 12:23
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo choff,
      
      es genügt, wenn Du Zeile 32 @keys = (); löschst oder auskommentierst, dann wird eine key-Zeile solange verwendet, bis eine neue key-Zeile eingelesen wird.
      
      Die Ausgabe ist dann aber weiterhin abwechselnd eine Überschriftszeile, eine Wertezeile, das wirst Du vermutlich noch anpassen wollen. Beachte aber, dass nicht alle Datensätze vollständig sind, z.B. ID 23202E3D-9C0E-418D-9698-4C849901C087 gibt es nur einmal.
      
      Wie soll das Ergebnis denn aussehen bzw. verarbeitet werden?
      
      Grüße
      payx
      - +7 replies
      - choff
        
        2011-10-07 16:02
        
        User since
        2011-10-05
        12 Artikel
        BenutzerIn
        
        Oh ja das stimmt, da wird eine Zeile weniger ausgegeben, als ich dachte. Also eiglt sind das 2 Abfragen über die Kommandozeile. Es werden Infos über mehrere virtuelle Maschinen ausgegeben. Ich möchte gern die Uptime und Load auswerten lassen, aber zum zugehörigen Element Namen. Leider beinhaltet die eine Frage nicht den Element Namen. Nur die ID auszugeben bringt mir nix, weil damin kann ich ja nix anfangen, und weiß nciht welche Maschine welche Uptime hat. Das ist der eiglt Sinn dahinter. Ich suche nach der besten Möglichkeit das herauszufiltern.
        
        +6 replies
        
        payx
        
        2011-10-07 16:56
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo choff,
        
        2011-10-07T14:02:19 choff
        Oh ja das stimmt, da wird eine Zeile weniger ausgegeben, als ich dachte.
        
        Das betrifft wohl eher die Datenquelle, weniger die Programmierung.
        
        Hier ein Vorschlag für eine schönere Ausgabe des Ergebnisses, basierend auf Deinen letzten Auskünften über den Zweck der Übung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        # Ausgabe Ergebnis: my @header = qw(ElementName OnTimeInMilliseconds LoadPercentage); print join("|", @header) . "\n"; for my $elementId (keys %elements) { my @entry = map {defined $elements{$elementId}->{$_} ? $elements{$elementId}->{$_} : ''} @header; print join("|", @entry) . "\n"; }
        
        (ersetzt den Teil ab Zeile 41).
        
        Wenn Du in Zeile 43 und 49 (neu) bei join jeweils statt "|" "\t" schreibst, bekommst eine Tabulator-getrennte Liste, die Du in OpenOffice Calc oder MS Excel usw. pasten kannst.
        
        HTH
        Grüße
        payx
        
        +5 replies
        
        choff
        
        2011-10-07 17:16
        
        User since
        2011-10-05
        12 Artikel
        BenutzerIn
        
        Das ist einfach nur perfekt...
        
        Zu der Zeile weniger: ich meine die Ausgabe beim Kommandozeilenbefehl, verstehe nur nicht ganz warum er dort die Zeile nicht ausgibt, aber das ist ein anderes Problem.
        
        Mit qw() erzeugst du den Tabellenkopf oder?
        Aber dann wirds verwirrend, was passiert denn da alles in Zeile 7? Und warum gibt es bei Perl so unendlich viele Funktionen? ;)
        
        Vielen Dank für die Hilfe!!!
        
        +4 replies
        
        payx
        
        2011-10-08 11:59
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo choff,
        
        meine Lösung ist eigentlich sehr wenig künstlerisch, hier gibt es Leute, die dasselbe möglicherweise in einen Einzeiler gezaubert hätten. Und so enorm viele Funktionen gibt es in Perl eigentlich auch wieder nicht, es ist mehr die Vielfalt der Möglichkeiten, zu demselben Ergebnis zu kommen, die einen mal verwirrt, mal erfreut.
        
        qw(a b c) ist dasselbe wie ('a', 'b', 'c') siehe Quote-Like-Operators in perlop.
        
        In Zeile 7 geschieht zweierlei:
        
        Code (perl): (dl )
        
        my @entry = map {$elements{$elementId}->{$_}} @header;
        
        tut dasselbe wie
        
        Code (perl): (dl )
        
        1 2 3 4
        
        my @entry; for my $col (@header) { push @entry, $elements{$elementId}->{$col}; }
        
        – nur eben ohne Schleife, siehe map.
        
        Wenn Du das so laufen lässt, bekommst Du bei fehlenden Werten Warnings uninitialized, deshalb ersetzt der eingebettete Ausdruck
        
        Code (perl): (dl )
        
        defined $elements{$elementId}->{$_} ? $elements{$elementId}->{$_} : ''
        
        die null-Werte durch empty String.
        
        HTH
        Grüße
        payx
        
        +3 replies
        
        choff
        
        2011-10-10 10:16
        
        User since
        2011-10-05
        12 Artikel
        BenutzerIn
        
        So bis jetzt lese ich die Daten ja aus __DATA__ ein. Jetzt möchte ich diese Daten direkt mit Befehlen in einem Skalar speichern. Also:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        ... my $cmd = "Befehl1"; my $cmmd = "Befehl2"; my $output = `$cmd & $cmmd`;#gleicher Inhalt wie __DATA__ # Daten einlesen und HoH befüllen while (my $row = $output) { #so hatte ich mir das gedacht, anstatt __DATA__ chomp $row; if ($row =~ m/ElementID/) { # eine Key-Zeile @keys = split(/\|/, $row); @values = (); # neue Key-Zeile, daher Values löschen } elsif ($row =~ /\|/) { # eine Value-Zeile @values = split(/\|/, $row); } else { # eine leere Zeile next; } ...
        
        Zum Test habe ich $output mal ausgeben lassen, die while schleife und den rest dabei auskommentiert. Aber so einfach funktioniert das sicher nicht :(
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        #!/usr/bin/perl use strict; use warnings; my %elements; # HOH key = ElementId, value = Hashref gemergeter Datensatz # Arrays fï¿½r die Werte in je einer Zeile my @keys; my @values; my $row; my $cmd = "Befehl1"; my $cmmd = "Befehl2"; my $output = `$cmd & $cmmd`; print $output;
        
        CreationClassName|ElementName|Name|OnTimeInMilliseconds
        Msvm_ComputerSystem|GWENT01|GWENT01|0
        Msvm_ComputerSystem|DevManage|0454C4E6-2C92-41C1-A5FD-D9F145D798D4|1457375906
        Msvm_ComputerSystem|Goliat4|0AF25718-009E-4D1A-919F-9E0DB2648AEA|1456673478
        Msvm_ComputerSystem|CactiEZ|1C75D9AF-C0C3-4D10-B100-E95B7445DF22|1456833743
        Msvm_ComputerSystem|Leowsuse3|1D05E39D-EB23-4E9C-BB73-390193B08C7A|889201713
        Msvm_ComputerSystem|IPplan|23202E3D-9C0E-418D-9698-4C849901C087|0
        Msvm_ComputerSystem|W2k-XP-W2k3|2E134AE0-39B8-43A7-8865-7D6568DD8FFA|1457529023
        Msvm_ComputerSystem|Erwin2test|3DD2DE49-6AC5-4B5A-AD3C-0563C7890DFC|0
        Msvm_ComputerSystem|Leowsuse|558A0B1E-19DF-48B8-AEEF-1C981109A1BC|1457424443
        Msvm_ComputerSystem|Enterprise|6A07D0CA-5CB5-4A77-A385-57D0A0FF1DE9|1456702718
        Msvm_ComputerSystem|Nero|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4|1454398178
        Msvm_ComputerSystem|ADMTL02|9120EA07-BC2D-4D4E-9DAB-DEA283329250|1457214075
        Msvm_ComputerSystem|G5Kopie|B055A594-AEC1-4289-AC9D-0BDBFB89ED59|0
        Msvm_ComputerSystem|ADMTL04|B760EB72-88B5-4EB7-AFFF-A92DDFC60AC2|1457063376
        Msvm_ComputerSystem|observer|B8B57A6C-30A1-49DF-B703-0A1FB4F749D8|1457640312
        Msvm_ComputerSystem|Emil|C8A53044-6D54-45BA-ADD0-8FBF58060784|1454309725
        Msvm_ComputerSystem|SQELSA|D2B60270-5159-4584-B7A3-6F258CFF16A1|1457574883
        Msvm_ComputerSystem|Nhand01|DAC4F1DE-0B96-4451-AA67-4C6C3CEEE4D2|1454553135
        Msvm_ComputerSystem|ADMTL01|DBC49355-FF05-4DBE-9BAF-FF40AE0BE3D4|865461715
        Msvm_ComputerSystem|Goliat5|E1B1B665-2390-467C-BD70-2F697A973340|938440100
        Msvm_ComputerSystem|Test W2k3|F0FB37C2-199E-44DC-9751-5DFE30758305|1457547593
        Msvm_ComputerSystem|Acslpz01|FAF99B6C-654D-4423-B952-91D9CAAC2807|1457307857
        Msvm_ComputerSystem|ADMTL03|FF53299C-4324-4A48-812F-8C38D264A340|1457173984
        
        CreationClassName|DeviceID|LoadPercentage|SystemCreationClassName|SystemName
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|0454C4E6-2C92-41C1-A5FD-D9F145D798D4
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|0AF25718-009E-4D1A-919F-9E0DB2648AEA
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|1C75D9AF-C0C3-4D10-B100-E95B7445DF22
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|1D05E39D-EB23-4E9C-BB73-390193B08C7A
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|2E134AE0-39B8-43A7-8865-7D6568DD8FFA
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|558A0B1E-19DF-48B8-AEEF-1C981109A1BC
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|6A07D0CA-5CB5-4A77-A385-57D0A0FF1DE9
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\1|1|Msvm_ComputerSystem|6A1E7AF0-D76F-4EA8-BA2A-37C7E32454C4
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|9120EA07-BC2D-4D4E-9DAB-DEA283329250
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|B760EB72-88B5-4EB7-AFFF-A92DDFC60AC2
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|B8B57A6C-30A1-49DF-B703-0A1FB4F749D8
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|3|Msvm_ComputerSystem|C8A53044-6D54-45BA-ADD0-8FBF58060784
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|D2B60270-5159-4584-B7A3-6F258CFF16A1
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|DAC4F1DE-0B96-4451-AA67-4C6C3CEEE4D2
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|DBC49355-FF05-4DBE-9BAF-FF40AE0BE3D4
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|96|Msvm_ComputerSystem|E1B1B665-2390-467C-BD70-2F697A973340
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\1|94|Msvm_ComputerSystem|E1B1B665-2390-467C-BD70-2F697A973340
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|0|Msvm_ComputerSystem|F0FB37C2-199E-44DC-9751-5DFE30758305
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|2|Msvm_ComputerSystem|FAF99B6C-654D-4423-B952-91D9CAAC2807
        Msvm_Processor|Microsoft:b637f346-6a0e-4dec-af52-bd70cb80a21d\0|1|Msvm_ComputerSystem|FF53299C-4324-4A48-812F-8C38D264A340
        
        Wie löse ich das nun wieder?
        
        +2 replies
        
        payx
        
        2011-10-10 12:14
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo choff,
        
        ersetze in Zeile 7 (Dein letztes Snippet)
        
        Code (perl): (dl )
        
        while (my $row = $output) {
        
        durch
        
        Code (perl): (dl )
        
        for my $row (split "$/", $output) {
        
        Das sollte dann klappen.
        
        Das ganze Vorgehen gefällt mir jetzt, nachdem ich etwas mehr weiß, aber nicht mehr so sehr gut. Die Befehlsausgaben scheinen ja eine recht klare Struktur zu haben, da ist es eher ungünstig, sie in eine einzige Variable zu stopfen, aus der man dann die Struktur wieder herausfiltern muss (Überschriftzeile identifizieren). Besser wäre es gewesen, die beiden Befehlsausgaben getrennt zu behandeln.
        
        HTH
        Grüße
        payx
        
        choff
        
        2011-10-10 14:22
        
        User since
        2011-10-05
        12 Artikel
        BenutzerIn
        
        Ja da habe ich dir am Anfang wohl zu wenig verraten, habs mir nicht so kompliziert vorgestellt, oder ich habs komplizierter gemacht als es ist. Vorallem, da ich die Ausgabe am Anfang vereinfacht habe. Die Überschriftenzeile bei den beiden Befehlsausgaben sind etwas anders:
        befehl1:
        CreationClassName|ElementName|Name|OnTimeInMilliseconds
        
        befehl2:
        CreationClassName|DeviceID|LoadPercentage|SystemCreationClassName|SystemName
        
        Ich hatte aus Name und SystemName ElementID zum besseren Verständnis gemacht, aber das sollte nicht das Problem sein. Trotzdem vielen Dank für die Hilfe, ich werde weiter probieren :)

View all threads created 2011-10-05 18:14.