設定chrome

"C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" --disk-cache-dir="R:\chrome" --disk-cache-size=1024

http://www.linuxidc.com/Linux/2012-08/69240.htm

2013/04/20測試：

# 將選好的JPEG檔複製到NEF目錄，好的JPEG檔複製到NEF目錄，執行後將JPEG
# 檔移到JPEG目錄，沒有配對的NEF移到_del目錄，配對的NEF留在原目錄。
# 2013/12/28加上checkDirectoryExist

use strict;
use File::Copy;
use File::Basename;
use Time::HiRes qw(gettimeofday);
use 5.010;

my $t0 = gettimeofday;
my $DestRAW    = "NEF/";
my $DestJPEG   = "JPEG/";
my $DelFolder  = "_del/";

#檢查目錄是否存在
&checkDirectoryExist($DestRAW, $DestJPEG);

chdir $DestJPEG;
my @fileJPG = glob "*.JPG";
chdir "..";
chdir $DestRAW;
my @fileRAW = glob "*.NEF";
chdir "..";

###############################################################################

mkdir $DelFolder;

&moveFile($DestJPEG, $DestRAW, $DelFolder, @fileJPG);
&moveFile($DestRAW, $DestJPEG, $DelFolder, @fileRAW);

my $t1 = gettimeofday;
printf("Time: %3.3f sec\r\n", $t1 - $t0);

system("pause");

sub moveFile() {
    for (3..$#_) {
        my $src = $_[1].uc( $_[$_] );

        if ( $_[0] eq $DestJPEG ) {
            $src =~ s/\.JPG/\.NEF/gi;
        } elsif ( $_[0] eq $DestRAW ) {
            $src =~ s/\.NEF/\.JPG/gi;
        }

        unless (-e $src) {
            my $dest = $_[2].$_[$_];
            say $_[0].$_[$_].' to '.$dest;
            move($_[0].$_[$_], $dest) if (-e $_[0].$_[$_]);
        }
    }
}

sub checkDirectoryExist {
    for(@_) {
        if(!-e $_) {
            say "Not found \"$_\"";
            die;
        }
    }
}

# 將選好的JPEG檔複製到NEF目錄，好的JPEG檔複製到NEF目錄，執行後將JPEG
# 檔移到JPEG目錄，沒有配對的NEF移到_del目錄，配對的NEF留在原目錄。

Lazarus 1.0 64bit 在Windows 7 64bit上會跟avast antivirus防毒打架，以前的版本是沒這個問題，九月升級以後就跑出來了，會出現一對的存取錯誤，只要一執行或關閉程式都會這樣。在Windows XP 32bit上安裝Lazarus 32bit跟防毒沒出現問題，目前還不知道怎樣解決？

1. 如果在Project -> Options會出現Accss violation，可以用這個方法。

http://www.wretch.cc/blog/jhystart/15056819

#有中文檔名會不能移動，這應該是perl的問題，可能要改成unicode輸出才行。原本移動所有檔案的作法會慢很多，改成新作法後，處理一天幾百個檔案x2，應該在1秒內。最後動作時再次判斷檔案是否存在其實有點多餘，因為一開始收集檔名時就已經知道了，其實可以用刪除法將陣列縮減，這樣就不用再判斷一次了。

# 將選好的JPEG檔複製到NEF目錄，好的JPEG檔複製到NEF目錄，執行後將JPEG

1

恆星最快今年大爆炸 將有「兩個太陽」

更新日期:2011/01/23 10:46 編譯王麗娟／報導

人類今年有望目睹恆星爆炸成超新星，將黑夜化為白晝的宇宙異象。地球人不僅可在「前座」觀賞這場星光秀，這顆超新星的亮度將有如天空出現兩個太陽，時間短則一週，長則數週。

可以用來治療疱疹，一條好像300元。

寰宇投資／想賺錢 遠離十大投資錯誤
【經濟日報╱編譯何信彰】

ntst -c q -p PID的方式算好用，只對在寫程式造成錯誤時，似乎也是沒辦法直接刪除掉，對付一般的程式來說已經夠了。

2010/11/01 USD/CAD日線圖

由於FED的QE2將在11/03發布，非美都有相當程度的上漲，但cad受到twd升值漲幅不大，還一直處於貶值情況下。指標上顯然cad向下發展機率較高