戻る

和名を正規化する

0001: # 名前の正規化をする
0002: # 前後の空白を削除する
0003: $pvalue{WAMEI}=~s/^ *//g;
0004: $pvalue{WAMEI}=~s/ *$//g;
0005: # ひらがなだったらカタカナにする
0006: my($hname)=unpack("H*", $pvalue{WAMEI});
0007: $hname=~s/a4a4/a4XX/g;
0008: $hname=~s/a5a4/a5XX/g;
0009: $hname=~s/a4/a5/g;
0010: $hname=~s/a5XX/a5a4/g;
0011: $pvalue{WAMEI}=pack("H*", $hname);

この HTML を検査する。( XHTML 1.0 Strict で書かれています )
Another HTML Lint Gateway ( Mirrored by htmllint.oosato.org )