標籤彙整：perl
以數學的原理處理「四捨五入」
我看過太多人都把四捨五入的問題看成是「字串」來處理，實際上，如果把四捨五入做為「數學」來解的話，程式大概只要幾行即可解決。 以四捨五入取整數的例子來講，其原理就是: 任何數值+0.5 再取整數。 但要注意的是，當四捨五入遇到「負數」時，處理的方式就會變成「五捨六入」，這是因為中間數要往數值大的那邊進位的緣故。所以加上了負數的處理，程式至少又多了一行:
幾種網頁轉址的語法
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 … 繼續閱讀
如何複製檔案及目錄
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 … 繼續閱讀