標籤彙整:perl

頁碼: 1 2 下一頁

以數學的原理處理「四捨五入」

我看過太多人都把四捨五入的問題看成是「字串」來處理,實際上,如果把四捨五入做為「數學」來解的話,程式大概只要幾行即可解決。 以四捨五入取整數的例子來講,其原理就是: 任何數值+0.5 再取整數。 但要注意的是,當四捨五入遇到「負數」時,處理的方式就會變成「五捨六入」,這是因為中間數要往數值大的那邊進位的緣故。所以加上了負數的處理,程式至少又多了一行:

發表於 coding, javascript, perl | 已標籤 , , | 2 則迴響

幾種網頁轉址的語法

HTML <head> <meta http-equiv=refresh content="0;url=http://host.domain.tld/path/to/"> </head> JavaScript <script language="JavaScript"> <!– window.location.href = "http://host.domain.tld/path/to/"; //–> </script> PHP <?php header("Location: http://host.domain.tld/path/to/"); ?> (轉址前不可有任何資料輸出) Perl #!/usr/bin/perl -w print "Location: http://host.domain.tld/path/to/ \n\n"; (轉址前不可有任何資料輸出) Perl – 使用 CGI 模組 #!/usr/bin/perl -w use CGI qw/:standard/; my … 繼續閱讀

發表於 coding, javascript, perl, php | 已標籤 , , , | 發表迴響

如何建立與 Outlook 相容的 IMap 目錄(Perl)

原因 請參考這一篇…

發表於 mailserver, perl | 已標籤 , | 發表迴響

如何複製檔案及目錄

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); } 參考網頁 File::Copy … 繼續閱讀

發表於 perl | 已標籤 | 發表迴響

格式化系統 LOG 分析 *

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

發表於 ftpserver, linux, network, perl | 已標籤 , , , , | 3 則迴響
頁碼: 1 2 下一頁