我已經從 SU 嘗試過這段代碼，但它給出了這個錯誤：
couldn't connect to display ":0" at /usr/lib/perl5/vendor_perl/5.30/x86_64-cygwin-threads/Tk/MainWindow.pm line 53.
MainWindow->new() at A2.pl line 9.
我正在使用 Windows 8。
#!/usr/bin/perl
use warnings;
use strict;
use Tk qw{ MainLoop };
my $mw = 'MainWindow'->new;
my $b_show;
$b_show = $mw->Button(-text => 'Show',
-command => sub {
$b_show->configure(-command => undef);
$mw->Button(-text => 'Quit',
-command => sub { exit })->pack;
})->pack;
MainLoop();
uj5u.com熱心網友回復：
根據這個答案和Cygwin/X檔案，您需要安裝一個名為 Cygwin 的包，xinit然后打開一個新的 Cygwin 終端視窗并執行命令startxwin。然后在另一個 Cygwin 終端中，嘗試重新運行您的腳本。這適用于我在 Windows 11 上。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/405158.html
標籤：