Thread Frage zu Text::Iconv (9 answers)
Opened by bianca at 2010-03-16 17:15

bianca
 2010-03-16 17:15
#134943 #134943
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Habe hier eine Anwendung, wo ich Windows Zeichenkodierung in ISO umsetze. Nun lese ich die verwendete Codepage vorher aus, weiß aber nicht, ob Text::Iconv diese unterstützt. Wenn sie nicht unterstützt wird, will ich nicht, dass das Script abbricht, was es bisher tut sondern einfach nicht konvertiert wird:

Code (perl): (dl )
1
2
3
4
5
6

my $modul = 1;
eval "use Text::Iconv; 1;" or $modul = 0;
my $converter = Text::Iconv -> new ("CP$codepage",'ISO-8859-1');
if ($modul && defined $converter) {
  $result =  $converter -> convert ($result);
}


Leider bricht es trotzdem ab.
Kann ich das abfangen?

Wenn ich dies hier schreibe:
Code (perl): (dl )
1
2
3
4
5
6
7

my $modul = 1;
eval "use Text::Iconv; 1;" or $modul = 0;
my $converter;
eval "my $converter = Text::Iconv -> new (\"CP$codepage\",'ISO-8859-1')";
if ($modul && defined $converter) {
        $result =  $converter -> convert ($result);
}

bekomme ich bei der Ausführung ein
Quote
Use of uninitialized value $converter in concatenation (.) or string
für die zweite eval{} Zeile.

Wie mach ich das richtig?

Danke Euch
10 print "Hallo"
20 goto 10

View full thread Frage zu Text::Iconv