Namazu-devel-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: squash (Re: MHonArc の Subject 処理)



>                                            千葉市中央区長洲
>                                                    藤原  誠
何だかとても恥づかしいことを書いてしまいました。
前言取消します。野首さん支持。
+--------------------------------------------
#!/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";
+--------------------------------------------
makoto@u ■17:45:31/010913(/tmp)> ~/perl/practice/squash
test
test ここからてすと
test
test ここからてすと


---
(藤原)
http://www.ki.nu/software/NetBSD/iBook2/
http://www.ki.nu/software/namazu/tutorial/