LWP::Simple,get()
221 ワード
最も簡単で便利なページをゲットする方法:
#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
my $url = shift || "http://www.chinaunix.net";
my $content = get($url);
print $content;
exit 0;