■[Perl]MozReplテスト

#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet;

my $t = new Net::Telnet(
    Port => 4242,
    Host => 'localhost',
);

$t->cmd(qq|content.location.href='http://www.google.co.jp'|);
my @message = $t->cmd(qq/alert('Hello,World!')/);
$t->close;

print @message;

動きますた。Net::Telnetって初めて使った。

Rubyのコードとほとんど変わりませんね。

てか、もうPlaggerのプラグインで出てる！

http://subtech.g.hatena.ne.jp/youpy/20060928/p1

Permalink | コメント(0) | トラックバック(0) | 02:37