2007年12月アーカイブ

#!/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";

#!/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;