Namazu-devel-ja(旧)

[Tadamasa Teranishi <yw3t-trns@xxxxxxxxxxxxxxx>]

寺西です。

"Sakuma,Hiroaki" wrote:
> 
> $$count =~ s/[^(?:<!--Section Ends-->)]*?$//s;
> 
> でどうでしょうか？

[] の中にいれちゃダメでしょ。
 
> 試そうにも，手元にデータが無いので試せないのですが，次のコードでは問題なく動
> きます．
> 
> $str = "abc<>def<>ghi";
> $str =~ s/[^(<>)]*?$//;
> print $str;
> 
> 結果: abc<>def<>

これが動いたからといっても...。

$str = "abc<!--Section Ends-->def<!--Section Ends-->ghi";
$str =~ s/[^(?:<!--Section Ends-->)]*?$//s;
print $str;

がダメなくらいはテストできるのではありませんか?

またやりたいのは、abc<>def になる方法なので、厳密には上記のコード
でもダメです。
# 実際には最後の <!--Section Ends--> が残っても実害はありませんけど。
-- 
=====================================================================
寺西 忠勝(TADAMASA TERANISHI)  yw3t-trns@xxxxxxxxxxxxxxx
http://www.asahi-net.or.jp/~yw3t-trns/index.htm
Key fingerprint =  474E 4D93 8E97 11F6 662D  8A42 17F5 52F4 10E7 D14E