Namazu-devel-ja(旧)

[Kenji Suzuki <kenji@xxxxxxxxxxxxxxxx>]

On Thu, 13 Sep 2001 17:51:04 +0900
藤原  誠 / Makoto Fujiwara <makoto@xxxxx> wrote:

> +--------------------------------------------
> #!/usr/local/bin/perl
> $string = "<title>test
> test ここからてすと</title>";
> 
> $str2 = $string;
> 
> if ($string   =~ s!<TITLE[^>]*>([^<]+)</TITLE>!!i) {
>     $m1 = $1; }
> if ($str2     =~ s!<TITLE[^>]*>([^<]+)</TITLE>!!is) {
>     $m2 = $1; }
> 
> print $m1,"\n";
> print $m2,"\n";
> +--------------------------------------------

$ /usr/local/bin/perl test.pl 
test
test ここからてすと
test
test ここからてすと

となりました。woody 付属の /usr/bin/perl でも同じ結果です。

ということで、sなし説は棄却されました。


// Kenji