TSperl 発言

On Fri, 17 Jan 2003 22:56:19 +0900
藤岡和夫 <kazuf@...> さんwrote:

> $lovelove = "前田愛ちゃんだよーん";
> if($lovelove =~ s/(前田愛|愛|前田亜季|亜季|中田あすみ|あすみ|村田ちひろ|ちひろ|村上東奈|東奈)(?!ちゃん)/<font color=#ff0000>$1ちゃん<\/font>/g){
>     print $lovelove, "(1)\n";
> }elsif($lovelove =~ s/((前田愛|愛|前田亜季|亜季|中田あすみ|あすみ|村田ちひろ|ちひろ|村上東奈|東奈)ちゃん)/<font color=#ff0000>$1<\/font>/g){
                        ^
                        "("が一つ抜けてた(^^;)

>     print $lovelove, "(2)\n";
> }

　$lovelove = "前田愛だよーん";

の場合と比較してみてください。

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/