LWPを使わずに別ドメインのrssファイルを読み込む

Question

perlで別ドメインのブログのrssファイルを
ＨＰに表示させたいと考えています。
こちらはphpですがこれと同じ事を
perlでやりたいと考えています。
http://ajax.pgtop.net/category/4527871-1.html

しかし、レンタルしているサーバーに
LWPライブラリがインストールされておらず
LWPを使っていないであろう下記サンプルを試してみたのですが
HTTPエラー：500と表示されるだけでした。
http://www.kawa.net/works/perl/feedpp/feedpp.html

サーバーではplファイル・cgiファイルを使っている
箇所もあり、それらは機能しているので
perlはインストールされているのですが
ライブラリ関連はほぼインストールされていない状況だと思います。
ちなみにPHPはインストールされていないので
使えない状況で、おそらく他の言語も厳しい状況です。

他のサンプル、方法などご存知の方
いらっしゃいましたら教えて頂きたいです。

宜しくお願い致します。

ralf124c · Accepted Answer

Futomiのサーバアナライザーを入れてサーバの使えるモジュールをチェックすることをお勧めします（ググればすぐ見つかります）。
PHPもLWPの無いガチガチのサーバならSocketも可能性は低いかも
LWPは「libwww-perl-5.8xxx」というパッケージに入っていてCPANのサイトからダウンロードできます。ざっと見てもバイナリ部分が見つからないのでANo.1さんの方法で可能かも知れません。
以前回答した「http://hiroba.kodate.jp/qa4024132.html」もANo.2さんとダブりますがご参考までに。

ralf124c · Answer

ANo.3&ANo.6です。
> Jcodeを使わない場合以下の行を削除する以外に
> 変更が必要な箇所はありますでしょうか？
出力がベタでいいならCGIのコードをRSSのコード(UTF-8)に合わせるぐらいでしょうか。
読み込むRSSが一箇所なら配列での処理は無駄になりますのでメインのループも不要になってコードもすっきりするかと思います(元は複数のRSSを読み込むようにしていたため)。
後、テーマ設定の配列が不要(これもRSSをHTMLに変換して利用していた名残)なのでこれも消しといてください。
とりあえず何事もトライしてみることが解決と学習の早道です。
失敗してから問うようにしたほうが回答を得やすいかと思います。

ralf124c · Answer

ANo.3です。
以下をCGIにして配列＠flsを記述してUNIXサーバ上で動かないでしょうか？
数年前に作ったのをフリーにしてはいるんですがリンク張ると規約違反になるのでソースのキモをピックアップして見ました。
このままでは使えないので改造が必要とは思いますが

#!/usr/bin/perl -w
## *********************************************************************
use Jcode;
use strict;
use Socket;
use FileHandle;

## 読込先RSS-URL
my @fls = (
  'http://www.hogehoge.jp/rss.xml',
  'http://www.hogehoge2.jp/rss.xml'
);

## テーマ設定
my @area_name = (
  '『テーマ1』 ',
  '『テーマ2』 '
);

## *********************************************************************

my @dtlist;
for(my $k=0; $k <= $#fls; $k++){
  my @xml_data = &getXmlData($fls[$k]);## データ取得
  my $sALLDATA = join("",@xml_data);
  print $sALLDATA;
}

## 処理終了
exit;

## *********************************************************************
sub getXmlData{
  my ($AccPage,@waste) = @_;

  my ($proxy_host, $proxy_port, $http);
  my ($con_host, $con_port);
  my ($host, $port, $url, $path, $ip, $sockaddr);
  my ($arg, $buf);

  my @b01;

  $arg = $AccPage;

  # デフォルトホストの設定
  $host = 'www.hogehoge.jp';## ダミー
  $port = getservbyname('http', 'tcp');
  $path = '/index.xml';## ダミー

  # URL解析処理
  $arg =~ m!(http:)?(//)?([^:/]*)?(:([0-9]+)?)?(/.*)?!;
  if ($3) {$host = $3;}
  if ($5) {$port = $5;}
  if ($6) {$path = $6;}

  $con_host = $host;
  $con_port = $port;
  $url = $path;

  # ソケットの生成
  $ip = inet_aton($con_host) || die "host($con_host) not found.
";
  $sockaddr = pack_sockaddr_in($con_port, $ip);
  socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.
";

  # ソケットの接続
  connect(SOCKET, $sockaddr) || die "connect $con_host $con_port error.
";
  autoflush SOCKET (1);

  # HTTP要求を送信
  if ($http eq '1.1') {
    print SOCKET "GET $url HTTP/1.1
";
    print SOCKET "Host: $host
";
    print SOCKET "Connection: close

";
  } else {
    print SOCKET "GET $url HTTP/1.0
";
    ## 以下一行、特定のWebサーバ用に追加→他で利用の際には要コメントアウト
    ## print SOCKET "Host: $host
";
    print SOCKET "Connection: close

";
  }

  # HTTP応答を受信
  while (chomp($buf=<SOCKET>)) {
    push(@b01,$buf);
  }
  # 終了処理
  close(SOCKET);
  return @b01;
}

teapots08 · Answer

No.1のteapotsです。

まず、use FindBin;とありますが、FindBinモジュールは使える状態なのでしょうか？

##########
> 【lib】　　ここにFreeStyleWikiから落としたSource.pmを配置
なぜ敢えてSource.pmを選んだのかがよくわからないです。
FreeStyleWikiを落としたのでしたら、その中にあるlibフォルダの中身全部を【lib】に入れて試してください。
(モジュール内の依存関係を調べるのが面倒だから。)

また、
「HTTPエラー：500」や「The server encountered an internal error or misconfiguration and was unable to complete your request.」では、プログラムのどの部分でエラーが出ているのかわかりませんから、use lib "$FindBin::RealBin/lib";の下に
use CGI::Carp qw(fatalsToBrowser);
を追加してください。
(エラーの内容を詳しくブラウザに出力するモジュールです。もちろん、【lib】内に、モジュールの本体が無ければいけません。freestylewikiのwiki.cgiの中にもありますが、エラーが出なければ必要ないのでコメントアウトしてあります。)

#########
perlが5.00503って、かなり古いような気がします。
サーバー上で「perl -c test.cgi」のように、エラーのチェックを行うと、何かわかるかもしれません。

ところで、開発環境(windows)でのwebサーバーのソフト名やperlのバージョンが書いてありませんが、プログラムのテストは自分のPCで行っていないのですか?
面倒でもサーバーと出来る限り似た環境を用意すると問題解決に役立つと思いますよ。

g_p_ · Answer

こんにちは、ANo.2 です。
use 5.008;してるので、5.8未満のバージョンではエラーになります。

IO::Socket がいつから標準モジュールなのか知らないので、
アレなんですが、

とりあえず、
use 5.008;
use Encode qw(from_to);
from_to($res, 'UTF-8', 'Shift_JIS');

の３行を消してみたらどうなりますか？

※元々、shift-jis にエンコードして正規表現にかけるのはまずかったですね。とりあえず UTF-8 のままで。

なんかダメそうな気がしますが…

ダメなら、ANo.3 さんの勧めるやり方を参照されたら良いと思います。

g_p_ · Answer

こんにちは、

perl5.8 では一応動きました。

#! /usr/bin/perl
use 5.008;
use strict;
use warnings;
use IO::Socket;
use Encode qw(from_to);

my $url = 'http://oshiete.goo.ne.jp/rss/qa_ranking/qa_ranki …

my( $host , $path ) = $url =~ m{^http://([^/]+)(.*)};

my $port = 80;

my $socket = IO::Socket::INET->new("$host:$port") or die "socket error!";

print {$socket} << "END_OF_REQUEST";
GET $path HTTP/1.1
Host: $host
Connection: close

END_OF_REQUEST

$socket->flush();

my $res;
{
local $/ = undef;
$res = <$socket>;
}
$socket->close;

#
# 以下かなりテキトーに http://oshiete.goo.ne.jp/rss/qa_ranking/qa_ranki …
# からのレスポンスを html のリストに加工してます。
#
from_to($res, 'UTF-8', 'Shift_JIS');

my @items = ();
for my $item ( $res =~ m{<item\s[^>]+>(.+?)</item>}gms ) {
push @items , {$item =~ m{<([^>]+)>([^<]+?)</\1>}gms};
}

# html 出力
print "Content-Type: text/html\n\n";
print "<ul style=\"list-style-type:decimal\">\n";

for my $item ( @items ) {
print q{<li><a href="} . $item->{link} . q{">} . $item->{title} . qq{</a></li>\n};
}

print "</ul>"

__END__

とりあえず、LWPを使わないで取得するまでは参考になるかもしれません。
取得後の加工はテキトーなので、参考にならないでしょう。

} . $item->{title} . qq{

" __END__ とりあえず、LWPを使わないで取得するまでは参考になるかもしれません。取得後の加工はテキトーなので、参考にならないでしょう。

teapots08 · Answer

> LWPライブラリがインストールされておらず...
あまり詳しいわけではないですが、
use lib './lib';
とかやると、自分のディレクトリに置いたモジュールが使えるようになるみたいです。

http://hail2u.net/blog/coding/push_at_inc_and_use_lib.html
http://d.hatena.ne.jp/magicalhat/20070419/1176951401

例として、FreeStyleWikiでは、LWPモジュールを同梱して、LWPモジュールがサーバーにインストールしてあるかどうかにかかわらず動くようにしているので、ちょっと参考にしてみるといいかと思います。

LWPを使わずに別ドメインのrssファイルを読み込む

Futomiのサーバアナライザーを入れてサーバの使えるモジュールをチェックすることをお勧めします（ググればすぐ見つかります）。

この回答への補足

ANo.3&ANo.6です。

ANo.3です。

No.1のteapotsです。

この回答への補足

こんにちは、ANo.2 です。

こんにちは、

この回答への補足

> LWPライブラリがインストールされておらず...

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング