[問題] perl/tk getOpenFile

[asrpgwu (先做好眼前的事~在談夢想)]

各位先進前輩  打給候…

    小弟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' ,
                  );


星號要如何處理才能不顯示隱藏檔
呢？
           感謝各位幫忙！

--
Sent from my Android

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.75.224.11
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1425352046.A.6D3.html
推 LiloHuang: 舊式的 Perl/Tk 介面並沒有辦法隱藏那些隱藏檔
→ LiloHuang: 建議如果是初學者的話，請從新式的 Tkx 開始學習
→ LiloHuang: Tkx 可以透過 Tkx::i::call 的介面來設定不顯示隱藏檔
→ LiloHuang: 更多設定的細節可以參考 http://wiki.tcl.tk/1060
→ LiloHuang: use Tkx;
→ LiloHuang: Tkx::i::call(
→ LiloHuang:   'namespace', 'import', '::tk::dialog::file::');
→ LiloHuang: Tkx::i::call(
→ LiloHuang:   'set', '::tk::dialog::file::showHiddenVar', '0');
→ LiloHuang: Tkx::i::call('tk_getOpenFile');
→ LiloHuang: Tkx::MainLoop();
→ LiloHuang: 以上是純直覺撰寫，還請依照需求進行修改。
推 flu: 或許你會想試試 wxPerl, 它是wxWidges的Perl binding
推 flu: 是跨平台的GUI Lib. 套裝Citrus perl的話裡面就有包在內
推 LiloHuang: 如果能改學 wxPerl 是最好，至少得用 Tkx 而非 Perl/Tk
→ LiloHuang: http://perladvent.org/2010/13/ Tkx 跟 Perl/Tk 比較
→ LiloHuang: 至少 Tkx 可以用到很多新的元件，還有 UI Style 好太多
→ LiloHuang: 這是基於 Tkx 的範例教學網站 http://goo.gl/INeDbl