最近因為 NA 作業2 開始寫 Perl ...

最近因為 NA 作業2 開始寫 Perl
其中一個是寫 IRC bot
作業 Demo 完後自己繼續開發新功能
要做檢查到 URL 就回應該 URL Html source 的 title label 和 縮網址
用了 CPAN 的 WWW::Mechanize
結果 xatier 丟了 gist:5538258 · GitHub 出來後
IRC bot 就 die 了
噴出了這行錯誤

Illegal field name 'X-Meta-Twitter:card' at .../HTML/HeadParser.pm line 207.


Google 了一下 Error Message 發現不少人都有遇到

根據這篇底下的 comment 找到了答案 (其實自己先 Trace code 之後也找到了同樣的地方

lwp-download fails with HTTP::Message 6.06 · Issue #3 · libwww-perl/http-message · GitHub

問題就出在 perl5/lib/per5/HTTP/Headers.pm

HTML::HeadParser 有用到 HTTP::Headers

裏面有個叫 _header 的 subroutine (不過在上面那篇的 comment 裏面好像是 header

裏面有一行

Carp::croak("Illegal field name '$field'") if rindex($field, ':') > 1 || !length($field);  

問題就出在

rindex($field, ':') > 1  

只要 : 後面有東西的話就會回傳 True

Twiiter:card: 後面有 card 所以被判定成 Illegal field name

要修正的話就照那個 comment 說的

把該行改成

Carp::croak("Illegal field name '$field'") if $field !~ /^X-Meta/ && rindex($field, ':') > 1 || !length($field);  

這樣就不會判斷 X-Meta 開頭的了

只是這問題己經 6~7 個月了 開發者最近 commit 的時間也還是 2 個月前

不懂為啥這問題遲遲不解決@@


Share


Donation

如果覺得這篇文章對你有幫助, 除了留言讓我知道外, 或許也可以考慮請我喝杯咖啡, 不論金額多寡我都會非常感激且能鼓勵我繼續寫出對你有幫助的文章。

If this blog post happens to be helpful to you, besides of leaving a reply, you may consider buy me a cup of coffee to support me. It would help me write more articles helpful to you in the future and I would really appreciate it.


Related Posts