10
Help us understand the problem. What are the problem?

More than 5 years have passed since last update.

posted at

updated at

「進捗・どう・です・か」をPerlで

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム

元ネタと全然処理が違うけど書いてみた。
Perl6版もどうぞ。

進捗.pl
#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
binmode STDOUT, ":encoding(UTF-8)";

my @words = qw( 進捗 どう です か );
my $regex = qr/${ \join('', @words) }$/;

&main;exit;

sub main {

    my $word_buffer = '';
    while() {
        $word_buffer .= $words[ int( rand(@words) ) ];

        if( $word_buffer =~ /$regex/o ){
            print $word_buffer, "???\n", length( $word_buffer ), "文字で煽られました。\n";
            exit;
        }
    }
}
出力
どう進捗かです進捗です進捗かです進捗どうか進捗かですですかかどうどうどうです進捗ですですかか進捗進捗ですかかどうか進捗進捗ですですどうですかどう進捗進捗どうですか???
81文字で煽られました。

そして、進捗は芳しくない。

あわせて読みたい

言語 リンク
Perl 進捗どうですかブーム???に Perl でのりかかる
Ruby 進捗どうですかブーム?にrubyでのっかってみる
Python 進捗どうですかブーム??にPythonでのりかかってみる
ShellScript 進捗どうですかブーム???にShellScriptで挑むフリしてExpectに逃げる
Haskell 「進捗・どう・です・か」をHaskellで書いてみた
Gauche 進捗どうですかブームに乗り遅れてみる
Clojure 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるClojure
Crystal 進捗どうですか Crystal
PHP 「進捗・どう・です・か」をPHPで書いてみた
Scala Scalaの進捗どうですか
D言語 d言語で「進捗どうですか」
golang golang の進捗どうですか
PowerShell 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム(PowerShell)
SQL 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるSQL
C# 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム(C#で挑戦)
Elixir Elixirで進捗どうですか?
bat 「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるバッチ
Vim script 「進捗・どう・です・か」をVim scriptで
golang + C言語 今年(2015年)に流行った「進捗・どう・です・か」をcgo + stringerで作ってみる。
Perl6 【Perl6】あの素晴らしい「進捗どうですか???」をもう一度
Kotlin Kotlinに煽られる
bash,Ruby 「進捗・どう・です・か」をbashで
bash 「進捗・どう・です・か」 -- コマンドパイプ版
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
10
Help us understand the problem. What are the problem?