Category Archive: 伝統医学

post by yamamoto | | 0 | 552 views

繁體中文中醫資訊

台灣 國立中國醫藥研究所 中西醫病名對照大辭典 兩岸 亞太中醫藥網

post by yamamoto | | 0 | 551 views

四神湯

淮山(山芋)、蓮子(ハスの実)、茯苓(ブクリョウ)、芡實(オニバスの実)の四種類の漢方をいれた養生スープ。

post by yamamoto | | 0 | 850 views

台湾中医ネット

台湾中医網(中国語)は、中医師(台湾の漢方鍼灸の医師)が健康相談や、診療所等の検索を提供するサイトです。登録している中医師は993名(2010.12.17時点)となります。

post by yamamoto | | 0 | 782 views

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);        ...

post by yamamoto | | 0 | 721 views

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, ...

post by yamamoto | | 0 | 573 views

中医基礎理論のサイト

山东中医药大学

post by yamamoto | | 0 | 488 views

降脂茶

何首烏 2錢 決明子 2錢 山楂 2錢 澤瀉 2錢 銀杏葉 0.5錢 甜蘭葉 0.5錢 煮法:2000cc的水,煮至1500cc當茶喝