Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7732[/thread]

Teile aus Dateien in anderer Datei oder Variablen



<< >> 5 Einträge, 1 Seite
Earl_Mobilee
 2006-02-23 17:36
#63230 #63230
User since
2006-02-02
10 Artikel
BenutzerIn
[default_avatar]
Hallo allerseits,

ich habe hier den output eines perlskripts:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$VAR1 = {
  'value' => {
    '32' => {
        'interventionType' => 'Reboot HARD',
        'alertLevel' => '2',
        'interventionTypeEn' => 'HARD Reboot',
        'id' => '32',
        'comments' => 'Monitoring'
                },
    '33' => {
        'interventionType' => 'V<E9>rification des infos en base',
        'alertLevel' => '0',
        'interventionTypeEn' => 'DB value check',
        'id' => '33',
        'comments' => 'Monitoring'
                },

usw usw.

Mich interessieren aber nur die id und den dazugehoerigen
'interventiontypeEn'

Wie kann ich das einfach umstellen ungefaehr nach so:
32:HARD Reboot
33:DB value check
usw usw?

MfG Torsten\n\n

<!--EDIT|renee|1140733333-->
frodus
 2006-02-23 18:40
#63231 #63231
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
Hi,

Versuch es mal so:

Code: (dl )
1
2
3
4
5
6
our $VAR1;
do "File.output";

foreach my $key (keys %{$VAR1->{value}}) {
   print $VAR1->{value}->{$key}->{id}.": "$VAR1->{value}->{$key}->{interventionTypeEn}."\n";
}


Gruss,

Frodus
Earl_Mobilee
 2006-02-23 18:54
#63232 #63232
User since
2006-02-02
10 Artikel
BenutzerIn
[default_avatar]
Hallo,

und danke schonmal für die Hilfe.

Ich bekomme eine Fehlermeldung:

Scalar found where operator expected at testen line 7, near "": "$VAR1"
(Missing operator before $VAR1?)
syntax error at testen line 7, near "": "$VAR1"

Ich seh nicht mehr ganz durch. Sitze heute schon zu lange vor der Kiste.

MfG Torsten
frodus
 2006-02-23 19:06
#63233 #63233
User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]
[quote=frodus,23.02.2006, 17:40]Hi,

Versuch es mal so:

Code: (dl )
1
2
3
4
5
6
our $VAR1;
do "File.output";

foreach my $key (keys %{$VAR1->{value}}) {
   print $VAR1->{value}->{$key}->{id}.": "$VAR1->{value}->{$key}->{interventionTypeEn}."\n";
}


Gruss,

Frodus[/quote]
Code: (dl )
1
2
3
4
5
6
our $VAR1;
do "File.output";

foreach my $key (keys %{$VAR1->{value}}) {
   print $VAR1->{value}->{$key}->{id}.": ".$VAR1->{value}->{$key}->{interventionTypeEn}."\n";
}


O.K. Punkt vergessen! :-)

Gruss,

Frodus
Earl_Mobilee
 2006-02-23 19:17
#63234 #63234
User since
2006-02-02
10 Artikel
BenutzerIn
[default_avatar]
Hallo,

ja so sieht das doch schön aus. Vielen Dank.

67: RAM downgrade
33: DB value check
32: HARD Reboot
63: HDD addition / old HDD on Hotplug
26: Hardware diagnosis
30: RAM upgrade

Ich werd erstmal alles stehn und liegen lassen
und nach Hause gehn.

MfG
Torsten
<< >> 5 Einträge, 1 Seite



View all threads created 2006-02-23 17:36.