Snippets

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

Updated by sironekotoro
View revision

File random_senryu.pl Modified

  • Ignore whitespace
  • Hide word diff 
 use strict;
 use warnings;
-use feature qw/say/;
+use feature qw/say/;        # say関数を利用可能にする
 
-use utf8;
-use Encode qw/encode/;
-use List::Util qw/shuffle/;
+use utf8;                   # スクリプトで直接日本語を扱う時に記述
+use Encode qw/encode/;      # 日本語表示する時に利用
+use List::Util qw/shuffle/; # 配列をシャッフルするshuffle関数を利用
 
-my @kami;
-my @naka;
-my @simo;
+my @kami;   # 上の句を入れる配列
+my @naka;   # 中の句を入れる配列
+my @simo;   # 下の句を入れる配列
 
+# __DATA__セクションから1行ずつもってくる
 for my $line (<DATA>) {
-    chomp $line;
+
+    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 );
 
-# # test
+# # 上の句、中の句、下の句が同じ数取れているか、確認のテスト
 # 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__
 言ったけど　だれに言ったか　わからない
Updated by sironekotoro
View revision

File random_senryu.pl Modified

  • Ignore whitespace
  • Hide word diff 
 
 for my $line (<DATA>) {
     chomp $line;
-    my ( $kami, $naka, $simo ) = split /\s/, $line;
+    my ( $kami, $naka, $simo ) = split /\s+/, $line;
 
     push @kami, $kami;
     push @naka, $naka;
Created by sironekotoro
View revision

File random_senryu.pl Added

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

You can clone a snippet to your computer for local editing. Learn more.