perlで特定のデータを書き出す方法

質問

perlは何個かプログラムを作ったことがあるのですが、
本当に単純なものしか作ったことがない初心者です。

CSVを読み込んで、そのCSVを元に、あるURLにアクセスし、
そこで取得した特定のデータを書き出すということを行いたいのですが、
どのようにしたら実現できるのでしょうか。

お手数ですがご教授ください。

----------------

【持っているCSVデータ】
　　A　　| 　　B　　｜　　C　　　　｜
　　１　　| テキスト｜テキストｘｘｘ｜
　　２　　| テキスト｜テキストｙｙｙ｜
　　３　　| テキスト｜テキストｚｚｚ｜

【１行づつ以下のようなURLにアクセス】
http://www.abcd/テキストｘｘｘ

【表示されると以下のようなXMLが返ってくる】
<result>
<version>1</version>
<text>タイトル</text>
<coordinate>
<main_id>14231245234</main_id>
<div>テキストテキストテキスト</div>
</coordinate>
<needs_to_verify>yes</needs_to_verify>
</result>

↑
１行づつCSVを読み込んで、
ここのmain_idを一行づつテキストデータに書き出したい。

----------------

perl でファイルを読み込んだり書き出したりすることは出来るのですが、
URLにアクセスして、
特定のタグに含まれるもののみを書き出すというやり方がわかりません。。

お手数ですがどうぞよろしくお願いいたします。

回答No.1

root139 · ベストアンサー

ポイントとなるのは、CSV形式の行からの値の取出し、WWWへのアクセス、XMLの構文解析の方法かと思います。
モジュールのインストール方法については分かりますよね？

CSV形式の行からの値の取出しですが、「Perlメモ」さんが参考になります。
http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values

WWWへのアクセスですが、LWPが定番のモジュールです。これを使えば簡単に目的のページの内容を取得できるかと。
http://homepage3.nifty.com/hippo2000/perltips/LWP.html

あとはXMLの構文解析をするXMLパーサですが、これもいくつかモジュールが有ります。
http://www.ibm.com/developerworks/jp/xml/library/x-xmlperl1.html
http://homepage3.nifty.com/hippo2000/perltips/xml/parser.htm

下記のページも参考になるかも知れません。
http://www.ibm.com/developerworks/jp/webservices/library/itm-ws4/#e

お礼

ありがとうございました！
http://www.ibm.com/developerworks/jp/xml/library/x-xmlperl1.html

ここのページを見て勉強してみました。
まだ未完全ですが、
少しずつ出来てきそうです。

もう少し頑張ってみます！

回答No.2

_--_1l1_1_

適当。表示がくずれるので空白2文字を全角空白にしていることに注意。

use strict;
use warnings;
use feature 'say';
use URI;
use XML::TreePP;

use constant BASE_URI =>
　　q{http://news.google.com/news?hl=en&ned=us&ie=UTF-8&oe=UTF-8&output=rss};

my $tpp = XML::TreePP->new();
while ( my $line = <DATA> ) {
　　$line =~ s/\x0D?\x0A?$//;

　　my ( undef, undef, $keyword ) = split q{,}, $line;
　　$keyword =~ s/^[ \t]*//g;
　　$keyword =~ s/[ \t]*$//g;

　　my $uri = URI->new(BASE_URI);
　　$uri->query_form( $uri->query_form, q => $keyword );
　　say '--- GET from ', $uri;

　　my $tree = $tpp->parsehttp( GET => $uri );
　　for my $item ( @{ $tree->{rss}->{channel}->{item} } ) {
　　　　say 'title : ', $item->{title};
　　}
}

__DATA__
1, hoge, cat
2, hoge, dog
3, hoge, bird

お礼

こんなにソースまで書いていただいてありがとうございます！

ただ、知識がなくて
ちょっとしか解読できず、
一から勉強してみました。

もう少し頑張ってみます！