Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7094[/thread]

suche nach elementen mit regexp (Seite 2)



<< |< 1 2 >| >> 13 Einträge, 2 Seiten
seven-12
 2005-07-01 18:04
#55884 #55884
User since
2005-07-01
6 Artikel
BenutzerIn
[default_avatar]
STRAT, das ist mein Quelltext mit den Änderungen

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
if ($content =~m|<meta>(.*)</meta>|) 
            {
            $meta = $1;
            
            }
            if ($meta = ~( $_ =~ m|<titel>(.*)</titel>| ))    
            
            {
                
            $titel = $1;
            
          }


titel und meta sind aber gleich:-(

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

<!--EDIT|pq|1120239828-->
Strat
 2005-07-01 18:45
#55885 #55885
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
da habe ich mich offenbar schlecht ausgedrueckt

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

mit einem leerzeichen zwischen = und ~ bedeutet
Code: (dl )
if ($meta = ~( $_ =~ m|<titel>(.*)</titel>| ))


du willst aber einen match haben, und keine zuweisung und binaere verneinung, also kein Leerzeichen zwischen = und ~
Code: (dl )
if ($meta =~ m|<titel>(.*)</titel>| )

ev. auch
Code: (dl )
if ($meta =~ m|<titel>(.*?)</titel>| )

(verwende am besten das letzte)\n\n

<!--EDIT|Strat|1120229369-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
pq
 2005-07-01 21:43
#55886 #55886
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
@seven-12, bitte code-tags benutzen!
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
<< |< 1 2 >| >> 13 Einträge, 2 Seiten



View all threads created 2005-07-01 16:34.