Namazu-devel-ja(旧)

[藤原 誠 / Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
でも、次のようにすると確かにそういうことではないかと。

+---------------------------------------------
#!/usr/local/bin/perl
# should be in EUC-JP
$string = "<title>test
test ここからてすと</title>";

$str2 = $string;
if ($string   =~ s!<TITLE[^>]*>([^<]+)</TITLE>!!i) {
    $m1 = $1; }
if ($string2 =~ s!<TITLE[^>]*>([^<]+)</TITLE>!!is) {
    $m2 = $1; }

print $m1,"\n";
print $m2,"\n";
+---------------------------------------------

makoto@u ■17:45:15/010913(/tmp)> ~/perl/practice/squash
test
test ここからてすと

makoto@u ■17:45:31/010913(/tmp)> 
---
(藤原)