[PERL] Bestimmte Teile aus HTML Seite auslesen

Breakdown

Hallo,

Ich suche nach einer Möglichkeit Teile einer HTML Seite auszulesen.
Die Teile befinden sich immer zwischen folgendem Code:

Start:

Code

<div class="tt-a"

und
Ende:

Code

</span></div>

Zwischen den beiden Codeteilen liegt der Code, den ich auslesen möchte.
Wie ist das nun mit Perl möglich?
Ehrlich gesagt hab eich keine Ahnung im Umgang mit Perl, jedoch ist Perl für mich im Vergleich zu PHP sehr viel Zeitsparender (mit PHP habe ich dieses Probleb bereits lösen können).

Ich habe schon das Internet durchforstet, jedoch finde ich einfach nicht die richtigen Wortphrasen um die Lösung zu finden...

Ich hoffe mir kann jemand helfen.
Schönen Samstag noch

crAzywuLf

Code

my $inhalt = '<div class="tt-a" blablalblalblalbla</span></div>';


if ($inhalt =~ m/<div class="tt-a"(.*?)</span></div>/)
{
    print $1;
}

Breakdown

Vielen Dank für die Antwort

Wenn ich die Datei ausführen will gibt er mir einen:

Code

[B]Internal Server Error[/B]


 The server encountered an internal error or misconfiguration and was unable to complete your request.

aus (ja, dateirechte gesetzt).

Und noch eine Frage: Was mache ich, wenn diese Kombination der Tags mehrfach aufkommt? Derzeit prüft er ja nur ob diese Kombination einmal vorkommt und wenn ja soll er das dazwischen ausgeben, aber wie mach ich das das ich auch mehrere Ausgeben könnte?

Zum Beispiel wenn der Code so aussieht:

Zitat

<div class="tt-a"> blablalblalblalbla</span></div><div class="tt-a"> blablalblalblalbla2</span></div>

Dankeschön

crAzywuLf

Zitat von Breakdown
Vielen Dank für die Antwort

Wenn ich die Datei ausführen will gibt er mir einen:
Code
[B]Internal Server Error[/B]


 The server encountered an internal error or misconfiguration and was unable to complete your request.
aus (ja, dateirechte gesetzt).

Und noch eine Frage: Was mache ich, wenn diese Kombination der Tags mehrfach aufkommt? Derzeit prüft er ja nur ob diese Kombination einmal vorkommt und wenn ja soll er das dazwischen ausgeben, aber wie mach ich das das ich auch mehrere Ausgeben könnte?

Zum Beispiel wenn der Code so aussieht:

Dankeschön
Alles anzeigen

Perl

#!/usr/bin/perl
use strict;
use Data::Dumper;


my $inhalt = '<div class="tt-a" blablalblalblalbla</span></div><div class="tt-a"> blablalblalblalbla2</span></div>  <div class="tt-a"> blablalblalblalbla3</span></div>';
my @matches = ($inhalt =~ m/<div class="tt-a"(.*?)<\/span><\/div>/g);


print Dumper(@matches);

Probiers mal hiermit

Breakdown

Funktioniert perfekt, vielen vielen Dank für deine Mühe!