PTT數位生活區 / Perl

[問題] perl/tk getOpenFile

看板Perl作者 (先做好眼前的事~在談夢想)時間9年前 (2015/03/03 11:07), 編輯推噓4(4推 0噓 14→)
留言18則, 2人參與, 最新討論串1/1
各位先進前輩 打給候… 小弟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
推
03/14 12:56, , 1F
舊式的 Perl/Tk 介面並沒有辦法隱藏那些隱藏檔
03/14 12:56, 1F
→
03/14 12:56, , 2F
建議如果是初學者的話，請從新式的 Tkx 開始學習
03/14 12:56, 2F
→
03/14 12:57, , 3F
Tkx 可以透過 Tkx::i::call 的介面來設定不顯示隱藏檔
03/14 12:57, 3F
→
03/14 13:02, , 4F
更多設定的細節可以參考 http://wiki.tcl.tk/1060
03/14 13:02, 4F
→
03/14 13:04, , 5F
use Tkx;
03/14 13:04, 5F
→
03/14 13:05, , 6F
Tkx::i::call(
03/14 13:05, 6F
→
03/14 13:05, , 7F
'namespace', 'import', '::tk::dialog::file::');
03/14 13:05, 7F
→
03/14 13:05, , 8F
Tkx::i::call(
03/14 13:05, 8F
→
03/14 13:05, , 9F
'set', '::tk::dialog::file::showHiddenVar', '0');
03/14 13:05, 9F
→
03/14 13:05, , 10F
Tkx::i::call('tk_getOpenFile');
03/14 13:05, 10F
→
03/14 13:05, , 11F
Tkx::MainLoop();
03/14 13:05, 11F
→
03/14 13:08, , 12F
以上是純直覺撰寫，還請依照需求進行修改。
03/14 13:08, 12F
推
03/14 13:43, , 13F
或許你會想試試 wxPerl, 它是wxWidges的Perl binding
03/14 13:43, 13F
推
03/14 13:46, , 14F
是跨平台的GUI Lib. 套裝Citrus perl的話裡面就有包在內
03/14 13:46, 14F
推
03/15 09:36, , 15F
如果能改學 wxPerl 是最好，至少得用 Tkx 而非 Perl/Tk
03/15 09:36, 15F
→
03/15 09:37, , 16F
http://perladvent.org/2010/13/ Tkx 跟 Perl/Tk 比較
03/15 09:37, 16F
→
03/15 09:39, , 17F
至少 Tkx 可以用到很多新的元件，還有 UI Style 好太多
03/15 09:39, 17F
→
03/15 09:42, , 18F
這是基於 Tkx 的範例教學網站 http://goo.gl/INeDbl
03/15 09:42, 18F
‣ 更多 asrpgwu 的文章
文章代碼(AID): #1KzILkRJ (Perl)
Perl 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 asrpgwu 的文章
文章代碼(AID): #1KzILkRJ (Perl)