DPCデータ調査研究班 一般社団法人 診断群分類研究支援機構
Category Archive: 医療
蠶寶寶與醫學（－）
【流感疫苗的製造】資料來源 利用蠶寶寶製成預防效果高的流感疫苗技術，已由沖繩名護市的生物資源研究所開發成功，2013年3月12日由病毒學家的根路銘所長在那霸市召開的「沖繩新產業創出投資事業」的研究發表會中做了報告。 讓人害怕的毒性特強的新型流感，其來源被認為來自高致病性的H5N1型的禽流感。 病毒開始流行的話，有效的疫苗的早期生產以及供應是很必要的，但是現在用雞蛋的製法產量有限，成本又高。因此，同研究所開始從事蠶寶寶的疫苗製造法的研發。 從跟感染有關的H蛋白去除致病性後可拿來當疫苗蛋白。同研究所把在日本發現的高致病性病毒的H蛋白基因中的致病性基因除去，與增高繁殖力的基因結合做成合成基因，然後導入要傳染給蠶寶寶的病毒裡。 這個病毒在被感染的蠶寶寶體內大量製造疫苗用的蛋白。把蠶繭裡的蛹弄碎精製的方法，可以獲得雞蛋製法的數百倍高活性的疫苗用蛋白。 同研究所在高致病性的禽流感擴散的印尼Bogor農業大學做了共同的研究，在去年11月確認了這個方法做成的雞用的疫苗蛋白的有效性。今年6月預定正式疫苗製造。同樣方法製造人類用的疫苗也在考慮當中。 群馬縣藤岡市的試藥公司的「免疫生物研究所」開發了，把體內製造的試藥的蛋白吐到蠶繭的絲裡的基因重組蠶寶寶。兩個研究所把各自的技術組合起來，成功地開發了把流感用的疫苗蛋白吐到蠶繭絲裡的蠶寶寶。根路銘所長說：「蠶絲的蛋白用水洗就可回收，幾乎不用精製。更可能供應廉價的疫苗」
WHO Monographs
WHO Monographs WHO Monographs on Selected Medicinal Plants - Volume 1 WHO Monographs on Selected Medicinal Plants - Volume 2 WHO Monographs on Selected Medicinal Plants - Volume 3 WHO Monographs on Selected Medicinal Plants - Volume 4 WHO Monographs on Medicinal Plants Commonly Used in the Newly Independent States (NIS)
perl memo UTF-8 の置換え問題
perl 5 ( version 12 ）を使ってUTF-8を置換えするとき、うまく行けませんでした。 原因はわかりませんが、下記の現象が起こります。 my $content = "阴阳学说 yin-yang theory 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。"; $content = ~s/theory/null/g; print "$content¥n"; 【期待した結果】 阴阳学说 yin-yang 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。 【実行結果】 18446744073709551615 原因が分かり方はぜひお教えください。 しばらく下記の関数でやっております。 sub ReplaceAll { my $string = Encode::decode_utf8(shift); my $str1 = Encode::decode_utf8(shift); my $str2 = Encode::decode_utf8(shift); for (my $i=0 ; $i <= length($string); $i+=length($str1)){ my $pos=index($string, $str1, $i) ; if ( $pos>=0){ substr($string, $pos, length($str1),$str2); ...
perl tips 文字列に英文以外の文字を取り出す
#!/usr/bin/perl use strict; use Encode; my $content = "阴阳学说 yin-yang theory 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。"; print "$content\n"; my $notlatin = GetNotLatin($content); print $notlatin,"\n" ; sub GetNotLatin { my $string =shift; $string.=" "; my @alph_list = ('A' .. 'Z', 'a' .. 'z','\'','.','(',')','-' ); my @string = (); my @word = (); foreach my $character (split //, $string) { if ( grep {$_ eq $character} @alph_list ){ push(@string, $character); } else { if ($#string>0){ push(@word, ...