無窮 i ラボ Blog

知的ネット社会、知そのもの、機械との共生、プログラミングに関して。

 
 

sub Hogehoge {

my $sTextReg = '([^a-zA-Z0-9_])'.$sText.
'([^a-zA-Z0-9_]|$)'
; # "を使わず、'を使う


if ( $dummy2 =~ /$sTextReg/ ) {
$index_point = index($dummy2, $1.$sText.$2, 0) + 1;
}

return (0);

}
スポンサーサイト
 このエントリーをはてなブックマークする このエントリーを含むはてなブックマーク  
  
 
 
■  ■  ■

 
本文へは上スクロールしてください












管理者にだけ表示

トラックバックURL↓
http://nhm.blog75.fc2.com/tb.php/387-8f5af019

新しいトラックバックほど上に表示されます。