Perl で LWP

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";