藥膏

我常用的藥膏，作個紀錄。

成分
Chiorpheniramine Maleate ...... 10mg
Lidocaine Hydrochloride ........ 30mg
Hexachlorophene ...................... 1mg
Methyl Salicylate ..................... 10mg
Menthol ................................... 10mg
Camphor .................................... 5mg



Chlorpheniramine Maleate - 抗組織胺劑
1.可抑制或減輕因組織氨所引起之過敏症狀，也有預防暈車及懷孕　初期嘔吐療效
2.服用後會產生睡意

Lidocaine Hydrochloride - 局部麻醉劑
http://www.doh.gov.tw/lane/publish/drug/localane.htm

Hexachlorophene - 殺菌劑
對皮膚沒有刺激性的殺菌劑，對化膿性皮膚疾患有顯效，且具有除去不快體臭之作用殺菌作用不快，其優點為持久的抑菌效果。
因長期使用反而增加皮膚的菌量。抑菌效果不受肥皂及有機物的影響。

Methyl Salicylate - 合成冬青油

Menthol - 薄荷腦
使用於皮膚，能擴張血管，產生寒冷感，繼而有止痛效果。
它能緩解搔癢，可用於抗癢及蕁麻疹。
人的致死量約為2克

Camphor - 樟腦消毒殺菌、提神醒腦


同樣成分的有
美西製藥 - 必治痒藥膏
十全製藥 - 美膚健
中國化學 - 強力施美藥膏

這三支我都用過
十全那支擦上去會白白的，不是很好看。
美西似乎都買不到了。
中國化學的售價最便宜 30Gm NT $90。

這藥膏不含類固醇 (Corticosteroids)，但也因為不含類固醇效用不大，不過對於止癢是蠻不錯用的。(最多的成分就是局部麻醉劑)

外用禁止內服，醫師藥師藥劑生指示用藥。

把丟到Gmail 的圖檔再拿回來

上一篇 用Perl 備份圖檔到 Gmail 現在要把備份出去的東西拿回來。

Gmail 有提供 POP 功能，當然是利用她。
除了POP外好像還可以用 gmail-lite 把夾檔的附件做成網頁相簿的模式，但我還沒試過！！







先把 POP 功能打開 設定-> 轉寄和POP->對所有郵件啟用 POP 功能 (包含已經下載的郵件)

POP3 的設定 pop.gmail.com 使用 SSL：是 通訊埠： 995

Perl 用到的 Package 有
Mail::POP3Client ： POP 連線端的收信 Package
Net::SSLeay ： Gmail POP收信需要 SSL
IO::Socket::SSL ： Gmail POP 收信需要 SSL
IO::Handle ： POP3Client 收下來的信件存成檔案所用
MIME::Base64::Perl ： 最後把Base64 轉回成圖檔

my $socket = IO::Socket::SSL->new( PeerAddr => 'pop.gmail.com',

PeerPort => 995,
Proto => 'tcp') die "No socket!";
my $pop = Mail::POP3Client->new();
$pop->User('yourname@gmail.com');
$pop->Pass('yourpassword');
$pop->Socket($socket);
$pop->Connect();

for( $i = 1; $i <= $pop->Count(); $i++ ) {
open (FILE,">e:/$i.gml");
my $fh = new IO::Handle();
$fh->fdopen( fileno( FILE ), "w" );
$pop->HeadAndBodyToFile( $fh, $i );
print FILE "$fh";
$fh->close;
close (FILE);
&base64;
}

$pop->Close;

取回郵件後，接下來是 BASE64 的 Decode

最懶的做法就是找出 filename 和 --Message-Boundary-by-Mail-Sender-
把中間的資料存起來 Decode
/^Content-disposition: attachment; filename="(.*)"/
$filename = $1;

一直到 --Message-Boundary-by-Mail-Sender- 結束

open (FILE,">e:/$etc/$filename");
binmode FILE;
print FILE decode_base64($buf);
close (FILE);

把資料Decode 並寫入檔案，注意要用 binmode。

就完成了