Use of uninitialized value in string eq (...)

[Struppi]

Use of uninitialized value in string eq (...)

z.B. bei dieser Callbackfunktion:

sub ParseHTMLStart()
{
    my ($self, $tagname, $attr, $src) = @_;
    if($tagname) # IN DIESER ZEILE TRITT DIE MELDUNG AUF!

Also eigentlich sollte hier die Meldung nicht auftauchen (du vergleichst hier ja nicht zwei Strings miteinander.
Laut deiner Meldung machst du:
if($tagname eq '')

Was etwas anderes ist.

if(ausdruck) ist wahr, wenn der ausdruck ungleich null ist kein Leerstring oder ein definierter Wert ist.

Das ist die Callback Funktion die ich für den HTML::Parser verwende. Offensichtlich ist aus irgendeinem Grund die Variable $tagname nicht gesetzt. Wie kann ich in Perl das überprüfen (in PHP würd ich bei sowas zuerst ein if(isset()) drüberlaufen lassen.

Du kannst die Existenz einer Variabel überprüfen

if(defined $var) ...

Aber Achtung:

if(defined $hash->{key})

ist etwas anderes als:

if(exists $hash->{key})

Struppi.