Hallo,
Ich brauche Tk von perl 5.80, da tinyperl das von 5.84 scheinbar nicht mag. Sehr seltsam das ganze. Jedenfalls: Gibt es irgendwo tk.pm mit seinem Ordner zum Download. Also einfach das was bei perl standardmäßig bei ist. Falls nicht wäre irgendjemand so nett das mal hochzuladen, am besten komprimiert? Mit 56k modem machts nämlich nicht sehr viel Spaß nochmal perl zu saugen(das wäre dann schließlich das 3. Mal diese Woche).
Danke schonmal im voraus.
PS: falls einem eine Lösung einfällt um das Problem direkt zu umgehen ohne extra tk nochmal zu saugen ist mir das auch recht.
Problembeschreibung: Ich kopiere tk.pm und den dazugehörenden ordner tk in die lib.zip. Wenn ich dann das Programm ausführe kommte folgende Fehlermeldung:
QuoteC:\Dokumente und Einstellungen\Voit\Desktop\Mäx\tinyperl>tinyperl countdown.exp
Bareword "WRITABLE" not allowed while "strict subs" in use at /loader/0x1906460/
Tk/Event/IO.pm line 22.
BEGIN not safe after errors--compilation aborted at /loader/0x1906460/Tk/Event/I
O.pm line 105.
Compilation failed in require at /loader/0x1906460/Tk/Event.pm line 11.
Compilation failed in require at /loader/0x1906460/Tk.pm line 13.
BEGIN failed--compilation aborted at /loader/0x1906460/Tk.pm line 13.
Compilation failed in require at (eval 24) line 4.
BEGIN failed--compilation aborted at (eval 24) line 4.
Undefined subroutine &Tk::Event::CleanupGlue called at /loader/0x1906460/Tk/Even
t.pm line 3.
END failed--call queue aborted.
C:\Dokumente und Einstellungen\Voit\Desktop\Mäx\tinyperl>
edit: Fehlermeldung verkleinert\n\n
<!--EDIT|jemand|1125867306-->
print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;