Perlの最近のブログ記事

まだsvkつこてます。なにげにsvk branchが便利です。

Windows版のGitにもPerlが入ってるんですね。やっぱり！

local::libをつかったりしてextlibを集めれば、Perlのプログラムが動かせる！
StrawberryPerlやStraweberryPerl Portableを入れなくても、PARを使わなくても！
PDF Readerを入れればAIR環境が！ とまではいかねいか・・・

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

module-starterを見てたら遭遇。カコイイ。

ポインタ。use Perl;

第2回：データアクセスことはじめ（後編）
を読んでいるんですが、PoEAAの復習が出来てよいです。

DBICってアクティブレコードだと思うんですが、Perlで
Domain Model + Data Mapperにするには何のモジュールがいいんだろう。

ただ第4回：EJB vs. POJO　〜準備編〜を読む限り
POJOっぽくしてもあまりメリットが無さそうだけど・・・
DBICには::Row, ::Resultsetに便利なメソッドがついてくるからね！
各Resultsetを統合するFacadeで十分な気もする・・・

大規模なものをやったことがないから、こう考えちゃうんですよね。
そうですよね。(´-ω-`)

"エンタープライズ アプリケーションアーキテクチャパターン (Object Oriented Selection)" (長瀬 嘉秀, 株式会社 テクノロジックアート)