linux-l: Merkwuerdiger Fehler im perl-skript

Olaf Radicke olaf_rad at gmx.de
Sa Okt 27 13:07:02 CEST 2001


Hi!
Ich habe hier zwei Perlskripte. Eine funktioniert und das andere nicht.
Beide sind inhaltlich (glaube ich) identisch. Wenn ich diff aufrufe 
erhalte ich folgendes Ergebnis:

ol at kiste:~/non-sys/bliss$ diff test test2.pl
1c1
< #!/usr/bin/perl -w 
---
> #!/usr/bin/perl -w
6c6
< $mw->Label(-text => "Zum Test!")->pack;
---
> $mw->Label(-text => "Zun Test!")->pack;
9c9
< $mw->Butten(-text => "benden",
---
> $mw->Button(-text => "benden",
ol at kiste:~/non-sys/bliss$ 

Bei dem fehlerhaften Skript (test) erhalte ich folgende Fehlermeldung:

ol at kiste:~/non-sys/bliss$ perl test
Assuming 'require Tk::Butten;' at test line 10
Can't locate Tk/Butten.pm in @INC (@INC contains: /usr/lib/perl5/5.005/i386-linux /usr/lib/perl5/5.005 /usr/local/lib/site_perl/i386-linux /usr/local/lib/site_perl /usr/lib/perl5 .) at /usr/lib/perl5/5.005/i386-linux/Tk/Widget.pm line 317.


Hier beide Skripte nochmal in voller Länge:
##############Skript1 (fehlerhaft)############################

#!/usr/bin/perl -w 
use Tk;

my $mw = MainWindow->new;
$mw->title("Mein Fenster");
$mw->Label(-text => "Zum Test!")->pack;

$mw->Checkbutton(-text => "sinnlos")->pack;
$mw->Butten(-text => "benden",
            -command => sub { exit })->pack;
MainLoop;
 
####################Skript2 (funktioniert)######################

#!/usr/bin/perl -w
use Tk;

my $mw = MainWindow->new;
$mw->title("Mein Fenster");
$mw->Label(-text => "Zun Test!")->pack;

$mw->Checkbutton(-text => "sinnlos")->pack;
$mw->Button(-text => "benden",
            -command => sub { exit })->pack;
MainLoop;

######################## Ende des Skripts ########################

Also wenn Jemanden was auffallen sollte....
mfg Olaf



Mehr Informationen über die Mailingliste linux-l