各位先进前辈 打给候…
小弟perl初学者，刚study完Perl学习
手册[6版].主要是想做一些gui界面在Li
-nux系统上，perl/tk的相关资料来自网
路.
这两天在使用 getOpenFile时遇到一
些小问题想向各位请教
关于隐藏档，在开档时如何不
显示点（.）开头的档案呢？
my $test=[ ['perl files' , '.pl'] ,
['all files' , '*'] ,
];
my $button=$mw->Button(
-text=>"Load",
-command=>\&test,
);
sub test {
my $button=$mw->getOpenFile(
-filetypes=>$test,
-defaultextension=>'.pl' ,
);
星号要如何处理才能不显示隐藏档
呢？
感谢各位帮忙！

旧式的 Perl/Tk 接口并没有办法隐藏那些隐藏档建议如果是初学者的话，请从新式的 Tkx 开始学习Tkx 可以透过 Tkx::i::call 的接口来设定不显示隐藏档更多设定的细节可以参考 http://wiki.tcl.tk/1060use Tkx;Tkx::i::call('namespace', 'import', '::tk::dialog::file::');Tkx::i::call('set', '::tk::dialog::file::showHiddenVar', '0');Tkx::i::call('tk_getOpenFile');Tkx::MainLoop();以上是纯直觉撰写，还请依照需求进行修改。

或许你会想试试 wxPerl, 它是wxWidges的Perl binding是跨平台的GUI Lib. 套装Citrus perl的话里面就有包在内

如果能改学 wxPerl 是最好，至少得用 Tkx 而非 Perl/Tkhttp://perladvent.org/2010/13/ Tkx 跟 Perl/Tk 比较至少 Tkx 可以用到很多新的元件，还有 UI Style 好太多这是基于 Tkx 的范例教学网站 http://goo.gl/INeDbl