NEws ( Wörter zwischen <br /> und </tr>) (Allgemeines zu Perl)

[thread]7057[/thread]

NEws ( Wörter zwischen <br /> und </tr>)

DeluxXx

2005-06-19 15:32

User since
2005-06-19
10 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

1
2
3

while ($html =~/<br \/>.+<\/td>/gi) {
print "\n $& \n";
}

so nachdem ich eine Website mit LWP:Simple in dem String $html gespeichert habe möchte ich alle Sachen die zwischen <\td>
und <br \> stehen auflisten. Nur Leider will das nicht =( anstatt alle Sachen so

Code: (dl )

1
2
3

<br \>suchwort 1<\td>

<br \>gesuchtes wort<\td>

aufzulisten gibt er mir einfach nochmal fast die ganze website aus was ja auch logisch ist denn sagen wir eine Website sieht so aus :

Code: (dl )

<br />Gesuchtes Wort</td></tr> <tr><td class="L337
b" align="left">&nbsp; </td> <td class="-----" align="right" valign="top">&nbsp;
</td></tr></table><table class="---" align="center" cellspacing="1" width="75%"
><tr><th class="---_newstitle" colspan="2"><span class="TdTitle">News</
span> <br /> <span class="TdUser">von <a class="----" href="-----.cgi?action
=author&amp;name=-----">--------</a> ----</span></th></tr
<!----><br />Suchwort 2 </td></

wird natuerlich alles vom ersten

Code: (dl )

1
2

 <br \> bis zum letzten 
</td> aufgelistet

aber er soll ja nur bis zu dem darauf folgenden suchen. und sich dann mit dem nächsten <br /> wieder neuanfangen
Jmd ein Vorschlag wie ich das Problem lösen könnte ????

Vielen Dank[CODE]

esskar

2005-06-19 15:43

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hast du die url zur seite?

2005-06-19 15:44

User since
2003-08-04
12208 Artikel
Admin1

.+?

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

DeluxXx

2005-06-19 16:06

User since
2005-06-19
10 Artikel
BenutzerIn
[default_avatar]

Thx a lot Pg das hat das Problem gelöst

Crian

2005-06-23 12:19

User since
2003-08-04
5873 Artikel
ModeratorIn

Der zweite Buchstabe in pqs Namen ist ein Q =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

2005-06-23 13:02

User since
2003-08-04
12208 Artikel
Admin1

ich wurde schon öfter pg genannt. vielleicht benutzen die leute merkwürdige fonts =)\n\n

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

Strat

2005-06-23 13:17

User since
2003-08-04
5246 Artikel
ModeratorIn

manche Leute haben eben keinen Sinn fuer Symmetrie... ;-)

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

DeluxXx

2005-06-24 01:20

User since
2005-06-19
10 Artikel
BenutzerIn
[default_avatar]

ah lol srry =) ich meinte natuerlich danke pq (copy&paste^^)

View all threads created 2005-06-19 15:32.