Perl: 2007年12月アーカイブ
直前のスクリプトをcrawl.plと保存して
自分の管理してるサーバーに実行させよう。
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use Perl6::Say;
use Net::SSH::Perl;
use IO::All;
my @hosts = qw/
too.foo.bar
many.foo.bar
secret.foo.bar
/;
my $user = "bokutin";
my $cmd = "/usr/bin/perl";
#my $stdin = "print 'test';";
my $stdin = io("$FindBin::Bin/crawl.pl")->slurp;
for my $host (@hosts) {
my $ssh = Net::SSH::Perl->new($host,
protocol => 2,
identity_files => ["$ENV{HOME}/.ssh/id_rsa"],
);
$ssh->login($user);
my($stdout, $stderr, $exit) = eval { $ssh->cmd($cmd, $stdin) };
if ($@) {
print "$host: connecting error.\n";
}
else {
print "$host:\n";
for (split("\n", $stdout || "")) {
print "\tSTDOUT: $_\n";
}
for (split("\n", $stderr || "")) {
print "\tSTDERR: $_\n";
}
print "\tEXIT CODE: $exit\n";
}
}
say "succeed";
さみしぃので自作自演するでつ。
MyMiniCityとは。 友達にURLを渡してアクセスしてもらうと街が育っていくゲーム『MyMinCity』
うーん、手元の環境じゃ上手く住人さん増えなかったので。 MyMiniCity部を巡回するスクリプト2:今度はPerlで
MyMiniCityとは。 友達にURLを渡してアクセスしてもらうと街が育っていくゲーム『MyMinCity』
うーん、手元の環境じゃ上手く住人さん増えなかったので。 MyMiniCity部を巡回するスクリプト2:今度はPerlで
#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize;
my $city_name = "shiawase";
my @hrefs = (
"http://$city_name.myminicity.com/",
"http://$city_name.myminicity.com/favicon.ico",
"http://$city_name.myminicity.com/js/app.js?v=0",
"http://$city_name.myminicity.com/js/swfobject.js?v=0",
);
for my $href (@hrefs) {
my $mech = WWW::Mechanize->new();
$mech->add_header( Referer => "http://$city_name.myminicity.com/" );
$mech->agent_alias( 'Windows IE 6' );
$mech->get($href);
}
print "succeed\n";
exit 0;
自作自演で、益々淋しくなったでつ。
