Perl tk找不到显示器

Question

：）

我刚开始在Ubuntu 12.04上使用Perl Tk。我想运行一个简单的测试代码，但是我收到以下错误：

couldn't connect to display ":0" at /usr/lib/perl5/Tk/MainWindow.pm line 55.
Tk::MainWindow->new() at tk_proba.pl line 5.

代码：

#!usr/bin/perl

use Tk;

$mw=Tk::MainWindow->new();
Tk::MainLoop();

我真的找不到一个效果很好的解决方案。

Answer 1

您是否在登录X服务器时在命令行上使用其他用户？即，您是否以erbal身份登录，但在运行程序之前su d登录root？

这是一个可能会影响X用户的常见问题 - 而且可能令人困惑，因为它之前才有效！问题与缺少的显示环境变量有关。需要的一些变量：

• $DISPLAY
• $XAUTHORITY