XML::Parser / __DATA__ (Fragen zu Perl-Modulen)

Gast Gast

2008-11-05 10:03

Hi, ist das der beste Weg ( local $/;), um __DATA__ parsen zu können?

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;

use XML::Parser;


my $p= new XML::Parser ( Style => 'Debug' );

{
local $/;

my $text = <DATA>;
$p -> parse ( $text );

}

__DATA__
<?xml version="1.0"?>

<adressen>
<vorname>Micky</vorname>
<nachname>Maus</nachname>
<telgesch>123456789</telgesch>
</adressen>

Struppi

2008-11-05 10:52

User since
2006-02-17
628 Artikel
BenutzerIn

Was in Perl das Beste ist läßt sich meistens nicht sagen, aber in dem Falle kannst du es auch so machen:

Code (perl): (dl )

1
2

my @text = <DATA>;
$p -> parse ( @text );

dürfte in etwa auf's selbe rauskommen.

renee

2008-11-05 11:57

User since
2003-08-04
14371 Artikel
ModeratorIn

parse erwartet entweder den String oder einen Filehandle. Die Lösung von "Gast" ist schon gut so.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Gast Gast

2008-11-05 12:02

Struppi+2008-11-05 09:52:16--
Was in Perl das Beste ist läßt sich meistens nicht sagen, aber in dem Falle kannst du es auch so machen:
Code (perl): (dl )
1
2
my @text = <DATA>;
$p -> parse ( @text );

Das wäre kürzer - aber es funktioniert nicht mehr:

Code: (dl )

no element found at line 2, column 0, byte 22 at /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi/XML/Parser.pm line 187

Struppi

2008-11-05 17:06

User since
2006-02-17
628 Artikel
BenutzerIn

Ich hab das Beispiel von dir genommen und das funktioniert.

Gast Gast

2008-11-05 20:35

Struppi+2008-11-05 16:06:07--
Ich hab das Beispiel von dir genommen und das funktioniert.

Geht bei mir nicht:

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;

use XML::Parser;


my $p= new XML::Parser ( Style => 'Debug' );

my @text = <DATA>;
$p -> parse ( @text );


__DATA__
<?xml version="1.0"?>

<adressen>
<vorname>Micky</vorname>
<nachname>Maus</nachname>
<telgesch>123456789</telgesch>
</adressen>

Struppi

2008-11-05 20:40

User since
2006-02-17
628 Artikel
BenutzerIn

argh, ich hatte beim testen das local $/ drin gelassen. OK, vergiß meinen Vorschlag.