[Perl]刪除指定路徑下的所有目錄及檔案 (遞迴)

剛剛在測試 Perl 用來刪除目錄的指令時,想說找找看有沒有比較狠的方法,果然馬上就讓我看到這一篇的這一個副程式:

sub rmdashrf{ 
    foreach (<$_[0]/*>){ 
        rmdashrf($_) and rmdir if(-d); 
        unlink if(-f or -l); 
    } 
    1; 
} 
rmdashrf("/tmp/test");

這個副程式以遞迴方式執行,可以刪除指定路徑下的所有目錄及檔案。

果然,真正 Perl 的高手寫程式根本不用幾行指令,就可以殺人於無形!

老闆,為什麼要做網站?

這是我在瀏覽設計魔力的「老闆,為什麼要做網站?」這一篇討論主題所截取下來的兩個重點...

製作網站的目的

製作網站的目的,或者說網站的用途:

  • 如果,你正在外面用餐、或是在開車,你的客戶打電話,現在馬上要一份你產品的規格表,請問你怎麼給他?
  • 你的客戶對你們公司的產品很感興趣,他想去你們公司拜訪一下,想問你你們公司怎麼去,你要用手畫好傳真給他嗎?
  • 你的客戶打電話來,他說他想要一樣什麼樣的商品,你告訴他你們有賣,但是他說他想看照片,你要怎麼拿給他?
  • 你人在客戶那裡,客戶突然跟你要一份產品資料,你要怎樣取得這份資料?
  • 你人在展覽會場,手上的資料發完了,有個客戶對你的產品很有興趣,你要怎麼準備資料給他?

簡單來說,網站可以讓你與客戶多一個「溝通管道」。

繼續閱讀

ProFTP 的時區設定

我的伺服器的時區設為「Asia/Taipei」(/etc/sysconfig/clock),但我用 ftp 登入伺服器時,裡面所顯示的時間,卻慢了 8 個小時,今天找了一下原因,原來是 ProFTP 的問題。ProFTP 預設使用 GMT 時間,把這個設定關掉即可。

請編輯「/etc/proftpd.conf」,加入

TimesGMT off

再重新啟動 ProFTP 即可。