無窮 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;
# 文字列連結の . が必要
}

$dummy3 =~ s/$sTextReg/$1$rText$2/;
# 文字列連結の . は不要

return (0);

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

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












管理者にだけ表示

トラックバックURL↓
http://nhm.blog75.fc2.com/tb.php/388-fee22720

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