XML-Parser 2 Datei (solved) (Allgemeines zu Perl)

[thread]19609[/thread]

XML-Parser 2 Datei [solved]

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+6 replies

guest Henri

2015-04-08 18:19

Hallo Leule

Code: (dl )

<?xml version="1.0" encoding="UTF-8"?>
      <Profile origin="get" version="2.1" date="2013.05.20">
                         <Catalog id="sys" version="2.1">
                          <Parameter name="prim" value="2"/>
                           <Parameter name="second" value="3"/>
                           <Parameter name="copy" value="4"/>
                           <Parameter name="force" value="1"/>
                           <Parameter name="always" value="0"/>
                          <Parameter name="type" value="5" Type="False"/>
                          <Parameter name="memory" value="allow"/>
                         </Catalog>
                        </profile>

ich bin wieder, ich habe die Parser von der folgende XML-Datei1 geschafft
indem ich nur die Attribut name haben wollte. meine Code lautet

Code (perl): (dl )

use strict;
use warnings;
use XML::Twig;

my $twig= XML::Twig->new(
               twig_handlers => { 'Parameter' => sub { $, = ",";
                                                      print
                                                        $_->{'att'}->{'name'}. $,
                                                      }
                                }
               );

$twig->parsefile('test.xml');

wenn man das code auf der XML-Datei lauft lasst die Ausgabe lautet:
prim, second, copy, forced, always, Type, memory

jetzt habe ich ein zweite XML-Datei2 mit dem in gern mal irgendwie gleichzeitig vergleichen möchte, und wenn sie darauf achten hat diese zweite ein Parameter wenige als der XML-Datei1 und zwar <Parameter name="type" value="5" Type="False"/>

Code: (dl )

 <?xml version="1.0" encoding="UTF-8"?>
        <Profile origin="get" version="2.0.1" date="2015-03-19T10:38:58Z">
         <Catalog id="sysdumpdevParam" version="2.1">
          <Parameter name="prim" value="/dev/lg_dumplv"/>
          <Parameter name="second" value="/dev/sysdumpnull"/>
          <Parameter name="copy" value="/var/adm/ras"/>
          <Parameter name="forced" value="1"/>
          <Parameter name="always" value="0"/>
          <Parameter name="memory" value="disallow"/>
         </Catalog>
</Profile>

ich möchte ein code schreibe der mir als Ausgabe geben würde:

name=>prim, second, copy, forced, always, Type, memory

value=>/dev/lg_dumplv, /dev/sysdumpnull, /var/adm/ras, 1, 0, fault , disallow
dh nur die Value von der Zweite XML-Datei(ist zwar schaffbar), aber es sollte falls er keine entsprechende attribute name gefunden hat schreibt er an der stelle fault, wie sie oben auf der Ausgabe sehen
können.

prim => /dev/lg_dumplv,
second => /dev/sysdumpnull,
copy => /var/adm/ras,
forced => 1,
always => 0,
Type entspricht zu gar nichts dann "fault" schreiben,
memory => disallow.

Danke für ihre Mithilfe.

modedit Editiert von GwenDragon: Code repariert
Last edited: 2015-04-08 18:24:48 +0200 (CEST)

+5 replies

guest Henri

2015-04-08 22:21

Hallo Leute ich habe etwas geschrieben aber möchte ich in der

Code (perl): (dl )

twig2

ein schleife schreiben, die mir

Code (perl): (dl )

fault

zurückgibt, falls er keine entsprechende value in der Datei2 gefunden hast, sonst gibt er mir die entsprenche value.
vielleicht konne jemand mir helfen.

Code (perl): (dl )

use strict;
use warnings;
use XML::Twig;   



my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");



my $twig1= XML::Twig->new(    

               twig_handlers => { 'Parameter' => sub { $, = ",";  
                           
                                                      print $FhResult $_->{'att'}->{'name'}. $, 
                                                      }
                                }
               );
                           
print $FhResult( (split('_', "d100spuptl25e0_datei1.xml",2))[0] . ',' ); 
$twig1->parsefile("d100spuptl25e0_datei1.xml");

my $twig2= XML::Twig->new(

               twig_handlers => { 'Parameter' => sub { $, = ",";
                           
                                                      print $FhResult $_->{'att'}->{'value'} . $,
                                                      }
                                }
               );


print $FhResult( (split('_', "\ndefault_datei2.xml",2))[0] . ',' );
$twig2->parsefile('default_datei2.xml');

Last edited: 2015-04-08 23:02:09 +0200 (CEST)

+4 replies

guest Henri

2015-04-09 15:51

Kann keine mir hier helfen um eine if-schleife zu schreiben?
ich möchte in meine Funktion twig2 eine If schleife schreiben, sodass er mir fault falls er keine entsprechende name aus der erste file gefunden hast.
Last edited: 2015-04-09 16:28:21 +0200 (CEST)

+3 replies

guest Henri

2015-04-09 18:11

Hallo Leute, ich drucke mich anders aus, hier ist ein XML-Datei , die mit hilfe der Perl-Code kann ich es parser, das untere code gibt mir alle Attributen name als parser, jetzt wenn sie die XML-Datei anschauen, der 7te parameter hat keine Attribut-name, ich möchte gern beim parser, dass das Code mir alle name zurückgibt und an der 7te stelle, wo es keine Attribut name gibt "fault" schreiben.

Code: (dl )

<?xml version="1.0" encoding="UTF-8"?>
      <profile origin="get" version="2.0.1" date="2015-03-19T10:31:57Z">
			 <Catalog id="sysdumpdevParam" version="2.1">
			  <Parameter name="prim" value="/dev/lg_dumplv"/>
			  <Parameter name="second" value="/dev/sysdumpnull"/>
			  <Parameter name="copy" value="/var/adm/ras"/>
			  <Parameter name="forced" value="1"/>
			  <Parameter name="always" value="0"/>
			  <Parameter name="type" value="fw-assisted" applyType="nextboot" reboot="true"/>
			  <Parameter  value="disallow"/>
			 </Catalog>
			</profile>

Code (perl): (dl )

use strict;
use warnings;
use XML::Twig;   



my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");



my $twig1= XML::Twig->new(    

               twig_handlers => { 'Parameter' => sub { $, = ",";  
                           
                                                      print $FhResult $_->{'att'}->{'name'}. $, 
                                                      }
                                }
               );
                           
print $FhResult( (split('_', "d100spuptl25e0_datei1.xml",2))[0] . ',' ); 
$twig1->parsefile("d100spuptl25e0_datei1.xml");

Last edited: 2015-04-09 18:15:29 +0200 (CEST)

+2 replies

Linuxer

2015-04-09 19:06

User since
2006-01-27
3891 articles
HausmeisterIn

user image

Ich komme auf zwei Ideen; beide ungetestet.

Wenn die Subroutine für jeden Parameter einzeln aufgerufen wird, folgender Schnellschuß:

Code (perl): (dl )

my $twig1= XML::Twig->new(    
        twig_handlers => { 
                'Parameter' => sub { 
                        # use 'fault' if name is not defined; Operator '//' is available since perl 5.10.1
                        my $attr_name = $_->{'att'}->{'name'} // 'fault';
                        print $FhResult $attr_name . ",";
                },
        },
);

Wenn die Subroutine für alle Parameter aufgerufen wird und $_->{att}->{name} eine Liste liefern würde (was ich derzeit kaum glauben kann), folgender Vorschlag:

Code (perl): (dl )

my $twig1= XML::Twig->new(    
        twig_handlers => { 
                'Parameter' => sub { 
                        local $, = ",";

                        my $item = $_;          # copy "original" $_ to $item; because map uses $_ as well
                        my @names = map { defined ? $_ : 'fault' } $item->{'att'}->{'name'};

                        print $FhResult @names, "";
                },
        },
);

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

guest Henri

2015-04-09 21:10

Linuxer, vielen Dank, das erste code lauft , aber das zweite ist perfekt danke für dein Hilfe
Last edited: 2015-04-09 21:36:48 +0200 (CEST)

View all threads created 2015-04-08 18:19.