| 導購 | 订阅 | 在线投稿
分享
 
 
當前位置: 王朝網路 >> perl >> 使用Perl/Tk把GUI加入服務器編程
 

使用Perl/Tk把GUI加入服務器編程

2008-05-19 06:25:50  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
 
  作爲系統程序員,您習慣性地使用命令行界面。可能您已不了解用輕量級圖形用戶界面(graphical user interface,GUI)來包裝現有的功能是多麽地容易。新發布的 Perl/Tk 及時地提醒您高質量有時候伴隨著易用性。

  您可以把精力集中放在高産量的服務器端編程上,而有時仍然可選擇使界面更漂亮。此外,輕量級工具箱(例如 Perl/Tk)使這樣做成爲可能並且使您不必付出更爲引人注目的 GUI 方法的代價。

  工具箱縱覽

  代價是什麽?一般來說,與 GUI 的對應的面向命令行的親戚相比,GUI 的編程、測試、移植和部署更爲困難。人們廣泛認可 Microsoft Visual Basic(VB)對 GUI 構造的簡化。然而,VB 實際上被孤立在 Windows 世界中,作爲一門編程語言,它顯得有點簡陋,這些問題約束了 VB;如果您想詳細了解這些缺點,請參閱本文末尾的參考資料。雖然 Java、GTK+ 和 Qt 已被人們接受並用于 Linux 和相關的開放源代碼開發,但是爲了開始使用它們,您需要花去很多時間來學習並編寫很多行代碼;它們的「進入門檻」阻礙了從面向字符編程向 WIMP(windows-icons-menus-pointers,窗口-圖標-菜單-指針)編程的悄然轉變。

  雖然用戶交互的 Web 模型過于簡化,但對于許多小任務來說,它已足夠了。事實上,我的大部分 GUI 編程是關于 Web 應用程序的。

  然而,有時候 Web 的模型是不夠的。您需要更成熟的可編程性或不同的安全性模型。有時候,您只是需要「另一個源」;Web 服務器的基于 Web 的控制面板會使系統太脆弱。有時候,Web 的模型太大了:常見的服務器和客戶機使用很多內存並需要配置。

  但是,我有好消息。請保持高産量的系統編程習慣。請使用輕量級高級語言綁定(例如 Perl/Tk 或 Tkinter)。您將得到您已開發的程序的可移植的、可維護的、「GUI 化」的版本,這些版本能夠良好地運行,您將對此感到驚奇。

  無論您喜愛的語言是 Ruby 還是 Fortran,正確的附件都將給您類似的機會。下面是一個已熟悉 Perl 的程序員成功的例子。

  准備學習 Perl/Tk

  您了解 Perl。它很簡潔,而且這種簡潔是巧妙的,這使您能在五分鍾內編寫報告生成器、網絡探測、文本過濾器和進程監視器,如果使用其他語言的話需一天的時間才能完成。

  然而,您可能不知道,只要再加幾行代碼,您就能把 Perl 應用程序變爲表現出色、漂亮的 GUI 應用程序。在 developerWorks 上有一篇 Teodor Zlatanov 的文章(請參閱參考資料,其中有這篇文章的鏈接),這篇文章描述了 cfengine 和相關的 Perl 實用程序,還爲您演示如何編寫易用的工具,例如關閉所有 inetd 進程的短小的腳本:

  清單 1. kill_inetd.pl 的源代碼

  use Proc::ProcessTable;

  $t = new Proc::ProcessTable;

  foreach $p (@{$t-table}) {

  # note that we will also kill "xinetd" and all processes

  # whose command line contains "inetd"

  kill 9, $p-pid if $p-cmndline =~ 'inetd';

  }

  如果您需要關閉幾個有問題的 CGI 進程,怎麽辦?或者,如果您需要比相當殘酷的「kill 9」更得體地發送信號,怎麽辦?如果您不在的時候您的老板或後備人員需要使用這個腳本,怎麽辦?傳統的答案是打開編輯器、把 inetd 替換成 cgi 等,然後從命令行再次運行 perl kill_inetd.pl。

  然而,請把第一個清單轉換成清單 2:

  清單 2. 修改後的 kill_inetd.pl 的源代碼

  use Proc::ProcessTable;

  use Tk;

  sub kill_them {

  $t = new Proc::ProcessTable;

  foreach $p (@{$t-table}) {

  kill $signal, $p-pid if $p-cmndline =~ $keyword;

  }

  $result_text = "Signal $signal sent to all '$keyword' processes.";

  }

  $main = MainWindow-new();

  $main-Label(-text =

  "Control panel for killing processes\n

  enter keyword here")-pack();

  $main-Entry(-textvariable = \$keyword)-pack();

  $radiobutton_frame = $main-Frame-pack();

  $radiobutton_frame-Radiobutton(-text = "KILL",

  -variable = \$signal,

  -value = 9)-pack(-side = left);

  $radiobutton_frame-Radiobutton(-text = "TERM",

  -variable = \$signal,

  -value = 15)-pack(-side = left);

  $main-Button(-text = "Send kill signal to named processes",

  -command = \&kill_them)-pack();

  $main-Label(-textvariable = \$result_text)-pack();

  # Set reasonable defaults.

  $keyword = "inetd";

  $signal = 9;

  MainLoop();

  當您在運行清單 2 時,您將得到一個較小的但有用的 GUI 控制面板:

  簡單的信號發送控制面板

  

  用戶把它彈出一次後就可以方便地使用它而不必再輸入。

  不過,請注意這二十一行的腳本爲您省去的東西:您沒有長達幾頁的聲明和配置。您沒有任何許可證限制(除了您熟悉的 Perl 許可證)。您不必學習新的語言。

  新的地平線

  這是令人興奮的東西。您可以使用簡短的 GUI 腳本來包裝所有的、現存的、用 Perl 代碼編寫的應用程序以使它們成爲同樣交互的、「方便用戶」的程序。事實上,您可以容易地重寫您現有的實用程序以使它們能夠在收到合適的命令行參數時繼續以正常的「批處理」方式運行,但在其他情況下能夠執行另一個分支並構造 GUI 窗口:

  清單 3. 在命令行與 GUI 操作之間作出選擇

  

  sub batch_operation {

  }

  sub start_GUI {

  use Tk;

  ...

  MainLoop();

  }

  if (0 == scalar(@ARGV)) {

  start_GUI();

  }

  if (errors_detected_in_@ARGV()) {

  start_GUI();

  }

  batch_operation();

  請記住:爲了取得這些結果,您只需添加幾行您已知道的 Perl(或 Python 或……)代碼。此外,因爲對于外部應用程序來說,Perl 起到「粘合劑」的作用,所以這些技術可被用來包裝您不想碰的舊的 Fortran 或 C 應用程序。您只需用一點帶有反引號(backtick)或 exec 的 Perl 來包裝它們就可以了。

  Perl/Tk 還有不錯的可伸縮性。全世界每天正在使用大量的 Perl/Tk 應用程序,包括生化模擬器、地圖繪制程序、航班管理系統等。表達大規模的 Perl/Tk 編程的感覺是困難的。以上的示例演示了通過添加幾行 Perl 來「GUI 化」是多麽的容易。如果您想更充分地體會「大規模」的 Perl/Tk 編程的感覺,請參閱下面的參考資料中的參考書並自己研究更爲複雜的程序的源代碼。

  一個我還沒寫的程序(雖然我已寫了這個程序的原始的原型)是 Zlatanov 的遺傳算法模擬器(請閱讀他在 developerWorks 發表的文章中有關這個模擬器的內容,這篇文章被列在參考資料中。)的圖形版本。作爲練習,讀者可以編寫一個更令人滿意的版本。我自己的實驗暗示這將是本專欄所推薦的方法的範例:當它的批處理方式的操作在易用的 Perl/Tk Canvas 小窗口上被可視化時將變得確實很生動。

  如果您在幾年前就試用過 Perl/Tk 且 Perl/Tk 沒給您留下深刻的印象,那麽現在是再給 Perl/Tk 一次機會的時候。最近 Perl/Tk 的處理器有了很大的改進。對于 Perl/Tk 的初學者來說,在流行的平台上安裝二進制文件的過程被大大地簡化,Windows 的可移植性也有了改善,最新的發行版的質量更高。有關 Perl/Tk 的書越來越多,這一點也許更爲重要。O'Reilly 在七月推出了 Perl in a Nutshell 的第二版,其中有寶貴的 Perl/Tk 的參考資料。最好的消息是 O'Reilly 在 2002 年初出版了由 Nancy Walsh 和 Stephen Lidie 編寫的 Mastering Perl/Tk。如果您准備較長時間的使用 Perl/Tk,那麽 Mastering Perl/Tk 是一本您需要購買的參考書。

  結束語

  在系統程序員和管理員看來,GUI 工作可能有點神秘。它類似于專業的工作,這種工作不包括我們一般在「服務器診所」中進行的那些開發。

  然而,它不必是那個樣子。類似 Perl/Tk 的現代的 GUI 工具箱提供了不錯的性能和功能以及本專欄經常強調的高産量和易學性。請您在這個月花一兩個小時,給 Perl/Tk 一次幫您包裝程序的機會以使程序更有吸引力。

  
 
 
 
上一篇《適合初學者的Perl的文件操作(2)》
下一篇《Perl的經典用法:用Open()函數打開文件》
 
 
 
 
 
 
日版寵物情人插曲《Winding Road》歌詞

日版寵物情人2017的插曲,很帶節奏感,日語的,女生唱的。 最後聽見是在第8集的時候女主手割傷了,然後男主用嘴幫她吸了一下,插曲就出來了。 歌手:Def...

兄弟共妻,我成了他們夜裏的美食

老鍾家的兩個兒子很特別,就是跟其他的人不太一樣,魔一般的執著。兄弟倆都到了要結婚的年齡了,不管自家老爹怎麽磨破嘴皮子,兄弟倆說不娶就不娶,老父母爲兄弟兩操碎了心...

如何磨出破洞牛仔褲?牛仔褲怎麽剪破洞?

把牛仔褲磨出有線的破洞 1、具體工具就是磨腳石,下面墊一個硬物,然後用磨腳石一直磨一直磨,到把那塊磨薄了,用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...

我就是掃描下圖得到了敬業福和愛國福

先來看下敬業福和愛國福 今年春節,支付寶再次推出了“五福紅包”活動,表示要“把欠大家的敬業福都還給大家”。 今天該活動正式啓動,和去年一樣,需要收集“五福”...

冰箱異味産生的原因和臭味去除的方法

有時候我們打開冰箱就會聞到一股異味,冰箱裏的這種異味是因爲一些物質發出的氣味的混合體,聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。 1、很多人有這種習...

《極品家丁》1-31集大結局分集劇情介紹

簡介 《極品家丁》講述了現代白領林晚榮無意回到古代金陵,並追隨蕭二小姐化名“林三”進入蕭府,不料卻陰差陽錯上演了一出低級家丁拼搏上位的“林三升職記”。...

李溪芮《極品家丁》片尾曲《你就是我最愛的寶寶》歌詞

你就是我最愛的寶寶 - 李溪芮 (電視劇《極品家丁》片尾曲) 作詞:常馨內 作曲:常馨內 你的眉 又鬼馬的挑 你的嘴 又壞壞的笑 上一秒吵鬧 下...

烏梅的功效與作用以及烏梅的食用禁忌有哪些?

烏梅,又稱春梅,中醫認爲,烏梅味酸,性溫,無毒,具有安心、除熱、下氣、祛痰、止渴調中、殺蟲的功效,治肢體痛、肺痨病。烏梅泡水喝能治傷寒煩熱、止吐瀉,與幹姜一起制...

什麽是脂肪粒?如何消除臉部脂肪粒?

什麽是脂肪粒 在我們的臉上總會長一個個像脂肪的小顆粒,弄也弄不掉,而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘,它就是脂肪粒。 脂肪粒雖然也是由油脂...

網絡安全治理:國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰受害者

來源:中國青年報 新的攻擊方法不斷湧現,黑客幾乎永遠占據網絡攻擊的上風,我們不可能通過技術手段杜絕網絡攻擊。國家安全保障的主要方向是打擊犯罪,而不是處置和懲罰...

河南夫妻在溫嶺網絡直播“造人”內容涉黃被刑事拘留

夫妻網絡直播“造人”爆紅   1月9日,溫嶺城北派出所接到南京警方的協查通告,他們近期打掉了一個涉黃直播APP平台。而根據掌握的線索,其中有一對涉案的夫妻主播...

如何防止牆紙老化?牆紙變舊變黃怎麽辦?

如何防止牆紙老化? (1)選擇透氣性好的牆紙 市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等,相對而言,PVC材質的牆紙最不透氣...

鮮肌之謎非日本生産VS鮮肌之謎假日貨是謠言

觀點一:破日本銷售量的“鮮肌之謎” 非日本生産 近一段時間,淘寶上架了一款名爲“鮮肌之謎的” 鲑魚卵巢美容液,號稱是最近日本的一款推出的全新護膚品,産品本身所...

中國最美古詩詞精選摘抄

系腰裙(北宋詞人 張先) 惜霜蟾照夜雲天,朦胧影、畫勾闌。人情縱似長情月,算一年年。又能得、幾番圓。 欲寄西江題葉字,流不到、五亭前。東池始有荷新綠,尚小如...

關于女人的經典語句

關于女人的經典語句1、【做一個獨立的女人】 思想獨立:有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想,做一份自己喜愛的事業,擁有快樂和成就...

未來我們可以和性愛機器人結婚嗎?

你想體驗機器人性愛嗎?你想和性愛機器人結婚嗎?如果你想,機器人有拒絕你的權利嗎? 近日,第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...

全球最變態的十個地方

10.土耳其地下洞穴城市 變態指數:★★☆☆☆ 這是土耳其卡帕多西亞的一個著名景點,傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人,...

科學家稱,人類死亡後意識將在另外一個宇宙中繼續存活

據英國《每日快報》報道,一位科學家兼理論家Robert Lanza博士宣稱,世界上並不存在人類死亡,死亡的只是身體。他認爲我們的意識借助我們體內的能量生存,而且...

《屏裏狐》片頭曲《我愛狐狸精》歌詞是什麽?

《我愛狐狸精》 - 劉馨棋   (電視劇《屏裏狐》主題曲)   作詞:金十三&李旦   作曲:劉嘉   狐狸精 狐狸仙   千年修...

 
 
 
  作爲系統程序員,您習慣性地使用命令行界面。可能您已不了解用輕量級圖形用戶界面(graphical user interface,GUI)來包裝現有的功能是多麽地容易。新發布的 Perl/Tk 及時地提醒您高質量有時候伴隨著易用性。   您可以把精力集中放在高産量的服務器端編程上,而有時仍然可選擇使界面更漂亮。此外,輕量級工具箱(例如 Perl/Tk)使這樣做成爲可能並且使您不必付出更爲引人注目的 GUI 方法的代價。   工具箱縱覽   代價是什麽?一般來說,與 GUI 的對應的面向命令行的親戚相比,GUI 的編程、測試、移植和部署更爲困難。人們廣泛認可 Microsoft Visual Basic(VB)對 GUI 構造的簡化。然而,VB 實際上被孤立在 Windows 世界中,作爲一門編程語言,它顯得有點簡陋,這些問題約束了 VB;如果您想詳細了解這些缺點,請參閱本文末尾的參考資料。雖然 Java、GTK+ 和 Qt 已被人們接受並用于 Linux 和相關的開放源代碼開發,但是爲了開始使用它們,您需要花去很多時間來學習並編寫很多行代碼;它們的「進入門檻」阻礙了從面向字符編程向 WIMP(windows-icons-menus-pointers,窗口-圖標-菜單-指針)編程的悄然轉變。   雖然用戶交互的 Web 模型過于簡化,但對于許多小任務來說,它已足夠了。事實上,我的大部分 GUI 編程是關于 Web 應用程序的。   然而,有時候 Web 的模型是不夠的。您需要更成熟的可編程性或不同的安全性模型。有時候,您只是需要「另一個源」;Web 服務器的基于 Web 的控制面板會使系統太脆弱。有時候,Web 的模型太大了:常見的服務器和客戶機使用很多內存並需要配置。   但是,我有好消息。請保持高産量的系統編程習慣。請使用輕量級高級語言綁定(例如 Perl/Tk 或 Tkinter)。您將得到您已開發的程序的可移植的、可維護的、「GUI 化」的版本,這些版本能夠良好地運行,您將對此感到驚奇。   無論您喜愛的語言是 Ruby 還是 Fortran,正確的附件都將給您類似的機會。下面是一個已熟悉 Perl 的程序員成功的例子。   准備學習 Perl/Tk   您了解 Perl。它很簡潔,而且這種簡潔是巧妙的,這使您能在五分鍾內編寫報告生成器、網絡探測、文本過濾器和進程監視器,如果使用其他語言的話需一天的時間才能完成。   然而,您可能不知道,只要再加幾行代碼,您就能把 Perl 應用程序變爲表現出色、漂亮的 GUI 應用程序。在 developerWorks 上有一篇 Teodor Zlatanov 的文章(請參閱參考資料,其中有這篇文章的鏈接),這篇文章描述了 cfengine 和相關的 Perl 實用程序,還爲您演示如何編寫易用的工具,例如關閉所有 inetd 進程的短小的腳本:   清單 1. kill_inetd.pl 的源代碼   use Proc::ProcessTable;   $t = new Proc::ProcessTable;   foreach $p (@{$t-table}) {   # note that we will also kill "xinetd" and all processes   # whose command line contains "inetd"   kill 9, $p-pid if $p-cmndline =~ 'inetd';   }   如果您需要關閉幾個有問題的 CGI 進程,怎麽辦?或者,如果您需要比相當殘酷的「kill 9」更得體地發送信號,怎麽辦?如果您不在的時候您的老板或後備人員需要使用這個腳本,怎麽辦?傳統的答案是打開編輯器、把 inetd 替換成 cgi 等,然後從命令行再次運行 perl kill_inetd.pl。   然而,請把第一個清單轉換成清單 2:   清單 2. 修改後的 kill_inetd.pl 的源代碼   use Proc::ProcessTable;   use Tk;   sub kill_them {   $t = new Proc::ProcessTable;   foreach $p (@{$t-table}) {   kill $signal, $p-pid if $p-cmndline =~ $keyword;   }   $result_text = "Signal $signal sent to all '$keyword' processes.";   }   $main = MainWindow-new();   $main-Label(-text =   "Control panel for killing processes\n   enter keyword here")-pack();   $main-Entry(-textvariable = \$keyword)-pack();   $radiobutton_frame = $main-Frame-pack();   $radiobutton_frame-Radiobutton(-text = "KILL",   -variable = \$signal,   -value = 9)-pack(-side = left);   $radiobutton_frame-Radiobutton(-text = "TERM",   -variable = \$signal,   -value = 15)-pack(-side = left);   $main-Button(-text = "Send kill signal to named processes",   -command = \&kill_them)-pack();   $main-Label(-textvariable = \$result_text)-pack();   # Set reasonable defaults.   $keyword = "inetd";   $signal = 9;   MainLoop();   當您在運行清單 2 時,您將得到一個較小的但有用的 GUI 控制面板:   簡單的信號發送控制面板      用戶把它彈出一次後就可以方便地使用它而不必再輸入。   不過,請注意這二十一行的腳本爲您省去的東西:您沒有長達幾頁的聲明和配置。您沒有任何許可證限制(除了您熟悉的 Perl 許可證)。您不必學習新的語言。   新的地平線   這是令人興奮的東西。您可以使用簡短的 GUI 腳本來包裝所有的、現存的、用 Perl 代碼編寫的應用程序以使它們成爲同樣交互的、「方便用戶」的程序。事實上,您可以容易地重寫您現有的實用程序以使它們能夠在收到合適的命令行參數時繼續以正常的「批處理」方式運行,但在其他情況下能夠執行另一個分支並構造 GUI 窗口:   清單 3. 在命令行與 GUI 操作之間作出選擇         sub batch_operation {      }      sub start_GUI {      use Tk;      ...      MainLoop();   }      if (0 == scalar(@ARGV)) {    start_GUI();      }      if (errors_detected_in_@ARGV()) {    start_GUI();      }      batch_operation();   請記住:爲了取得這些結果,您只需添加幾行您已知道的 Perl(或 Python 或……)代碼。此外,因爲對于外部應用程序來說,Perl 起到「粘合劑」的作用,所以這些技術可被用來包裝您不想碰的舊的 Fortran 或 C 應用程序。您只需用一點帶有反引號(backtick)或 exec 的 Perl 來包裝它們就可以了。   Perl/Tk 還有不錯的可伸縮性。全世界每天正在使用大量的 Perl/Tk 應用程序,包括生化模擬器、地圖繪制程序、航班管理系統等。表達大規模的 Perl/Tk 編程的感覺是困難的。以上的示例演示了通過添加幾行 Perl 來「GUI 化」是多麽的容易。如果您想更充分地體會「大規模」的 Perl/Tk 編程的感覺,請參閱下面的參考資料中的參考書並自己研究更爲複雜的程序的源代碼。   一個我還沒寫的程序(雖然我已寫了這個程序的原始的原型)是 Zlatanov 的遺傳算法模擬器(請閱讀他在 developerWorks 發表的文章中有關這個模擬器的內容,這篇文章被列在參考資料中。)的圖形版本。作爲練習,讀者可以編寫一個更令人滿意的版本。我自己的實驗暗示這將是本專欄所推薦的方法的範例:當它的批處理方式的操作在易用的 Perl/Tk Canvas 小窗口上被可視化時將變得確實很生動。   如果您在幾年前就試用過 Perl/Tk 且 Perl/Tk 沒給您留下深刻的印象,那麽現在是再給 Perl/Tk 一次機會的時候。最近 Perl/Tk 的處理器有了很大的改進。對于 Perl/Tk 的初學者來說,在流行的平台上安裝二進制文件的過程被大大地簡化,Windows 的可移植性也有了改善,最新的發行版的質量更高。有關 Perl/Tk 的書越來越多,這一點也許更爲重要。O'Reilly 在七月推出了 Perl in a Nutshell 的第二版,其中有寶貴的 Perl/Tk 的參考資料。最好的消息是 O'Reilly 在 2002 年初出版了由 Nancy Walsh 和 Stephen Lidie 編寫的 Mastering Perl/Tk。如果您准備較長時間的使用 Perl/Tk,那麽 Mastering Perl/Tk 是一本您需要購買的參考書。   結束語   在系統程序員和管理員看來,GUI 工作可能有點神秘。它類似于專業的工作,這種工作不包括我們一般在「服務器診所」中進行的那些開發。   然而,它不必是那個樣子。類似 Perl/Tk 的現代的 GUI 工具箱提供了不錯的性能和功能以及本專欄經常強調的高産量和易學性。請您在這個月花一兩個小時,給 Perl/Tk 一次幫您包裝程序的機會以使程序更有吸引力。   
󰈣󰈤
 
 
 
  免責聲明:本文僅代表作者個人觀點,與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
 
寶貝清純百變豬豬
美女喜太狼裙裝時代
美麗幹練的OL
平面模特楊棋涵
石系列印象
海洲錦屏磷礦
再憶桂林
觀:重金屬所攝影:元陽梯田所想
 
>>返回首頁<<
 
 
 
 熱帖排行
 
 
 
 
© 2005- 王朝網路 版權所有