Namazu-devel-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
squash (Re: MHonArc の Subject 処理)
- From: 藤原 誠 / Makoto Fujiwara <makoto@xxxxx>
- Date: Thu, 13 Sep 2001 17:47:37 +0900
- X-ml-name: namazu-devel-ja
- X-mail-count: 02008
> 千葉市中央区長洲
> 藤原 誠
でも、次のようにすると確かにそういうことではないかと。
+---------------------------------------------
#!/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)>
---
(藤原)