Webページの情報をそのままとってきたいという要望はあると思います。
そんな時には、Perl の LWP を使うと便利です。
以下のサンプルでは、引数に指定した URL のWebページのソース情報を出力します。
#!/usr/bin/perl -w
use strict;
use warnings;
use HTTP::Request::Common;
use LWP::UserAgent;
sub get_stock_price {
my ($code) = @_;
my $url = sprintf($code);
my $response = LWP::UserAgent->new->simple_request(GET $url);
print $response->content;
return 0;
}
print get_stock_price($ARGV[0]) . "\n";
0 件のコメント:
コメントを投稿