suche nach elementen mit regexp (Allgemeines zu Perl)

seven-12

2005-07-01 16:34

User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]

Hallo, ich habe in einer Datei diese Elemente:
<meta>
<title>
</title>
<url>
</url>
</meta>

ich muss den Inhalt dieser Elementen auslesen. Ich mache es so:

Code: (dl )

if ($content =~m|<meta>(.*)</meta>|) 
            {
            $meta = $1;
            
                
            if($meta= ~m|<titel>(.*)</titel>|) 
            {
                
            $titel = $;
            
          }
            }
            if($titel = ~m|<url>(.*)</url>|)
            {
            $url = $1;
            
            }

bei Abfrage vom $meta bekomme ich was ich möchte, alle Elemente:
bei titel bekomme ich wieder dasselbe wie bei meta, wa s mache ich falsch?

ich danke im Voraus.

seven

edit pq: code-tags hinzugefügt\n\n

Strat

2005-07-01 16:43

User since
2003-08-04
5246 Artikel
ModeratorIn

keine ahnung; hier ein paar allgemeine probleme, ueber die du vielleicht stolperst:

1. der punkt matcht normalerweise nicht auf einen zeilenumbruch; damit er es doch tut, brauchst du das flag /s (z.B. $meta =~ m|<title>(.+)</title>|s)

2. =~ und = ~ sind zwei unterschiedliche sachen; = ist eine zuweisung und ~ ist ein binaeres not (einfache Dateient-/-verschluesselung:

Code: (dl )

perl -pe "$_ = ~$_" infile > outfile

3. .* versucht, soviele zeichen zu schlucken wie moeglich:

Code: (dl )

$string = "<title>abcde</title><title>defg</title>";
if ($string =~ m|<title>(.*)</title>|) {
  print $1;
}

ergibt nicht abcde; das ergibt erst

Code: (dl )

$string = "<title>abcde</title><title>defg</title>";
if ($string =~ m|<title>(.*?)</title>|) {
  print $1;
}

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Strat

2005-07-01 16:46

User since
2003-08-04
5246 Artikel
ModeratorIn

ah, jetzt verstehe ich dein problem, punkt zwei erschlaegt dich:

Code: (dl )

if($meta= ~m|<titel>(.*)</titel>|

durch das leerzeichen zwischen = und ~ wird das anders aufgeloest:

Code: (dl )

if ($meta = ~( $_ =~ m|<titel>(.*)</titel>| )) {

in $_ steht aber nichts in der form drinnen, also captured (.*) da auch nicht, und $1 bleibt das, was es vorher war.\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

seven-12

2005-07-01 16:48

User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]

nein es geht nicht so, nichts ändert sich

Strat

2005-07-01 16:50

User since
2003-08-04
5246 Artikel
ModeratorIn

was meinst du mit so? was hast du geaendert? wie sieht dein code aus?

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

seven-12

2005-07-01 16:56

User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]

na ja ich habe ? eingefügt, keine änderung
wie kan ich verschachtelte Elemente durchsuchen ?

Strat

2005-07-01 17:02

User since
2003-08-04
5246 Artikel
ModeratorIn

dann lies nochmal meine beiden postings von oben... und wenn du was nicht verstehst, ist es besser, wenn du nachfragst, als wenn du ignorierst, was ich schreibe...\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

seven-12

2005-07-01 17:07

User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]

Strat,

mein Quelltext sieht genauso wie Deiner aus.

seven-12

2005-07-01 17:11

User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]

sorry Strat, ich habe Deinen KOmmentar nicht gesehen, jetzt probiere ich es aus, danke

pq

2005-07-01 17:37

User since
2003-08-04
12209 Artikel
Admin1

[quote=seven-12,01.07.2005, 14:34] $titel = $;[/quote]
typo?

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: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem