sironekotoroの日記

Perl で楽をしたい

2020-09-01から1ヶ月間の記事一覧

Mouseのコンストラクタで1時間ちょっとハマったところ

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

マザーテレサの(ものとして流布されている)言葉をPerlで

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

Perlモジュール作成実況中継 一気通貫 テストを添えて

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

Perl から Slack の incoming-webhook 宛にメッセージを飛ばす

あっさりできてしまった。 #!/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アプリでもターミナルっぽいカーソル操作を行いたい!

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