如何在Perl/Tk中映射完成路径

如何在Perl/Tk中映射完成路径,perl,perltk,Perl,Perltk,我的服务器中的linux系统附带PerlV5.14.1,而且这个版本的Perl似乎不支持Tk PathEntry小部件(请参阅:)。我可以知道有没有其他的方法,我可以这样做,我可以映射路径,以完成在条目小部件的样本脚本,我得到的地方,如下面 #!/usr/bin/perl use Tk; use Tk::PathEntry; use Cwd; $path = cwd(); $mw = MainWindow->new(); $mw->geometry( '300x80' ); $

我的服务器中的linux系统附带PerlV5.14.1,而且这个版本的Perl似乎不支持Tk PathEntry小部件(请参阅:)。我可以知道有没有其他的方法,我可以这样做,我可以映射路径,以完成在条目小部件的样本脚本,我得到的地方,如下面

#!/usr/bin/perl
use Tk;
use Tk::PathEntry;

use Cwd;

$path = cwd();

$mw = MainWindow->new();
$mw->geometry( '300x80' );
$mw->resizable( 0, 0 );

$mw->PathEntry( -textvariable=>\$path )->pack;
$mw->Label( -textvariable=>\$path, -foreground=>'blue' )->pack;
$mw->Button( -text=>'Quit', -command=>sub{ exit } )->pack;

MainLoop;
我得到的错误消息看起来像是我指向的Perl版本不支持PathEntry小部件:- 假设“需要Tk::PathEntry;”在path.ptk第14行 在@INC中找不到Tk/PathEntry.pm(@INC contains:/nfs/disks/my_work/scripts/Tk-PathEntry-2.23/lib/usr/pkgs/5.14.1/lib64/site_perl/x86_64-linux/usr/pkgs/perl/5.14.1/lib64/site_perl/usr/pkgs/perl/5.14.1/lib64/5.14.1/linux/pkgs/5.14.1/usr/pkgs/5.14.1/default模块默认值)在/usr/pkgs/perl/5.14.1/lib64/module/default/x86_64-linux/Tk/Widget.pm第270行


请给出建议。谢谢。

您可以在本地安装此模块,无需root权限,并随脚本一起打包

您可以使用local::lib使其更简单,但它可能足够:

perl Makefile.PL PREFIX=./modules
make
make install

请参阅本文中的详细信息以简化操作:

感谢您提供的链接和评论,但我有一些失败的地方。再次阅读这些材料,最终我获得了它。非常感谢。