PERL: Titel aus HTML Quellcode auslesen

[tricipitinus]

Hi!

Ich will aus einer Liste von eingegebenen URLs den Titel aus dem jeweiligen quellcode auslesen und ausgeben.
was ich schon habe:

#!/usr/bin/perl

 
use LWP::Simple;
  $Url = get 'http://orf.at/ticker/236327.html';

@html = split ( /\s+/, $Url );

if ($html == "<title>") {print "Titel gefunden!"};

mir fällt nun aber keine möglichkeit ein, wie ich die Zeichen zwischen

 <title> und </title>

extrahieren und ausgeben kann..

[colossus]

Mit Perl kann ich nicht dienen, vielleicht hilft dir aber auch ein sed-Script:

sed -r '/<title>.*<\/title>/!d;s/<title>(.+)<\/title>/\1/' file1 file2 ... fileN

[tricipitinus]

danke, habs schon geschafft...falls es jm. interessiert ^^

#! /usr/bin/perl -w

use LWP::Simple;

#Eingabeaufforderung der URLs
print "Enter URLs including http:// , use blanks to seperate them: ";
chomp ($input  = <>);
@urls = split ( /\s+/,$input);

#Jeder link wird geladen und nach dem Muster <title>*</title> durchsucht
foreach $url (@urls) {
  my($html)=get($url);
  print "\nThe webpage: $url has the title: ";
  $html =~ m/(<title>.*<\/title>)/i; #Hier wird ein Patternmatch durchgeführt, das /i bewirkt no-case-sensitivity
  print $1 . "\n";
}