[已解决] 请问，perl5321164的Tk空白页面程序，如何运行起来？

zzz19760225

WIN764，Strawberry perl5321164，D盘的解压文件夹改为perl53211文件夹
通义提供的语句，文件字符集U-8

1. 
   
2. use Tk;
   
3. my $mw = MainWindow->new;
   
4. $mw->Label(-text => "Hello, World!")->pack;  
   
5. MainLoop;
   
6. <STDIN>;
   

复制代码

想显示一个空白页面，但是没有显示出来。
命令行执行出错

1. 
   
2. Can't locate Tk.pm in @INC (you may need to install the Tk module) (@INC contains: E:/bat/perl/perl/site/lib E:/bat/perl/perl/lib .) at D:\perl53211\2..pl line1.
   
3. BEGIN failed--compilation aborted at D:\perl53211\2..pl line 1.
   

复制代码

（好像说是安装错了，与前面安装的几个冲突了。）

1. 
   
2. D:\perl53211>cpanm Tk
   
3. --> Working on Tk
   
4. Fetching http://www.cpan.org/authors/id/S/SR/SREZIC/Tk-804.036.tar.gz ... ERROR:
   
5. read timeout at D:/perl53211/perl/vendor/lib/Net/HTTP/Methods.pm line 243. at D
   
6. :/perl53211/perl/vendor/lib/LWP/UserAgent.pm line 1008.
   
7. FAIL
   
8. ! Download http://www.cpan.org/authors/id/S/SR/SREZIC/Tk-804.036.tar.gz failed.
   
9. Retrying ...
   
10. ERROR: read timeout at D:/perl53211/perl/vendor/lib/Net/HTTP/Methods.pm line 243
    
11. . at D:/perl53211/perl/vendor/lib/LWP/UserAgent.pm line 1008.
    
12. ! Download http://www.cpan.org/authors/id/S/SR/SREZIC/Tk-804.036.tar.gz failed.
    
13. Retrying ...
    
14. Configuring Tk-804.036 ... OK
    
15. Building and testing Tk-804.036 ... OK
    
16. Successfully installed Tk-804.036
    
17. 1 distribution installed
    
18. 
    
19. D:\perl53211>perl -MTk -e "print $Tk::VERSION, \"\n\";"
    
20. 804.036
    
21. 
    

复制代码

1. 
   
2. D:\perl53211>perl -MTk -e "print \"如果看到这行，说明 Tk 已安装\n\""
   
3. 如果看到这行，说明 Tk 已安装
   
4. D:\perl53211>perl -V:cc
   
5. cc='gcc';
   

复制代码

按照说的去，也显示可以的啊。

1. 
   
2. D:\perl53211>perl -MTk -e "my $mw = tkinit; $mw->Label(-text => 'Hello')->pack;
   
3. $mw->Button(-text => 'Exit', -command => sub{exit})->pack; MainLoop;"
   

复制代码

直接命令行，可以跳出一个窗口了！
求助大佬！是不是语句有问题啊
把文件pl默认绑定perl.exe换成perl5.32.1.exe就可以了。
（523066680：[Perl][分形艺术]Julia集的绘制、缩放。“依赖的库：OpenGL  没安装的可以再activeperl的环境下执行：ppm install OpenGL”。）
（ActivePerl自带Tk桌面图形模式）

523066680

perl的tk用不惯，后来用 IUP ，用起来挺好，就是编译有点繁琐。

[知乎]Perl GUI 模块选择 - 从选择到放弃

zzz19760225

通义AI询问Lua for Windows下载，给出的lua5.1的综合实验版本什么的

1. 
   
2. GitHub 归档页面：
   
3. 地址：https://github.com/rjpcomputing/luaforwindows
   
4. 点击 "Releases" 标签页，下载最新的 .exe 安装程序（如 LuaForWindows_v5.1-58.exe）。
   

复制代码

再找LuaForWindows_v5.1-58.exe下载地址。

1. 
   
2. 在 Releases 页面，建议下载最新的稳定版本，例如：
   
3. 
   
4. LuaForWindows_v5.1-58.exe
   
5. 这个版本包含了：
   
6. 
   
7. Lua 5.1 解释器
   
8. SciTE 编辑器
   
9. LuaRocks
   
10. IUP（用于 GUI）
    
11. LuaSocket、LuaFileSystem 等常用库
    
12. 下载与安装步骤
    
13. 打开链接：[url]https://github.com/rjpcomputing/luaforwindows/releases[/url]
    
14. 向下滚动，找到以 .exe 结尾的文件
    

复制代码

就给了个地址，然后浏览器和迅雷双下载，都下载完成。
（编译文件对外行来说，太痛苦了！关键是痛苦也不会，这个综合的会减少很多问题吧）

1. 
   
2. -- 加载 IUP 库
   
3. require("iuplua")
   
4. 
   
5. -- 创建一个空白的 "填充" 元素，使 frame 内部看起来是空的
   
6. -- 你也可以使用 iup.label{} 或 iup.vbox{} 等
   
7. local filler = iup.fill{}  -- 这是一个空白的可伸缩填充元素
   
8. 
   
9. -- 创建一个 frame，包含上面的空白元素
   
10. local frm = iup.frame{
    
11.   filler;
    
12.   title = "我的空白 Frame";        -- frame 的标题（边框上的文字）
    
13.   -- 可选：设置边框内边距
    
14.   margin = "10x10"
    
15. }
    
16. 
    
17. -- 创建对话框（窗口），包含这个 frame
    
18. local dlg = iup.dialog{
    
19.   frm;
    
20.   title = "Lua + IUP - 空白 Frame 示例";  -- 窗口标题
    
21.   size = "300x200";                        -- 窗口大小（宽度x高度）
    
22.   -- 可选：让窗口居中显示
    
23.   position = "CENTER"
    
24. }
    
25. 
    
26. -- 显示窗口
    
27. dlg:show()
    
28. 
    
29. -- 启动 IUP 主循环（程序在此等待用户操作）
    
30. iup.MainLoop()
    
31. 
    

复制代码

可以显示一个空白frame页面。
carbide-1.0.0-win64.zip打包（找不到下载）
（谢谢大佬的分享）

523066680

回复 3# zzz19760225


    试试这个  
链接：https://pan.baidu.com/s/1Bvm8sJEycvQJ13-dapL9OA
提取码：2rxw

解压后 运行 portableshell.bat  会配置好当前运行终端的perl环境变量
然后试一下执行 `perl iup_threads.pl`  看能不能正常运行

zzz19760225

回复  zzz19760225


    试试这个  
链接：
提取码：2rxw

解压后 运行 portableshell.bat  会配 ...
523066680 发表于 2025-9-6 10:33

1. 
   
2. ----------------------------------------------
   
3. Welcome to Strawberry Perl Portable Edition!
   
4. * URL - http://www.strawberryperl.com/
   
5. * see README.TXT for more info
   
6. ----------------------------------------------
   
7. Perl executable: D:\strawberry-perl-5.32.1.1-64bit-Cut\perl\bin\perl.exe
   
8. Perl version   : 5.32.1 / MSWin32-x64-multi-thread
   
9. 
   
10. D:\strawberry-perl-5.32.1.1-64bit-Cut>perl iup_threads.pl
    
11. detach 1
    
12. detach 2
    
13. detach 3
    
14. detach 4
    
15. detach 5
    
16. detach 6
    
17. detach 7
    
18. detach 8
    
19. 
    
20. D:\strawberry-perl-5.32.1.1-64bit-Cut>
    

复制代码

可以运行，跳出那个程序图形。谢谢大佬！