perlでズンドコゲッター

概要

paizaのperlでズンドコゲッターやってみた。

実際

サンプルコード

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use HTTP::Cookies;
use Encode;

binmode(STDOUT, ':utf8');

sub zundoko
{
    my $ua = LWP::UserAgent->new();
    my $res = $ua->get('http://ohijs0.paas.jp-e1.cloudn-service.com/zundoko');
    my $cont = decode('utf-8', $res->content() || '');
    return $cont;
}
my $i = 0;
while (1) 
{
    my $r = zundoko();
    print $r." ";
    if ($r eq 'ドコ') 
    {
        if ($i == 4) 
        {
            last;
        }
        $i = 0;
    }
    else
    {
        $i++;
    }
}
print "キ・ヨ・シ！\n";