sironekotoroの日記

Perl と Mac の初心者の備忘録

Perl入学式 2019 in東京 秋開講 第1回 お疲れ様でした

Perl入学式 2019 in東京 秋開講 第1回

受講された方、サポーターの方、お疲れ様でした。 講師をやったジャージの人です。

春開講でカリキュラムを詰め込み過ぎてしまった反省から、従来の範囲に戻しての第1回となります。

今回ですが、Perlの学習内容としては以下のみとなり、特に復習問題はありません。

#/usr/bin/env perl
use strict;
use warnings;

print "Hello World!";

Perlの復習問題はありませんが、今回学んだCUI(黒い画面)での操作については復習をお願いします。

普段GUI(マウスやタッチパッド)で行なっているファイル操作も、CUIとなると勝手が違うところが出てきます。

まずは繰り返し操作して慣れることが必要です。

第1回については、去年の記事も参考になると思います。

sironekotoro.hateblo.jp

Perl入学式 第2回は変数(スカラー変数)や条件分岐(IF文)、繰り返し(For文)などの「よりプログラムらしい事」について解説・実践していきます。

みなさんにお会いできるのを、楽しみにしています。

perl-entrance-tokyo.connpass.com

受講生さん&元受講生さんへ

私が2013年にPerl入学式を受講して、6年を過ぎました。

それとともに、初学者の視点・気持ちを忘れつつあります。

前提知識や前置き無しに何かを話していることも多いと思います。そういう時は私や周囲のサポーター、slackやtwitterで質問をお願いします。解説はもちろん、テキストの修正も含めて対応していきます。

また、自分の学習記録を残しておくこともおすすめです。成長した後に自分の足跡を振り返るというのは楽しいものです。

できればブログとして公開してくれると嬉しいです。

Visual Studio Codeの日本語化

今回、プログラムを書くためのエディタに「Visual Studio Code」を紹介しました。

インストール直後はメニューの言語が英語に設定されています。

以下の手順で日本語メニューに変更することができますので、英語に抵抗のある人は日本語化してみてください。私も日本語化しています。

  1. ウィンドウ左上の View -> Command Palette から Configure Display Languageと入力して候補を選択する。

  2. Install Addicional Languages を選択する。

  3. 左側のメニューから「日本語」を選択し、緑色の「Install」ボタンを押す。

  4. 一度Visual Studio Codeを閉じて、再度起動する。

  5. 英語表記に戻す場合には、1. から en を選択することで英語メニューになります。

Perl入学式 2019 in東京 秋開講 第1回 お疲れ様でした

Perl入学式 2019 in東京 秋開講 第1回

受講された方、サポーターの方、お疲れ様でした。 講師をやったジャージの人です。

春開講でカリキュラムを詰め込み過ぎてしまった反省から、従来の範囲に戻しての第1回となります。

今回ですが、Perlの学習内容としては以下のみとなり、特に復習問題はありません。

#/usr/bin/env perl
use strict;
use warnings;

print "Hello World!";

Perlの復習問題はありませんが、今回学んだCUI(黒い画面)での操作については復習をお願いします。

普段GUI(マウスやタッチパッド)で行なっているファイル操作も、CUIとなると勝手が違うところが出てきます。

まずは繰り返し操作して慣れることが必要です。

第1回については、去年の記事も参考になると思います。

sironekotoro.hateblo.jp

Perl入学式 第2回は変数(スカラー変数)や条件分岐(IF文)、繰り返し(For文)などの「よりプログラムらしい事」について解説・実践していきます。

みなさんにお会いできるのを、楽しみにしています。

perl-entrance-tokyo.connpass.com

受講生さん&元受講生さんへ

私も2013年にPerl入学式で受講してからPerl歴も6年を過ぎました。

それとともに、初学者の視点・気持ちを忘れつつあります。

前提知識や前置き無しに何かを話していることも多いと思います。そういう時は私や周囲のサポーター、slackやtwitterで質問をお願いします。解説はもちろん、テキストの修正も含めて対応していきます。

また、自分の学習記録を残しておくこともおすすめです。成長した後に自分の足跡を振り返るというのは楽しいものです。

できればブログとして公開してくれると嬉しいです。

Visual Studio Codeの日本語化

今回、プログラムを書くためのエディタに「Visual Studio Code」を紹介しました。

インストール直後はメニューの言語が英語に設定されています。

以下の手順で日本語メニューに変更することができますので、英語に抵抗のある人は日本語化してみてください。私も日本語化しています。

  1. ウィンドウ左上の View -> Command Palette から Configure Display Languageと入力して候補を選択する。

  2. Install Addicional Languages を選択する。

  3. 左側のメニューから「日本語」を選択し、緑色の「Install」ボタンを押す。

  4. 一度Visual Studio Codeを閉じて、再度起動する。

  5. 英語表記に戻す場合には、1. から en を選択することで英語メニューになります。

HTTP::TinyでBasic認証を超える

昨日今日とやっていた「AWSをはじめよう」ではWordPressのサイトを立てて、そこの管理者ページにApacheBasic認証をかけます。

で、読み終えた後にBasic認証越しの情報ってPerlは取れるんかなー?と思って、ググったら既にやってた方がいて、コードまで載ってた。ありがたい。

サンプルのコードのURLと認証情報書き換えただけでいけた。

HTTP::Tinyでやってみる

同じことを標準モジュールのHTTP::Tinyでもできるんかなー?と思ってやってみたらできたのであげる。

ちょっとだけ詰まったのは、base64エンコードするときに、第2引数に空文字を入れないと改行が入っちゃうということ。

HTTP::TinyMIME::Base64もコアモジュールなので大体は大丈夫なはず。

文字列連結にsprintfとか使っちゃってるのは明らかにお仕事の影響ですね・・・

追記

・・・!?できた。

これだとbase64エンコード云々もいらないじゃーん

#! /usr/bin/env perl
use strict;
use warnings;
use HTTP::Tiny;

my $user = 'user';
my $pass = 'pass';
my $url
    = sprintf( 'https://%s:%s' . '@認証後のURL',
    $user, $pass );

my $res = HTTP::Tiny->new->get($url);

print $res->{content} if $res->{success};

AWSをはじめよう! で詰まったところ

ってことで、2019年09月最初の連休はAWSに入門しております。

booth.pm

この本は2018年10月08日に技術書典5で頒布されたものですが、約1年後のこの連休に試してみたところ、ちょっと詰まったところがあったので残しておきます。

技術書、特にITがらみはサービスの進化も早く、頻繁にデザインが変わるので、出た瞬間からすごい勢いで古くなってしまうという宿命があります。つらい。

この本はAWSの管理画面の画像も多くわかりやすいのですが、一部は既にAWS側のデザインや名称が異なっています。

とはいえ、ある程度は推測ができるものでそれほど迷うことはありませんでした。

詰まったところ 「6.3 画像をS3に保存する」

この第6章ではAWSのEC2上にWordPressを立てます。

本の通りに立てたところ、以下の構成になりました。

  • PHP Version 7.2.19
  • WordPress 5.2.3 (Twenty Nineteen テーマ)

3節では画像の保存先をAmazon S3にするということで、プラグインを使う方法が書かれていました。プラグインは2つです。

  1. Amazon Web Service プラグイン
  2. WP Offload S3 Lite プラグイン

この2番目のプラグインプラグインの検索で引っかからなくなっています。色々ググってみたんですが、うちのググりぢからなくて、解決まで時間がかかりました。

ということで、最終的には

  1. Amazon Web Service プラグイン は使わない
  2. WP Offload S3 Lite プラグインの代わりに WP Offload Media Lite プラグインを使う

ということで落ち着きました。

WP Offload Media Lite

名前の通りWP Offload S3 Liteプラグインの機能拡張版です。S3以外のクラウドストレージへの保存にも対応しています。

このWP Offload Media LiteプラグインはS3に保存する際のアクセスキーIDとシークレットアクセスキーIDを独自に保存が可能です。このため、このプラグインでS3に保存するだけであればAmazon Web Serviceプラグインを削除しても画像のアップロードは可能でした。

  1. WordPressの管理画面でWP Offload Media Liteを検索し、「今すぐインストール」ボタンでインストールする

    f:id:sironekotoro:20190915155220p:plain

  2. インストールが完了したら、「有効化」ボタンを押す

    f:id:sironekotoro:20190915155310p:plain

  3. プラグイン一覧の画面で有効化し、「Settings」のリンクをクリックする

    f:id:sironekotoro:20190915155456p:plain

  4. 以下のような画面が出てくるので、Access Key IDとSecret Access Keyを入力する

    f:id:sironekotoro:20190915155931p:plain

    1. もし、以下のような画面が出た場合には、既に設定があるということなので、Back のリンクから Offload Media Liteの設定ページに移動する

      f:id:sironekotoro:20190915160124p:plain

    2. 移動した先のページの AmazonS3 の右にある Change のリンクをクリックすると 4. の画面に移動する f:id:sironekotoro:20190915160309p:plain

  5. バケットの指定をしていない場合には以下の画面が出るので、バケット名を入力する

    f:id:sironekotoro:20190915160758p:plain

  6. ・・・ただし、ここでAmazon S3の制限に気をつける必要がある

    docs.aws.amazon.com

    バケット名は必ず、Amazon S3 内の既存バケット名の中で一意になるようにします。

    つまり、本にある通り東京リージョンではstart-aws-wordpress-bucketという名称のバケットを作ることができない。うちは後ろに-sironekotoroってつけて回避。

  7. httpsにする

    ここは本と同じ

    f:id:sironekotoro:20190915161506p:plain

これで、WordPressにあげた画像をS3に保存することができました。めでたしめでたし。

おまけ

PHP触るの初めてかもなー、ってことで、ググりながら書いた初めてのPHP

<?php

header("Content-type: text/plain");

for ( $i = 1; $i <= 100; $i++){

    if ($i % 15 == 0){
        echo "fizzbuzz\n";
    }elseif ($i % 3 == 0){
        echo "fizz\n";
    }elseif($i % 5 == 0){
        echo "buzz\n";
    }else{
        echo "$i\n";
    }
}

?>

Perl入学式 in 東京第5回でピザ会でのお題「WebアプリからLINEに定型メッセージ送信」

Perl入学式 in 東京では各回の講義終了後にピザ会(ピザ&ジュース代は参加者負担)を開催しており、そこで受講者さんと雑談などをしております。

その中で、id:xtetsuji さんが課題が出し、志願者がコードを書いてその場で発表、という試みを行っています。

今回のお題:WebアプリからLINEに定型メッセージ送信

  • Mojolicious::Lite でボタンが並んでいるページを作る
  • そのボタンには「帰宅」「横になる」「寝る」などの状態が書かれている
  • そのボタンを押すと、IFTTT の WebHookを経由してLINEに「帰宅」「横になる」「寝る」などのメッセージが投稿される
  • ボタンを押した後は「送信しました」というページが表示される
  • LINEの家族チャットなどに送信できると便利なのではないか?

というものでした。

しかし

当方、LINE使っていないでござる・・・

ということで、当日は作りかけだったTwitterのアプリからAPIKeyを流用してでっち上げ。

ボタンを押すと、メッセージがtwitter APIを利用してtwitterに投稿される、というものです。

Perl入学式 第5回の講義資料の最後に掲載した「落ち穂拾い」にあるGETとPOSTを分けたコードになっています。

ボタンを押すと、TwitterAPI経由で定型メッセージをtweetする君

クリックするとコードが出てきます

ぶぶー!レギュレーション違反です!!

LINEじゃなくてtwitterだし、IFTTTじゃなくてtwitterAPIだけど、ボタンを押すとメッセージが飛ぶという結果自体は同じだし・・・

しかし、やっぱりレギュレーション満たしたコード書いてみたいですよね!

というわけで、LINEに登録。

IFTTT

ifttt.com

まずはIFTTTについて情報あつめ。

www.atmarkit.co.jp

うんうん、大体わかった(フラグ

Continue with Google or Facebook からGoogleでログイン。

  1. ログイン後、右上のユーザーのアイコンをクリックして Create を選択

  2. IF + THEN THIS THAT の + をクリック

  3. たくさんのアイコンが出てくるので、検索窓に web と入力。出てきた Web Hook をクリック

    f:id:sironekotoro:20190901160306p:plain

  4. Connect Webhooks 画面のConnect ボタンをクリック

  5. Receive a web request をクリック

    f:id:sironekotoro:20190901160311p:plain

  6. Event Name は適当に・・・send_message とかにしとこう。ほんで、 Create trigger ボタンをクリック

    f:id:sironekotoro:20190901160315p:plain

  7. おぉ、+ のところが Web Hook のマークになった。では次の + のマークのところをクリック。

    f:id:sironekotoro:20190901160317p:plain

  8. 検索窓に今度は LINE と入力して、出てきた LINEの緑のアイコンをクリック

    f:id:sironekotoro:20190901160321p:plain

  9. Connectボタンを押すと、LINEのメアドとパスワード入力画面が出るのでそれを入力

  10. 同意して連携する、をクリック

    f:id:sironekotoro:20190901160324p:plain

  11. Send message という緑のボタンが出てくるのでそれをクリック

    f:id:sironekotoro:20190901160328p:plain

  12. Recipient という画面が出てくる・・・とりあえず、何も変更せずに Create action をクリック

    f:id:sironekotoro:20190901160333p:plain

  13. 確認画面が出てくるので Finish をクリック

    f:id:sironekotoro:20190901160339p:plain

  14. 次に出てきた画面で、Web Hook のアイコンをクリック

    f:id:sironekotoro:20190901160324p:plain

  15. 画面右上にある Documentationをクリック

    f:id:sironekotoro:20190901160343p:plainf:id:sironekotoro:20190901160348p:plain

  16. 画面下部にある curl -X POST https://maker.ifttt.com/trigger//with/key/YOUR_KEY をターミナルから実行

  17. LINE Notify にメッセージが届く

届いたメッセージは

[IFTTT] Value 1:
Value 2:
Value 3:

ふむ。とりあえず、URLにアクセスすると、LINEに何か通知が届く、というところまではできた。

IFTTTのAPI調整

このDocumentationのページ、薄い四角のところは実は文字が入力可能だったりする。

{event} に 6. で決めたEvebt Name である send_message を入力、Value1 , 2, 3 にそれぞれ対応する何か適当な文字を入れて、画面下部にあるTest it!を使うと・・・おぉ、ちゃんと文字が入ったメッセージが届いた!

f:id:sironekotoro:20190901160511p:plain

あ、画像からはKEYは消してます。

ということで、このURLをPerlで組み立て、そしてMojolicious::Liteのボタンを押した時にURLに送信するようにすれば、レギュレーションは満たせそう。

ちなみに、このDocumentationページから入力が可能ってのがわからなくて、2時間くらい試行錯誤したよ!

というわけで、出来上がったコードがこれです。第5回はサブルーチンもやったので、IFTTTにリクエスト投げるところはサブルーチンにしてみました。

ボタンを押すと、IFTTT API経由で定型メッセージをLINEに流す君

クリックするとコードが出てきます gist.github.com

注意

このコードをインターネットに置いた場合、誰彼構わずボタンが押しまくられるだろうことは想像に難くないです。

ただ、自分の手元のパソコンで利用するだけであれば十分でしょう。

IFTTTと連携したレシピをPerlから制御することができる、というのは日々の暮らしがちょっと楽になる素晴らしい技術だと思います。

また、IFTTT経由ではなく、直接LINEのAPIを使ってみるのも良いかもしれません。

developers.line.biz

ぜひ、試行錯誤して日々の煩わしい業務や暮らしを楽にしてください!

試行錯誤の後

Perl入学式 2019 in東京 第5回 お疲れ様でした

受講された方、サポーターの方、気温と湿度の高い中、お疲れ様でした。 講師をやったジャージの人です。

Perl入学式第5回です。Webアプリに関するスライドも大改修を施しました。その影響でいくつか表記の抜けや不整合があり、お手数とご迷惑をおかけしました。すみません。

スライドの修正は完了しており、近々反映予定です。スライドの修正が完了しました。

コードの追加や削除、編集をGitHubのdiffを使うことで、わかりやすく提示できたと考えています。

講義に利用したスライドはMarkdown形式で公開しています。復習に使ってください。スライドの最後の方に「落ち穂拾い」として追加のコンテンツもあります。チャレンジしてみてください。

github.com

スライド中にある練習問題の解答例を掲載しています。TMTOWTDI(There's More Than One Way To Do It.(やり方は何通りもある))の一つとして、参考にしてください。

github.com

問題の意味がわからない、とか、このような解答例はどうだろう?という方はSlackのPerl入学式チャンネル(招待フォーム)やtwitterハッシュタグ #Perl入学式 をつけて聞いてみてください。 応答速度、監視頻度などの面からSlackの方をお勧めします。

Perl入学式を終えた方へ

一昨年、同じようなエントリ書いていたんで、リンク貼っておきます。

sironekotoro.hateblo.jp

以下、講義中に言及したオススメ。

また、これまでの第5回 Webアプリ編 の自分のエントリを並べておきます。

2019年後半のPerl入学式

従来、Perl入学式 in東京 は年に2回、同じ内容を繰り返す受講スケジュールでやってきました。

が、今年後半の構成はちょっと変わる可能性があります。

(変わらない可能性もある)

connpassやTwitter、Slackでの告知があると思いますので、興味のある方は続報をお待ちください。

YAPC::Japan ?????

海外からの情報なんですが、来年の3月末くらいにPerlのお祭り YAPC::Japanが開催されるようです。公式発表を楽しみに待ちましょう。

YAPCPerlの話はもちろん、様々なシステムやサービスの構成、ベストプラクティスや新しい知見を得られる場です。参加を強くお勧めします。受講した方とお会いできるのを楽しみにしてます。

perlcon.eu

(動画の18分あたり)

懇親会などで出た話の元ネタやリンクなど

今回の懇親会のお題については別エントリで。

謎のカタツムリ

my @hoge = @_;

行末のセミコロンまで含めると、さらにカタツムリ度が増す感

PerlからGoogleの感情分析を使ってみる

お盆明けから妙に気分が沈んだり、なんかおかしいなーって感じですが、みなさんお元気でしょうか。うちはダメです。

で、ほぼ毎日twitterでつぶやいているツイ廃としては、過去に呟いた内容をもとに、いつからおかしくなったのか?ってのを調べてみようと思ったのです。

今回はGoogleの感情分析APIを使ってみるところまでやってみました。暗く沈んでる時期の自分のtweet漁るのは怖さがある・・・

しかし、いつもの通りPerl用のライブラリやSDK(Software Development Kit)は提供されていない・・・けど、WebAPIであればリクエストを投げて受け取るだけなので安心(安心?

JSONでPOSTして、JSONで受け取る、ということなのでSDKなくてもなんとかなりそうですね。

ただ、APIを利用するためにGoogle CloudのAPI_KEYの取得とクレジットカード登録の必要があり、そこはハードルが高いかもしれません。

うちの場合、昔、BigQuery試してみた時にクレカを登録していました。

参考にしたところ

Google Cloud Natural Language API 公式サイト

cloud.google.com

GoogleAPI使うための認証情報の扱いとか。特に環境変数の設定のあたり

cloud.google.com

公式サイトのほか、こちらのページが大変参考になりました。実装はPHPですが、curl をつかってリクエストを投げてくれるところがあって、Perlで書くにあたって大変助かりました。

www.casleyconsulting.co.jp

macOS用のパッケージ管理ソフト brew cask をつかってgoogle-cloud-sdkを入れる際に参考にしました。

qiita.com

動かすまで

  1. google-cloud-sdk をインストール

    $ brew cask install google-cloud-sdk

    $ brew cask info google-cloud-sdk

  2. 秘密鍵のファイルをローカルにおいて、パスを通したりする

  3. 早く動かしたいので、コマンドラインAPI_KEYを表示させて、それをスプリプトに直接入れることにする

    $ gcloud auth application-default print-access-token

  4. PerlのWebクライアントでAPIを叩いて、 返ってくるエラーを見ながらGCPの権限をつけたり、コードを直したりする

    • Furl ではうまく動いたので、標準に寄せるべく HTTP::Tiny で書き直してたらハマった・・・

    • ハマった原因は、headers と書くところを header と書いていたからなのでした

  5. うごいたー!

こんな感じです。あー、参考にならない書き方ー

あと、やはり環境構築が鬼門だなぁという感じ。

コード

でも、コードがあればなんとかなりそうなので、コードを置いておきますね。

gist.github.com