Snippets

sironekotoro 川柳をランダムに生成する

Created by sironekotoro last modified
use strict;
use warnings;
use feature qw/say/;        # say関数を利用可能にする

use utf8;                   # スクリプトで直接日本語を扱う時に記述
use Encode qw/encode/;      # 日本語表示する時に利用
use List::Util qw/shuffle/; # 配列をシャッフルするshuffle関数を利用

my @kami;   # 上の句を入れる配列
my @naka;   # 中の句を入れる配列
my @simo;   # 下の句を入れる配列

# __DATA__セクションから1行ずつもってくる
for my $line (<DATA>) {

    chomp $line;    # 末尾にある改行コードを削除する

    # 俳句を空白を目印に分割し、それぞれ
    # 上の句、中の句、下の句に分割する
    my ( $kami, $naka, $simo ) = split /\s+/, $line;

    # 用意した配列に追加する
    push @kami, $kami;
    push @naka, $naka;
    push @simo, $simo;
}

# shuffule関数で配列の中をシャッフルする
@kami = shuffle @kami;
@naka = shuffle @naka;
@simo = shuffle @simo;

# それぞれの配列の最初の要素をjoinでつなげる
my $haiku = join ' ', ( $kami[0], $naka[0], $simo[0] );

# 表示する
say encode( 'utf8', $haiku );

# # 上の句、中の句、下の句が同じ数取れているか、確認のテスト
# if (scalar @kami == scalar @naka && scalar @naka == scalar @simo){
#     say 'test ok'
# }


# 第31回サラリーマン川柳 ベスト11-100|サラリーマン川柳|第一生命保険株式会社
# https://event.dai-ichi-life.co.jp/company/senryu/archive/31-11-100.html
__DATA__
言ったけど だれに言ったか わからない
何事も 妻ファーストで うまくいく
体重計 上る勇気と 見る勇気
記憶にない 夫のどこに ほれたのか
老後にと 米寿の父が 貯金する
新人に メールで指示して 返事は「りょ」
減量の 決意はいつも 満腹時
汗だくは イケメンだけが 許される
ウォーキング 秋に始めて 冬終わる
社内エコ 無駄を無くせと 配る紙
1日の 嫁との会話は 9秒台
上司にも 部下にも言えない 「ちがうだろ」
人減らし 「定時であがれ 結果出せ」
父さんの 苦労知ってる 靴の底
ヨガマット いつしか昼寝の 敷き布団
間違えた! 上司へライン 「愛してる」
パパ来てよ 必要だったの 指紋だけ
妻いない この日は朝から プレミアム
小腹すき ダンナに言えば 小腹どこ?
封筒の 厚みでわかる 再検査
飲み会で 上司の隣 ゆずりあう
朝一で 嫌いな上司の 予定見る
AIに 翻訳させたい 嫁の機嫌
減塩の メニュー頼んで 塩かける
俺ん家も 長期政権 嫁一強
嫁からの  返事はいつも 既読だけ
若作り 検診結果は 年相応
禁煙し それでも家で 煙たがれ
売り言葉 買って二倍に 返す妻
正直で 忖度なしの 体重計
お腹出た? 「内部留保」だ 気にするな
ヨーイドン 気持ち走るも 足は出ず
改善を 提案すると 業務増え
ランニング ゴールは近所の 居酒屋へ
定年後 妻のトリセツ 子に習い
保存先 いつもどこかへ かくれんぼ
変わったね 太ったねとは 言い切れず
天職と 言って転職 繰り返す
断った 上司と酒場で 鉢合わせ
今どきは シャープと言わず ハッシュタグ
ままごとも パパが買い物 行かされる
玩具屋で 孫に隠れて 値札見る
年ごとに スーツと妻が キツクなる
孫に聞く 将来の夢 ユーチューバー
AIが 俺の引退 早めそう
インスタに 映えます冷めます 嫁の飯
家族ライン 父のコメント 既読無し
ふるさとへ 納税だけが 帰省する
薄さでは スマホに負けぬ わがサイフ
空き缶日 他の缶見て 格差知る
静かだね 部長がいないと プレミアム
都合よく 「若手」「中堅」 使われて
ブログ見て 部下の本音を 家で知る
辞めますも SNSで 済ます部下
旦那への 家事に一言 ちがうだろー
サプリやめ アプリで変身 妻の画像
近頃の 写真は真実 写さない
効率化 提案するたび 人が減る 
人生が 100年となり 大慌て
AIよ 俺の上司の 指示わかる?
本業は 会社に隠れて ユーチューバー
遅れても はっきり寝坊と 言う新人
制度より 働き方は 風土から
格安は スマホと父の お小遣い
インスタで イイネ!とるため 食べ歩き
業績は いいと聞くのに 感じない
プレミアム おかげで木曜 残業だ
ラインから 絵文字が消えた 夫婦仲
セルフレジ きかい相手に あたま下げ
相談は 上司先輩 よりネット
テレワーク 在宅勤務は 妻がNO
見栄を張り 現実を知る 試着室
料理出て 写真撮るまで 待てをする
IoT なんの表情? このマーク
胃袋へ 証拠隠滅 パパの分
忖度し 娘と別に 洗濯し
一万歩 足りないからと 次の店
父さんの 下着どうして 排除する
課長さん たまには部下にも 忖度を
週始め やる気を消し去る メール数
AIが オレのレポート 見て笑う
我が秘密 変換予測が 喋ってた
履歴書に インスタ映えの 顔写真
試着室 格闘中に 声かかる
上司より フォロワー数の 多い部下
出したパス 誰も取らない 会議室
テレワーク 家ではかどる 妻しぶる
後輩が 心開くの LINEだけ
飲み会に 部下を誘って 10連敗
昼休み 「いいね!」求めて 洒落た店

Comments (0)