Probvah edna primerna programa za dialog box ot "Perl cookbok" no mi dava slednoto:
root@root:~# ./a.pl
Can't locate Tk/DialogBox.pm in @INC (@INC contains: /usr/lib/perl5/i386-linux /usr/lib/perl5 /usr/lib/perl5/site_perl/i386-linux /usr/lib/perl5/site_perl /usr/lib/perl5/site_perl .) at ./a.pl line 2.
BEGIN failed--compilation aborted at ./a.pl line 2.

a koda,koito napisah e sledniq:


use Tk::DialogBox;

$dialog = $main->DialogBox( -title => "Register This Program",
-buttons => [ "Register", "Cancel" ] );

# add widgets to the dialog box with $dialog->Add()

# later, when you need to display the dialog box
$button = $dialog->Show();
if ($button eq "Register") {
# ...
} elsif ($button eq "Cancel") {
# ...
} else {
# this shouldn't happen
}

kato vyv blokovete napravih naprimer print "....";

Pi4 sorry ama i az sym nov i dokolkoto moga da razbera tuka lipsva nqkakyv modul za Tk,no po princip tezi moduli ne trqbva li da gi ima vsi4kite standartno.I nqkoi ot razbira4ite nqma li da mu otgovori ve4e na mladeja?

probvai slednoto

find /usr/lib/perl5/ -name DialogBox.pm

ako ne go nameri - sorry. Ako go nameri, probvai s /

Ako pak ne go nameri - instalirai si go. Ako go nameri, imash 2 varianta:

1)setvash PERL5_LIB env var da vkluchva direktoriyata v koiato se namira Tk
2) v nachaloto na scripta (predi use) slagash slednoto:
push(@INC, "patha na direktoriyata v koiato se namira direktoriyata Tk");

Ами нямаш инсталиран модул - то и на теб ти е ясно това. Как да го инсталираш - ами на какъв ОС ?

AMi sas Slackware 8.1 sym i Perl 5.6.0.V momenta sym pusnal si4ko moduli Tk da se svalqt.Ako mojete da mi kajete kak da gi installna?

Ами то обикновенно е един пакет който се сваля инсталира и компилира ;)
http://www.cpan.org/modules/by-module/Tk/Tk-800.024.tar.gz

Da ama az svalqm okolo 1000 Nqma li nqkakyv na4in da si gi svalq sam

# perl -MCPAN -e "install Tk"