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/