XML::Simple Problem (in Hash fehlt Root-Element) (gelöst) (Fragen zu Perl-Modulen)

[thread]17221[/thread]

XML::Simple Problem (in Hash fehlt Root-Element) [gelöst]

Tags: perl5 XML::Simple Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies

Gast FlorianL

2012-03-06 14:54

hi!

ich habe eine xml datei mit folgendem inhalt:

Code: (dl )

<?xml version='1.0'?>
<config>
        <system>
                <daemon>1</daemon>
                <webserver>1</webserver>
                <admin>m1ndfuck</admin>
                <adminpass>test</adminpass>
        </system>
        <network>
                <device1>wlan0</device1>
                <device1mac></device1mac>
                <device2>eth1</device2>
                <device2mac></device2mac>
        </network>
        <scan>
                <channel>6</channel>
        </scan>
        <attack>
                <spoof>1</spoof>
                <spoofmac></spoofmac>
        </attack>
        <logging>
                <uselog>1</uselog>
                <loglocation>aircracker.log</loglocation>
        </logging>
</config>

und versuche einen wert auszulesen:

Code (perl): (dl )

use XML::Simple;
use Data::Dumper;
my $cfg = XMLin('aircracker.conf');

sub getcfg {
        my $value = shift;
        if ($value eq 'daemon') {
                return $cfg->{config}{system}{daemon};
        }
}
print Dumper($cfg);
print getcfg('daemon');

bekomme aber diese meldung:

Code: (dl )

$VAR1 = {
          'logging' => {
                       'uselog' => '1',
                       'loglocation' => 'aircracker.log'
                     },
          'network' => {
                       'device2mac' => {},
                       'device1' => 'wlan0',
                       'device1mac' => {},
                       'device2' => 'eth1'
                     },
          'scan' => {
                    'channel' => '6'
                  },
          'system' => {
                      'admin' => 'm1ndfuck',
                      'adminpass' => 'test',
                      'daemon' => '1',
                      'webserver' => '1'
                    },
          'attack' => {
                      'spoofmac' => {},
                      'spoof' => '1'
                    }
        };
Use of uninitialized value in print at ./aircracker.pl line 15.

(line 15 ist die print getcfg()-sub)

sieht jemand was ich nicht sehe oder mach ichs grundlegend falsch?

modedit Editiert von pq: code-tags

modedit Editiert von GwenDragon: Titel ergänzt
Last edited: 2012-03-06 17:12:38 +0100 (CET)

+2 replies
topeg

2012-03-06 16:34

User since
2006-07-10
2611 Artikel
BenutzerIn

Bei den Defaulteinstellungen schluckt XML::Simple die unterste Ebene. In deinem Fall "config". Mach mal in der sub return $cfg->{system}{daemon};

"undef" wird zurückgeben, weil es den Eintrag "{config}{system}{daemon}" nicht gbt. er wird angelegt, hat aber keinen Wert.
- pq
  
  2012-03-06 17:29
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  2012-03-06T15:34:21 topeg
  "undef" wird zurückgeben, weil es den Eintrag "{config}{system}{daemon}" nicht gbt. er wird angelegt, hat aber keinen Wert.
  
  durch den lesenden zugriff auf $ref->{config}->{system}->{daemon} wird nur $ref->{config}->{system} angelegt, nicht $ref->{config}->{system}->{daemon} selbst
  Last edited: 2012-03-06 17:33:23 +0100 (CET)
  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
GwenDragon

2012-03-06 17:04

User since
2005-01-17
14748 Artikel
Admin1

Wenn du das Rootelement auch brauchst, musst du bei XMLIn folgenden Parameter mitgeben: KeepRoot => 1

Siehe https://metacpan.org/module/XML::Simple#KeepRoot-1...
Last edited: 2012-03-06 17:05:38 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
pq

2012-03-06 17:30

User since
2003-08-04
12208 Artikel
Admin1

wird bald verschoben nach Fragen zu Perl-Modulen
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
+4 replies

jan

2012-03-06 19:34

User since
2003-08-04
2536 Artikel
ModeratorIn

Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen

+3 replies

Gast FlorianL

2012-03-07 14:26

dank euch! hat mir geholfen :)

nächste frage: ich möchte nun da ich die xml lesen kann auch wieder einzelne werte speichern lassen, allerdings ist mir die XMLout() funktion nicht ganz klar...

Code (perl): (dl )

use XML::Simple;
my $cfg = XMLin('aircracker.conf', KeepRoot => 1);

sub cfghandler {
        my $cmd = shift;
        my $option = shift;
        my $value = shift;
        my $xml;
        if (($cmd eq 'read') && ($option) && (!$value)) {
        } elsif (($cmd eq 'write') && ($option) && ($value)) {
                if ($option eq 'daemon') {
                        $xml = { 'system' => { 'daemon' => "$value" } };
                        print XMLout( { config => $xml }, AttrIndent => 1, KeepRoot => 1, NoAttr => 1, OutputFile => $cfg );
                }

Code (perl): (dl )

cfghandler("write","daemon","test");

Quote
Can't call method "print" on unblessed reference at /usr/share/perl5/XML/Simple.pm line 634.

Last edited: 2012-03-07 14:35:38 +0100 (CET)

+2 replies

2012-03-07 16:46

User since
2006-04-27
25 Artikel
BenutzerIn
[default_avatar]

Im Moment hast du als "OutputFile" eine Referenz auf eine Datenstruktur und kein Filehandle bzw. es reicht ein Name einer Datei XMLout( { config => $xml }, AttrIndent => 1, KeepRoot => 1, NoAttr => 1,OutputFile => 'myFile.conf'}).

Lies Dir das nochmal durch: CPAN:

XML::Simple

Wenn Du erreichen möchtest, dass Werte in Deiner Ausgangsdatei 'aircracker.conf' nur geändert werden soll, solltest Du noch etwas mehr Aufwand betreiben, um sicher zu gehen, dass die Struktur Deiner conf-datei auch erhalten bleibt.

Mindfoo

2012-03-07 18:43

User since
2009-04-03
10 Artikel
BenutzerIn
[default_avatar]

da bin ich wieder... (mir ist eingefallen das ich schon nen account bei euch hatte :))

also, der ganze xml::simple quatsch war mir zu mühsam, ich geh jetzt einfach das config file mit nem regex durch :P

Code (perl): (dl )

sub confighandler {
        chomp(my $cmd = shift);
        chomp(my $option = shift);
        chomp(my $value = shift);
        open CONFIG, "<","aircracker.conf" or die $!;
        my @cfgdata = <CONFIG>;
        close(CONFIG);
        if (($cmd eq 'read') && ($option)) {
                foreach (@cfgdata) {
                        if ($_ =~ m/<$option>(.+)<\/$option>/) {
                                return $1;
                        }
                }
                return ("Error: not an option: $option");
        } elsif (($cmd eq 'write') && ($option) && ($value)) {
                my @newcfg;
                foreach (@cfgdata) {
                        $_ =~ s/<$option>.+<\/$option>/<$option>$value<\/$option>/;
                        push(@newcfg, $_);
                }
                open NEWCONFIG, ">","aircracker.conf" or die $!;
                print NEWCONFIG @newcfg;
                close(NEWCONFIG);
                return ("Config saved");
        } else {
                return ("Error: read or write?");
        }
}

confighandler("write","daemon","2");

Last edited: 2012-03-07 18:44:49 +0100 (CET)

View all threads created 2012-03-06 14:54.