XML (Allgemeines zu Perl) - Perl-Community.de

[thread]13319[/thread]

XML

Tags: XML Ähnliche Threads

Leser: 26

Articles: hide open all | hide show old branches

+6 replies

netzwanze

2009-04-02 10:27

User since
2009-04-02
3 Artikel
BenutzerIn
[default_avatar]

Hallo

ich habe ein bissel Probleme mit XML.

In meine XML befinden sich Einträge, die ich ersetzen möchte z.B.
XML_SID durch T60. Leider fehlt mir ein bissel die Erfahrung mit Perl.

Mein XML-File

Hier mein erster Test vom Einlesen der XML-Datei:

Code: (dl )

use XML::Simple;
use Data::Dumper;

# Objekt erstellen
$xml = new XML::Simple;

# create object
$xml = new XML::Simple (KeyAttr=>[]);

# XML-Datei einlesen
$data = $xml->XMLin("inifile.xml");

# Ausgabe
print Dumper($data);

Wie schon gesagt, bin ich in Perl nicht ganz so firm und mit XML hatte ich auch nie was zu tun. Was ich brauch, sind ein paar Tipps und den einen oder den andern Schnipsel. Ich möcht auch selber noch ein bissel zu tun haben.

Danke schon einmal
Last edited: 2009-04-02 14:38:53 +0200 (CEST)

Linuxer

2009-04-02 10:48

User since
2006-01-27
3870 Artikel
HausmeisterIn

Hi,

leider verrätst Du nicht, wo denn Dein konkretes Problem liegt.

Wenn Dein XML zu gross ist, erstell doch ein beispielhaftes kleines XML-Dokument, mit dem Du Dein Vorhaben verdeutlichen kannst.

Poste dieses Minimalbeispiel mit einem Codebeispiel, das verdeutlicht, was Du bisher geschafft hast und wo Dein Problem nun liegt.

Gruß,
Linuxer
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!
+4 replies

Gast wer

2009-04-02 10:50

Du gibst zu wenige Informationen.
Mach mal ein kurzes Beispiel des XML

Wie sieht dein Code zur Zeit aus?
Was willst du daraus machen?
Wo genau liegt das Problem?

+3 replies

netzwanze

2009-04-02 11:45

User since
2009-04-02
3 Artikel
BenutzerIn
[default_avatar]

So,

ich habe erst einmal einen Weg gefunden das XML bereit zu stellen.
In dem XML befinden sich Einträge, die ich ersetzen möchte z.B.
XML_SID durch T60.

XML

Code: (dl )

use XML::Simple;
use Data::Dumper;

# Objekt erstellen
$xml = new XML::Simple;

# create object
$xml = new XML::Simple (KeyAttr=>[]);

# XML-Datei einlesen
$data = $xml->XMLin("inifile.xml");

# Ausgabe
print Dumper($data);

+2 replies

kajax01

2009-04-06 16:50

User since
2009-04-06
6 Artikel
BenutzerIn
[default_avatar]

Ja, wenn's nur das ist, genügt doch, die XML-Datei zeilenweise einzulesen,
dann, mit regex s/XML_SID/T60/ die Änderung vornehmen und wieder speichern.
Oder willst du es unbedingt mit XML-Modulen machen?

netzwanze

2009-04-06 17:53

User since
2009-04-02
3 Artikel
BenutzerIn
[default_avatar]

Hi,

ich würde es schon lieber einem XML-Modul machen. Ich bin auch schon etwas weiter.

Code: (dl )

#!/usr/bin/perl

# Module verwenden

use XML::Simple;
use Data::Dumper;

# Objekt erstellen

$xml = new XML::Simple;

# XML-Datei einlesen

#my $xml = XML::Simple->new( 

#      RootName => undef, 
#      RootName => 'test', 
#      KeepRoot => 1, 
#      ForceArray => 1, 
#      ForceContent => 1, 
#  );


@xmlkeys=();
@xmlvals=();


$data = $xml->XMLin('inifile.xml', KeepRoot => 1);

&listhash ( $data, 0 );

XMLout($data, KeepRoot => 1, OutputFile => 'xinifile.xml');



print "#############################################\n";

$numkeys=$#xmlkeys;

for ($keyindex=0 ; $keyindex<$numkeys ; $keyindex++) {

  print "$xmlkeys[$keyindex]  $xmlvals[$keyindex]\n";

}

print "HIER\n";

die;

$data->{tableset}->{srcid}='changed by tkn';

#print "XXXX\n";

print $data->{tableset}->{srcid};

print "\n";

#print $data->{tableset}->{table};


%xx=$data->{tableset}->{table};

%xx=%{$data->{tableset}->{table}};

%xx=%{$data->{tableset}};

foreach $key( keys(%xx) ) {

    print "KEY  $key\n";

    $val=  $xx{$key};

    $deref_val=\$xx{$key};  
   

    print "DER  $deref_val\n";


    if ($deref_val =~ "^SCALAR") {

      # Skalar, also ausgeben

      print "SKVAL  $val\n";

    }



    if ($deref_val =~ "^REF") {

      # Referenz, also zerlegen

      if ($val =~ "^HASH") {

         print "Hash\n";

         &listhash ( $val, 0 , '__BASE__' );

      }

    }



#$a=<STDIN>;

   

}

###############################################################################

sub listhash {

  # entfernt alle crs und lfs am zeilenende
  # dem zeichen an der position

  my %myhash = %{$_[0]}; 
  my $mylevel = $_[1]; 
  my $parentkey=$_[2]; 
  my $mykey = '';
  my $myval = '';
  my $myderefval = '';

#  print "HIER\n";

  foreach $mykey( keys(%myhash) ) {

#    print "$mylevel KEY  $mykey\n";

 #   print "$parentkey KEY  $mykey\n";



    $myval=  $myhash{$mykey};

    $myderefval=\$myhash{$mykey};  

   

    if ($myderefval =~ "^SCALAR") {

      # Skalar, also ausgeben

#      print "$mylevel SKVAL  $myval\n";

#      print "$parentkey".'**'."$mykey SKVAL $myval\n";



      push (@xmlkeys, $parentkey.'**'.$mykey);

      push (@xmlvals, $myval );


      if ($myval =~ "^SAPXML_DBSCHEMA" ) {

#        print "HIER\n";

#        die;

#        $myhash{$mykey} = 'JOW_DBSCHEMA';

      }

    }



    if ($myderefval  =~ "^REF") {

      # Referenz, also zerlegen

      if ($myval =~ "^HASH") {

#         print "Hash\n";

         &listhash ( $myval, $mylevel+1, $parentkey.'**'.$mykey );

      }

    }

  }

#  return $mystring;

}  


die;



print "\n";

#print "XXXX\n";


$data->{tableset}->{srcid}='changed by tkn';

#print "YYYY\n";
#print $data->{tableset}->{srcid};
#print $data->{tables}->{tableset}->{srcid};
#print "XXXX\n";
#print $data->{tableset}->{kalahari}->{address}->[1];

View all threads created 2009-04-02 10:27.