perl の https通信が出来なかったので対処した件

いつもhttpsの接続方法を調べているのでまとめることにした。

ここではDebianでの話になっている。


$ cat /etc/os-release 
PRETTY_NAME="Debian GNU/Linux 10 (buster)"
NAME="Debian GNU/Linux"
VERSION_ID="10"
VERSION="10 (buster)"
VERSION_CODENAME=buster
ID=debian
HOME_URL="https://www.debian.org/"
SUPPORT_URL="https://www.debian.org/support"
BUG_REPORT_URL="https://bugs.debian.org/"


$ perl --version

This is perl 5, version 28, subversion 1 (v5.28.1) built for x86_64-linux-gnu-thread-multi
(with 61 registered patches, see perl -V for more detail)

LWP::Protocol::https
このモジュールを入れると関連するモジュールも入れてくれるのでこれをインストールする。

# cpanm LWP::Protocol::https

エラーが出てインストールできない場合、何かが入っていない為ログファイルを確認する必要がある。
今回はこの辺をインストールした。

# apt install gcc
# apt install libssl-dev
# apt install zlib1g-dev

gccがないとコンパイルできないと言うエラーが出る。
libssl-dev は openssl のヘッダファイルがないとエラーが出る。
zlib1g-dev は /usr/bin/ld: -lz が存在しないとエラーが出る。

インストールが出来たら、試しにFeedPPのサイトのサンプルを動かしてみた。

[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
http://www.kawa.net/works/perl/feedpp/feedpp.html

上記サイトにあるRSSを読み込むサンプルを動かした。
読み込むRSSはYahooニュースを用いた。

Yahooニュース
https://headlines.yahoo.co.jp/rss/list

URLを修正し次のようなコードを動かした。


    my $source = 'https://news.yahoo.co.jp/pickup/rss.xml';
    my $feed = XML::FeedPP->new( $source );
    print "Title: ", $feed->title(), "\n";
    print "Date: ", $feed->pubDate(), "\n";
    foreach my $item ( $feed->get_item() ) {
        print "URL: ", $item->link(), "\n";
        print "Title: ", $item->title(), "\n";
    }

無事にrssファイルからテキストを取り出せた。

AtS Report

このブログを検索