出オチ感がるんですが、こんなコードです。 Mouse を使った Perl のオブジェクト指向のコードです。 意図したことは、$obj = UserID->new() でコンストラクタを呼ぶも、 required => 1 つまりオブジェクト生成時にプロパティを必須にしているのでエラーが出…

うちのTLに流れてきたツイート puts %w[思考 言葉 行動 習慣 性格 運命].each_cons(2).map { |a, b| "#{a}に気をつけなさい。それはいつか#{b}になるから。" }— Jun OHWADA at (@june29) 2020年9月7日 これはマザーテレサの言葉とされる文字列を表示する ru…

Perl でモジュール作るなら minilla がおすすめ（というかそれしか知らない） Perl でモジュールを作るときは Minilla を使っています。 きっかけは Web+DB Press に掲載されて記事でした。 gihyo.jp 体系だった記事があると大変助かります。 $ cpanm Minill…

あっさりできてしまった。 #!/usr/bin/env perl use strict; use warnings; use URI; use HTTP::Tiny; use JSON qw/encode_json/; my $url = URI->new('slackのincoming-webhookのURL'); my $ht = HTTP::Tiny->new; # リクエストに必要なHTTPヘッダーを組み…

自作CLIアプリでもターミナルっぽいカーソル操作を行いたい！ 例えば、こんな感じの入力〜出力の簡単なスクリプトがあります。 #!/usr/bin/env perl use strict; use warnings; while (1) { print "input>"; my $input = <STDIN>; chomp $input; print $input . "\n</stdin>…