我看過太多人都把四捨五入的問題看成是 ”字串” 來處理，實際上，如果把四捨五入做為”數學”來解的話，程式只要一行即可解決。

以四捨五入取整數的例子來講，其原理就是: 任何數值+0.5 再取整數。

但要注意的是，當四捨五入遇到 “負數” 時，就會變成了 “五捨六入”，這是因為中間數要往數值大的那邊進位的緣故。所以加上了負數的處理，程式至少又多了一行:
繼續閱讀 »

原因

請參考這一篇…

繼續閱讀 »

use File::Copy;
copy('file1.txt','file2.txt') or die "can't copy: $!\n";

複製目錄

sub copy_dir{
  my $source = $_[0];
  my $target = $_[1];
  use File::Copy;
  opendir(DIR,$source);
  while(my $filename = readdir(DIR)){
    if(-f "$source/$filename")){
      copy("$source/$filename","$target/$filename") or die "can't copy: $!\n";
    }
  }
  close(DIR);
}

參考網頁

本文件是參考鳥哥寫的 logfile.sh，我把它改成符合我自己系統的 LOG 分析程式，全面以 Perl 重寫。我自己用了一段時間 (其實也半年了)，覺得勉強還可以用，所以公開給大家用看看…
繼續閱讀 »

ImageMagick 是個功能強大的圖片工具，讓你讀取、寫入、操作任何熱門的圖片格式，如 GIF、JPEG、PNG、PDF… 等。使用 ImageMagick 可以即時的建立 GIF 的圖片檔案，讓圖形可以更融入網頁等應用介面。你也可以更改圖片的大小、反轉圖形、增強亮度、減少顏色對比、加入額外特殊的效果。圖片可以儲存不同的格式依你的工作需求。
繼續閱讀 »