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";
#!/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";
Author And Source
この問題について(perlでズンドコゲッター), 我々は、より多くの情報をここで見つけました https://qiita.com/ohisama@github/items/70f5e9a9fc2e025a2cff著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .