MySQL 5.6 change installation path

原本安裝在 E:\MySQL\MySQL Server 5.6，想搬到 F:\MySQL\MySQL Server 5.6。

步驟：
1. 關閉 MySQL service
2. copy E:\MySQL to F:\MySQL
3. 將 F:\MySQL\MySQL Server 5.6 安全性新增 Network Service 完全控制。
(如果沒有調整權限，MySQL service會無法啟動。錯誤訊息為：The MySQL56 service terminated unexpectedly.  It has done this 3 time(s).)
4. 修改 F:\MySQL\MySQL Server 5.6\my.ini。改為 datadir="F:/MySQL/MySQL Server 5.6/data\"。
5. 執行 regedit 修改 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\MySQL56\ImagePath，改為 "C:/Program Files/MySQL/MySQL Server 5.6/bin\mysqld" --defaults-file="F:\MySQL\MySQL Server 5.6\my.ini" MySQL56
6. 啟動 MySQL service

Lenovo x230 install Windows 7 and Windows 8

公司買了一台 Lenovo x230，預設安裝的是 Windows 8。需要安裝 Windows 7 並做成雙系統。

需要修改 BIOS 才能夠再安裝 Windows 7。

1. Secure Boot disable

2. UEFI/Legacy Biit Both

2013/11/26 理髮

到交大理髮。

樹葉長出來了。

2013/11/23 ~ 26 感冒記錄

2013/11/23 (六) 去參加龍山國小校慶園遊會，可能人多被傳染感冒，晚上感覺有感冒的跡象，吃了葛根湯，還是沒能閃過這次感冒。

2013/11/24 (日)，喉嚨卡卡的，吃龍角散、喉糖。

2013/11/25 (一)，喉嚨痛、聲音沙啞。吃喉糖、Nu Skin R2，早一點睡。半夜有點咳。

2013/11/26 (二)，喉嚨不痛了，聲音還有一點鼻音。吃Nu Skin R2。

2013/11/27 (三)，喉嚨不痛了，聲音還有一點鼻音，流鼻水。吃Nu Skin R2。

2013/11/28 (四)，流鼻水。吃Nu Skin R2。

2013/11/29 (五)，流鼻水。吃Nu Skin R2。

2013/11/30 (六)，不會流鼻水了，只剩一點鼻音。

2013/12/01 (日)，不會流鼻水了，只剩一點鼻音。

2013/12/02 (一)，不會流鼻水了，只剩一點鼻音。吃Nu Skin R2。

2013/12/03 (二)，好了。Ya!!

linux lpq printer not ready

Reference:
http://linux.dsplabs.com.au/cups-fixing-cups-printer-problem-usr-lib-cups-backend-lpd-failed-p16/
http://cityblogger.com/archives/2011/05/26/solution-for-cups-printer-not-ready

Status:
lpq: [printer] is not ready.

Solution:
1. edit /etc/cups/printers.conf and find these lines.
State Stopped
StateMessage /usr/lib/cups/backend/lpd failed

2. replace with this line.
State Idle

3. restart print service: service cups restart

Perl Arrays of Hashes & array sort

Reference:
http://docstore.mik.ua/orelly/perl/prog3/ch09_03.htm

@AoH = ();
push @AoH, { ID => "1201", range => 7, price => 50 };
push @AoH, { ID => "1202", range => 5, price => 20 };
push @AoH, { ID => "1203", range => 6, price => 30 };
print $AoH[1]{price};

# hash %row
$row{ID} = "1204";
$row{range} = 4.3;
$row{price} = 70;
push @AoH, \%row;    # add %row to array by address
print $AoH[4]{range};
print $#AoH;   # array items number

# sort array by range
@AoH = sort {$b->{range} <=> $a->{range}} @AoH;
print $AoH[0]{ID};
print $AoH[1]{ID};
print $AoH[2]{ID};

Huawei S1700 Giga switch Trunk and VLAN setting

Excel 2007 傳送命令給程式時發生錯誤

參考這一篇的解法

左上角的 Office 按鈕、[Excel 選項]、[進階]、取消 [一般] 區塊中的 [忽略其他使用動態資料交換 (DDE) 的應用程式]

2016/1/13 update:
開啟 簡體檔名時出現 "請確定您輸入正確的名稱"，也可用此方法。

Microsoft DRM / RMS disable the PrtScrn key

今天發生一件嚇死人的事，有一台 PC 按 PrtScrn (Print Screen) 沒效！
印象中以前有一隻病毒會關掉 copy & Paste 功能，難道是中鏢了。

Test 1: 先重開機，剛開始 Print Screen 是正常的，開了幾個文件後又不行了。
Test 2: 懷疑鍵盤壞了，接另一支鍵盤，狀況一樣。
Test 3: 用 Google 搜尋，沒找到其他人有這樣的狀況。

最後把所有的軟體都關掉，居然恢復了。
檢查發現有一份文件啟用了 Microsoft RMS，只要這一個檔案開著 Print Screen 就失效。
呼~~~ 幸好沒事~~~

2013/11/18 體脂創新低

昨天去吃小銅板牛排，本來預期今天量體脂會上升，但是體脂卻是創新低，身體年齡30歲！就當作是體脂計誤差造成的美麗的誤會吧 ^__^

2013/11/17 小銅板牛排

CentOS Chinese input

Reference:
http://www.cnblogs.com/feichan/archive/2012/04/02/centos.html

CentOS 6.4 install Chrome

Reference:
http://www.oschina.net/question/254443_115424

x64:

yum install http://people.centos.org/hughesjr/chromium/6/x86_64/RPMS/chromium-28.0.1500.52-207119.x86_64.rpm

i386:

yum install http://people.centos.org/hughesjr/chromium/6/i386/RPMS/chromium-28.0.1500.45-205727.i686.rpm

Perl fails to open excel file when executing from Windows Task Scheduler

Reference:
Link1 Link2 Link3 Link4

狀況：
Perl 用 Win32::OLE 讀取 Excel 檔案，測試過可以正常執行，但是放到 排程工作 卻不執行。

解法：
1. Create directory "C:\Windows\SysWOW64\config\systemprofile\Desktop " (for 64 bit Windows) or "C:\Windows\System32\config\systemprofile\Desktop " (for 32 bit Windows)
2. Set Full control permissions on directory Desktop for the account running perl in background (for example in Win7 & IIS 7 & DefaultAppPool set permissions for user "IIS AppPool\DefaultAppPool")

Perl read / write Excel file

Reference:
http://blog.dwightmann.com/entry.asp?id=60
http://stackoverflow.com/questions/9761443/issues-reading-time-value-in-perl-using-win32ole

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

$Win32::OLE::Warn = 3; # die on errors...

$excel_file = "c:/tmp/myexcel.xls";

my $Excel_to_read = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');

my $Book_to_read = $Excel_to_read->Workbooks->Open($excel_file);

my $Sheet_to_read = $Book_to_read->Worksheets(1);

print $Sheet_to_read->Cells(5,3)->{'Value'};

註：針對欄位格式為自訂，必須用$Sheet_to_read->Cells(5,3)->{'Text'}

DELL R620 install network card driver on CentOS 5.6

Reference:
http://public.support.unisys.com/pcproducts/esx/docs/delldocs5.4/en/broadcom/netxtreme/linux.htm
ftp://ftp.dell.com/Pages/Drivers/poweredge-r620-all.html#Network

DELL driver download 網站有好幾款網路卡driver，把 DELL R620 打開看到網路卡寫 BRCM GbE 4P 5720-t rNDC，用 Google 搜尋後確認是 Broadcom 網路卡。

在 DELL 網站 download Broadcom network driver。
用 rpm -ivh 安裝時出現需要 DKMS。
搜尋 DELL DKMS 後 download DKMS from http://linux.dell.com/dkms/
用 rpm -ivh dkms-version.src.rpm 安裝
再安裝 rpm -ivh tg3-3.124c-1.dkms.noarch.rpm

Perl CPAN urllist reconfig

Reference:
http://major.io/2008/06/16/adjusting-cpan-mirror-list/

執行 cpan
Display your current mirrors:
cpan> o conf urllist

Delete the first mirror in your list:
cpan> o conf urllist shift

Delete the last mirror in your list:
cpan>  o conf urllist pop

Reconfig:
cpan> o conf init

[轉錄]PTT上ungm板友的簽名檔-帥哥醜男跟阿宅的比較

行為 人種	在家	微笑	留鬚	搭訕	看書	搭肩	運動	睡著	耍溫柔	裝豪邁
*帥哥*	孝順	陽光	有型	開心	斯文	害羞	活力	可愛	體貼	男人味
醜男	無聊	變態	拉褟	報警	蠢	騷擾	減肥	懶惰	娘娘腔	粗漢
宅男	宅	宅	宅	宅	宅	宅	宅	宅	宅	宅

Perl send mail via gmail

Reference:
http://dipinkrishna.com/blog/2010/12/sending-emails-gmail-smtp-perl/

use Net::SMTP::TLS;   # ActivePerl 5.14 才有

my $smtp = new Net::SMTP::TLS(
'smtp.gmail.com',
Port    => 587,
User    => 'sender@gmail.com',
Password=> 'Password',
Timeout => 30
);

#  -- Enter email FROM below.   --
$smtp->mail('sender@gmail.com');

#  -- Enter recipient mails addresses below --
my @recipients = ('recipient1@gmail.com', 'recipient2@yahoo.com');
$smtp->recipient(@recipients);
$smtp->bcc(@recipients);

$smtp->data();

#This part creates the SMTP headers you see
$smtp->datasend("To: recipient1\@gmail.com\n");
$smtp->datasend("From: Chandler \n");
$smtp->datasend("Content-Type: text/html \n");
$smtp->datasend("Subject: A Test Mail");
# line break to separate headers from message body
$smtp->datasend("\n");
$smtp->datasend("This is a test mail body");
$smtp->datasend("\n");
$smtp->dataend();

$smtp->quit;

Perl web file download

Reference:
http://jck11.pixnet.net/blog/post/4899927-%E5%88%A9%E7%94%A8lwp%3A%3Asimple%E4%B8%8B%E8%BC%89%E7%B6%B2%E9%A0%81%5Bperl%5D

use LWP::Simple;

my $url = "http://www.otc.org.tw/storage/statistic/financial/O_2013Q2.xls";
my $file = "capital_gretai.xls";
getstore($url, $file);

Perl file unzip

use IO::Uncompress::Unzip qw(unzip $UnzipError) ;

$file_input = 'myfile.zip';
$file_output = 'myfile.xls';

unzip $file_input => $file_output, BinModeOut => 1;