请问：如何安装TK呀？

chenny

UID: 20177
帖子: 160
积分: 368
在线时间: 1 天 11 小时

1^# chenny 发表于 2005-07-29 13:56

请问：如何安装TK呀？

请问：如何安装TK呀？
我最近学习 Perl 界面编程，说是要安装TK才行
Window下如何安装 TK呢？我的Perl是3dsp自带的
perl的PPM是什么？说是在PPM下
install TK
我进入不了 PPM>

chenny

UID: 20177
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# chenny 发表于 2005-07-29 14:05

Linux 下安装TK：--perl.
Linux 下安装TK：
perl -MCPAN -e shell
cpan> install Bundle::TK

我这么做了，可是运行perl是还是出错
Can't locate TK.pm in @INC (@INC contains: /usr/lib/perl5/5.8.3/i386-linux-thread-multi /usr/lib/perl5/5.8.3 /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at ExW.pl line 3.
BEGIN failed--compilation aborted at ExW.pl line 3.

怎么安装？？

hoowa

UID: 24390
帖子: 143
积分: 328
在线时间: 1 天 4 小时

3^# hoowa 发表于 2005-07-29 21:00

如果是windows下载actives.
如果是windows下载activesperl 去www.activestate里面已经有tk了。

joe_jiang

UID: 35555
帖子: 33
积分: 75
在线时间: 1 小时

4^# joe_jiang 发表于 2005-07-30 08:21

cpan install ppm
可以用 cpan 安装 ppm，然后再安装其他模块。
个人建议用其它的 perl 发行版本，安装 Tk 虽然有趣但是开发难度却很高，不如 Win32::GUI。
移植性强是 Tk 的主要优势，但是它实在是应该有更多特色。
还有你的错误信息应该是测试阶段的，实际上应该前面就错了。

chenny

UID: 20177
帖子: 160
积分: 368
在线时间: 1 天 11 小时

5^# chenny 发表于 2005-08-01 16:33

我下载的是 ActivePerl-5..
我下载的是 ActivePerl-5.8.7.813-MSWin32-x86-148120
并安装在 c 盘下的

我程序很简单的，课还是有很多问题
#!/usr/bin/perl

use TK;
$main = MainWindow->new();
$main->title("Hello World!");

#$label = $main->Label(text=>'Hello from TK!');
$button = $main->Button();

#$icon=$button->(file=>'icon.gif');

#$button->configure(image=>$icon,
# command=>sub {exit;}
# );
#$label->pack(side => 'left');
#$button->pack(side->'left',
# padx=>5
#)

#MainLoop();