Namazu-users-ja(旧)

[togashi@xxxxxxxxxxxxx]

2001/03/02 19:32:46 +0900にHajime BABA <baba@xxxxxxxxxxxxxxxxxxxxxx>さんに頂いた
「[namazu-users-ja] Re: 著者に METAタグの Authorを表示したい」への返事です。
とがちゃん＠日立何の気です
さっそくのアドバイスありがとうございます
>そうでなくて、filter/html.pl の get_author() を条件に合うように書
>き換えればいいんじゃないでしょうか。
でＰｅｒｌの参考書を買ってきて泥縄式に苦闘しているのですが正規表現の
固まり？？？という感じなのでｈｔｍｌ．ｐｌのsub get_author のところを
sub get_author ($$) {
    my ($contref, $fields) = @_;
# <META NAME="AUTHOR" CONTENT="ここを切り出し">
   if ($$contref =~ /AUTHOR/i && $$contref =~ /CONTENT/i) {
     $START = index($$contref, "CONTENT") + 9 ;
     $CONTENT_LEN = length($$contref) - $START - 2 ;
     $CONTENT = substr($$contref, $START, $CONTENT_LEN) ;
     $fields->{'author'} = $CONTENT;
にしました、でmknmzすると
（winNTで実行したけどPerlなのでOS関係ないですよね）

Global symbol "$START" requires explicit package name at C:/namazu/share/namazu/
filter/html.pl line 128.
Global symbol "$CONTENT_LEN" requires explicit package name at C:/namazu/share/n
amazu/filter/html.pl line 129.
Global symbol "$CONTENT" requires explicit package name at C:/namazu/share/namaz
u/filter/html.pl line 130.
Compilation failed in require at C:/namazu/share/namazu/pl/htmlsplit.pl line 27.

というエラーがでます、切り出したい行は必ず１行に先頭から書かれており
<META NAME="AUTHOR" CONTENT="ここを切り出し">　　の”ここを切り出し”の
部分のみ$fields->{'author'} に代入したいのですが。
------- ここまでが転送メッセージ



       *------------------------------------------------------*
       * 〒140-0001 品川区北品川 1-8-11 品川KYビル７F         *
       * hitachi-sc(品川)   富樫　孝夫　                      *
       * 電話（外線） 03-5769-7976(FAX7979) 内線 7861-3220    *
       *------------------------------------------------------*