という訳でLTです
いつも通り飲み会の後半でLTをするというスタイルで、前々日にリバースエンジニアリングをした事を微塵も感じさせないLTが出来たと思います。楽しかった。
おおよそこのリポジトリのPerl1.0を利用した話です。なお大体のコードはPerl5でも動きます。
その後わかった話としてはPerl1.0では連想配列が何故かダイナミックスコープとして設定されており、これは別のファイルをopenしてその結果をevalしたものでも実行可能です。つまり useっぽいのがPerl1.0では出来なくはないです。
ちなみにPart1と書いてある通り続編をする予定です。お楽しみに
という訳で作ったコードはこちらとなっております。 当初Dockerで動かそうとしていたのでレポジトリ名に名残があります。
今回はPlack + LINE::Bot::API + Werbservice::YDMMの大まかに3つのモジュールを利用して書いています。まさか自分で作ったモジュールを使うことになるとは思ってなかった。
PerlからLINEBotを叩くにはyappoさんが書かれたPerl HackersHubの記事を読めば大体分かる世界観です。
第44回 LINE Messaging APIで作るchatbot―LINE::Bot::APIとngrokでお手軽に！
実際今回作ったwebアプリも、ほぼサンプルコードの助けを得ながらPlackアプリとして書いた感じです。
ちなみにデプロイしている先はHerokuとなっています。当初はDocker imageをpushして動かそうと考えていたのですが、どうにも動かずbuild packを利用しました。
build packは二ヶ月前までメンテが行われている形跡があるものを利用しています。 github.com
挙動としては「XX」というとXXを人気順で検索しデフォルトで10件返してきます。
「XXをあと10個」というと追加で10件サーチしてきます。
他には「XXを人気で」「XXを日付で」というとソート順が変更されます。
ちなみに検索でヒットしなかった場合「XXは見つかんなかった…」と返してきます。
LINEとの連携は先程のyappoさんの記事を、DMMとの通信は自作モジュールWebService::YDMMのREADMEなどを読んでいただければおおよその雰囲気はわかるかと思います。
今回のBotでは、偉大なる元ネタが1つのみのレスポンスだったのに対しデフォルトで10個のAVリストを返す実装を行っています。 その為carouse方式でメッセージをbuildし、返却しています。
my $carousel = LINE::Bot::API::Builder::TemplateMessage->new_carousel( alt_text => 'this is a dmm videos', );
carouse方式の場合 LINE::Bot::API::Builder::TemplateMessage::Column->new() で作成したオブジェクトに対してメソッド経由でプロパティを設定する事でメッセージを作ることが可能です。
今回は画像サムネイル,動画へのリンク,DMM.comへのリンクの合計3種類をプロパティとしてそれぞれ設定しています。
urlが絡んでくるものは add_uri_action() メソッドを利用して追加します。
my $col = LINE::Bot::API::Builder::TemplateMessage::Column->new( image_url => $image_url, title => $title, text => "Please Selecet", )->add_uri_action( label => '動画で致す', uri => $movie_uri, )->add_uri_action( label => 'DMMで見る', uri => $item_uri, ); $carousel->add_column($col->build); }
あとは手順通り
my $messages = LINE::Bot::API::Builder::SendMessage->new()->add_template($carousel->build); my $res = $bot->reply_message($event->reply_token,$messages->build); ... unless $res->is_success; # error handling
などとすれば簡単にsendできます
WerbService::YDMMは検索モジュールではありますが、対象の動画がサンプルを持っていない場合もあります。
LINE::Bot::API::Builder::TemplateMessage::Columnは何かしらのURLが必須となっているので、無かった場合は飛ばすという処理が必要となってきます。
またこのURLはhttpsじゃないとダメですが、DMMのレスポンスはhttpなので置換する必要となります。
さらにタイトルは40文字以上だとクエリエラーになるため $title = substr($title,0,39); などとしてあげる必要があります。
たまにこういうの作るとやっぱ楽しいね…
主催者がエントリを書くのを忘れるという痛恨のミスでしたが開催しました。
もともとインターンで京都に行った際に「京都.なんか」的なイベントが有り、それを沖縄でもやりたい!と思いたって始めたイベントです。
…というのはやや後付け設定感があり、どっちかというとieLTが春の新歓LTだけでしたが、前回秋にLT大会を行ったことなどからLT大会がシーズンでも出来るなと思いやりたかった感じです。
またこれはTwitterで知ったのですが、かつて沖縄には「EXTREME HAGO」というイベントがあり後継イベントと化していたようです。
運営に関しては省エネを心がけており、 
id:ST_ha1cyon とGitHub issueベースで行っていました。
issueベースで行っていたのはPerl入学式の運営がこのスタイルであった事と、なるべくオープンにして運営したいというお気持ちがあったためです。結果として上手く行った感じがあります。
今回は日程調整と会場調整で苦労したので次回はもう少しスムーズにしたいですね。
開催する前は人が来るか不安でしたが、意外と皆さんに来ていただいて嬉しかったです。またTwitterで結構な方々に認知していただいた感があるので、今後定期的に開催していきたいなどと思いました。
当日来ていただいた皆さんありがとうございました。
沖縄.ぬーやが#1 という名のLT大会に参加した | ゆとりの無いゆとり世代のゆとりを求めるブログ
沖縄ぬーやが でLT発表してきました！ - ごはんと飲み物は紙一重
バイト先ではチャットツールとしてidobataを使っています。idobataではwebhookのbotがかなり簡単に作ることが可能で、あるエンドポイントに対してpostでアクセスをすると発言をするbotを構成することができます。また形式としてHTMLをサポートしており、特定のオプションを付けてエンドポイントを叩くことでHTMLにレンダリングされたメッセージを発言させることが可能です。
今回はあるスプレッドシートの新規書き込みがあるとidobataに通知を送る仕組みを作りたく、アドオンの設定をするよりGASで書いたほうが様々な面で良かった為にGASでおおよそのbotを作成しました。そのメモです。
GASでスプレッドシートを利用する場合、まずActiveになっているシートを取得する必要があります。
const sheet = SpreadsheetApp.getActiveSheet() などとすると保持することが可能です。
なおGASは let が使えず constかvar で定義をしていく世界観のようです。
Overview of Google Apps Script
次に最終更新の行と列を取得する必要があります。
列は正直どっちでも良いと思うのですが、行は必須となります。
今回のスプレッドシートは、新規依頼が末尾に積まれていくタイプであるのでgetLastRow() で取得する事が可能です。
function add_new_dojo_notice() {
const sheet = SpreadsheetApp.getActiveSheet()
const lastRow = sheet.getLastRow()
const lastColumn = sheet.getLastColumn();
ここから一行の各セルをhtmlに修正してsendするという作業を行っていきます。
今回は予め params_info という変数にbotの出力用も兼ねて種類を配列形式でいれています。
この getRange() では最初に行、次に列番号を指定し、続いて行数の範囲を指定を行います。
なお最後の2変数は省略する事も可能となっています。
ここでは最終更新の1行の各セルを取りたい為、最後の2つは 1,lastColumn としています。
今回は列のサイズ分 i をインクリメントし、セルを右に移動しながら文字列 send_paramas に追記を行っていきます。
ここで注意する事は getRange() で取得する列番号はスプレッドシートの番号であるため、配列形式のようにインデックスが0スタートではありません。基本的に1スタートです。今回は空入力の場合表示させないなどを記述しています。
for ( var i = 1; i < params_info.length; i++){
if (sheet.getRange(lastRow,i,1,lastColumn).getValue() == ""){
continue;
}
send_params += sheet.getRange(lastRow,i,1,lastColumn).getValue()
}
notice_to_idobata(send_params);
}
実際に通知を送る部分のコードはこの用に素朴になっています。
先程の send_params をsource に紐付けて送っています。
function notice_to_idobata(message) {
const idobataURL = "IDOBATA.url"
const playload =
{
"source" : message,
"format" : "html",
};
const options = {
"method" : "post",
"payload" : playload,
"format" : "json",
};
UrlFetchApp.fetch(idobataURL, options);
Logger.log(options);
}
注意するべきなのは、idobataにmessageを送る際、送りたいメッセージは source の対応として送らなければなりません。
またこの際にhtmlで送る場合 playload のformat をhtmlに指定しておく必要があります。
指定しなければ、idobata側でHMLタグをただの文字列として解釈します。
options でtypeの指定も可能ですが、これはidobataに対しては意味が無いです。
作成したスクリプトは「編集」から「現在のプロジェクトのトリガー」を選択する事でトリガーを仕掛ける事が可能です。 トリガーにはいくつか種類がありますがこのエントリや公式ドキュメントを見る限り「submit」か「値の変更」で行うと良さそうでした。
3月3日(土)にOISTでYAPC::Okinawaが開催されました。
僕
id:anatofuzはブログ書いたりとか、当日の某アカウントの中の人をやっていたりと、なんとYAPC::Okinawaのスタッフをやっていました。当日はそのお仕事をしており、トークを集中して聞けなかったので後日スライドで補間していきます。なのでこのエントリではトークの感想はちょっとしか書いてないです…。許してつかーさい…。
今ブログを書いていて、なんとなくエモい気分になっているのでこのエントリではエモい話をします。
(というかこのブログではエモい話しかしていないのでは)
僕がYAPCをOkinawaですると聞いたのは、Perl入学式を受講している真っ只中だった。東京から 
id:ar_tama さんと 
id:nekokak さんが来ていて(当時はお二人のことは何も知らなかった) 居酒屋でYAPCする? みたいな話になったと思う。
あの時はPerlは好きだったけど、まさか自分がスタッフをする事になるとは思っていなかった。
その後FukuokaのMTGに参加させていただいたりとか、JPA側のOkinawa担当の平子さん方と決起集会をしたりなどした。 JPAの皆さんからしていただいた事以上の事は返せなかったと思っているけど、非常に有り難い経験をさせて頂きました。ありがとうございます。
沖縄で普段はコアメンバーとして、沖縄-東京をGoogleハングアウトで接続してMTGを行ったりした。基本はインターネットの人なので、twitterとかブログなどを担当していた気がする。
過去のエントリにも書いたとおり 色々な経験をした結果「ｳｯ」っとなってしまうことが多発していて、特に年明けは最悪だった。他にはPerlの某企業からお祈りされたことなどもある。
大学に行くこともできなくなり、カウンセリングと病院に連行され、ついた名前は双極性障害である。完全にｳｯをしてしまった。
YAPC::Okinawaのslackでは来来月に差し迫ったYAPCの準備でwebサイトを更新したりとか、ブログを書いたりしなければならないのに、何もすることが出来なくなってしまった。
全てに対して後ろ向きで、Perlの事も好きではなくなりそうだった。僕はPerlが好きだけど、Perlは僕のことが好きではない感じがした。
そんな中、僕の代わりの仕事をしてもらったのは 
id:codehex さんであり、 
id:sorehaedamame さんであり、 
id:touba_rumba さんであり @selaさんだった。
通院もしたけれど、Okinawa.pmの皆さんを初めて、Perl入学式でもお世話になっている 
id:karupanerura さんや
id:papix さんや 
id:gomayumax さんや Twitterでの友人である 
id:kaoru1615 くんから前向きになる力を貰えた。
YAPCの準備は確かに大変だったけど、人々が支え合っている事を知れたし、僕もその人々の中に居ることができたのが本当に嬉しかった。
準備をしていく中で段々と前向きにまたなることが出来て、Dockerを使ったwebアプリをちょっと書いて見ることが出来た。Slackbotも作ることができた。久々にAcmeモジュールをリリースすることも、webservice名前空間のモジュールをリリースすることもできた。バイトを始めることもできたし、出来ることが増えていった気がする。
僕はYAPCを通して、再びPerlのことが好きになれた。 Perlは僕に書かれたくないのではなくて、僕がPerlを拒否していただけだった気がした。
再び好きになったPerlには大好きなシジルが輝いて見えた。
前にも書いたけど、当日はリソースが追いつかない感じがあってちゃんと聞いたトークはあまりなかった。
それでも、あの初心者にも、Perlを書いてない人にも、そして熟練のPerlMongerの全ての人が楽しめるトークだったとは思っている。スピーカーの皆さん本当にありがとうございました。
個人的には id:papix さんのLTで「思いは言葉に」というのが印象に残っていた。
id:note103 さんのトークはPerl入学式のメンバーとしてはこの沖縄でやっていただいた事がとても嬉しかった。
また、書いておきたいのは 
id:unimarimo がしたLTは、ちょうど去年僕がKansaiでしたLTを彷彿とさせていてエモい気分になった。
あの時は id:papix さんや id:codehex さんから渡されたバトンだったけど、僕も渡せているのかな。そんな気がした。
僕はYAPCは人を変えるイベントだと思っている。
id:codehex さんが言うとおり
開催するからには、僕らが感動したあの YAPC のように、誰かの何かしらのきっかけになって欲しいと強く思っていました。
YAPC::Okinawa 2018 を終えて - YAPC::Japan 運営ブログ
だから個人的には鬱陶しいかもしれないけど、沢山の人をYAPCに誘った覚えがあるし、 id:unimarimo にはボランティアスタッフの他にLTを進めた。それは僕がYAPCと出会ったあの経験があるからだった。
初めてのYAPCであるYAPC::KansaiでYAPCに来るエンジニアの方々の業績や、トーク内容もわからないことが多いのにLTをしたあの日から、僕の人生は変わったと思う。
当然サクセスストーリーだけではなく、大きな挫折やｳｯを経験してしまった事もある。毎日が楽しいだけでなくて、「俺は一体…」となることや、コードを眺めて何も手が動かず数分たったこともある。
それでもKansai,Fukuokaのあの時から僕は一歩進めたし、最後のスタッフ撮影で写真に取ってもらう事に対して後ろめたさのようなものが無くなった。完走できたかどうかはわからないけど、やりきった気はした。
YAPC::KansaiでPerlが一番好きになって、YAPC::FukuokaでPerlMongerの一員に慣れた気がして、YAPC::Okinawaでもう一度Perlと向き合う力を貰った。YAPCは常に何か僕に力をくれる気がした。
そんなYAPCと少しでも関われたのは嬉しかったし、誇りに思っている。
YAPC::Okinawaに関わった全ての皆さんありがとうございました。
さて、エモい話はここまでにして、次からは手を動かしたいと思う。
次のYAPC::Tokyoではトークをしようと思うので、(採択されれば)皆さんよろしくお願いします。
リモートバイト情報募集してます!!!
— 八雲アナグラ (@AnaTofuZ) 2018年2月18日
お...!? 弊社 (@YassLab) でリモートバイトしてみませんか!? https://t.co/GFHYOkOd4B
— Yohei Yasukawa (@yasulab) 2018年2月19日
という訳でYassLab株式会社さんでバイトを始めました。お声掛け頂いて有り難いです!!
リモートでRubyをモリモリ書いていく系のバイトです。 今現在は CoderDojoJapan が稼働しているRalsのコードをんだりとワイワイやっていきという感じです。
技術系のバイト+Ruby+リモートの全てが初めてなのでワクワクしています。(インターンは何回かしましたがお金が発生しなかった)
ちゃんとした(?)バイト自体始めてなので、自分のペースを確立し、しっかりとcommit出来るように頑っていきたいと思います。やっていくぞ!!!
Rubyを勉強し始めていて、Rubyで Array.new(5,'default') などとすると、要素数5の配列が生成されるが、これら1つ1つの要素は同じオブジェクトIDを所持している為 a[0].upcase! などとすると全ての要素が変更される事を知った。
普段書いているのはPerlなので、Perlではどのようにするとこれが再現できるかを考えてみた。
Perlで一気に同一オブジェクトのリファレンスを持つ配列とか作れるのかな
— 八雲アナグラ (@AnaTofuZ) 2018年2月22日
id:mackee_w さんに拾っていただき試みが始まる。
map { $obj } 1...10 みたいなことかな
— トーカナイザの守護霊 (@mackee_w) 2018年2月22日
そして書いたコード
#!/usr/bin/env perl
use strict;
use warnings;
use DDP { deparse => 1 };
my $hoge = {hoge => "saru"};
my @hoge = map { $hoge } (1..10);
p @hoge;
なるほど pic.twitter.com/VyDr2DsAT7
— 八雲アナグラ (@AnaTofuZ) 2018年2月22日
さらに別の方法が議論される。
まてよ、( $obj x 10 )でもいける気がする
— トーカナイザの守護霊 (@mackee_w) 2018年2月22日
x演算子滅多に使わないからアレかもだけど、例えば()で囲わないといけないとか
— トーカナイザの守護霊 (@mackee_w) 2018年2月22日
$obj x 10 だと文字列解釈?で[0]にリファレンスが10連続で来る形になりました。リスト展開されてる… pic.twitter.com/b6DewKhShi
— 八雲アナグラ (@AnaTofuZ) February 22, 2018
($hoge) x 10;だといけました
— 八雲アナグラ (@AnaTofuZ) 2018年2月22日
リストを10連続っていうコンテキストか
— 八雲アナグラ (@AnaTofuZ) February 22, 2018
— トーカナイザの守護霊 (@mackee_w) 2018年2月22日
そして書かれたコード達
#!/usr/bin/env perl
use strict;
use warnings;
use DDP { deparse => 1 };
my $hoge = {hoge => "saru"};
#my @hoge = map { $hoge } (1..10);
#
#p @hoge;
my @array = ($hoge) x 10;
p @array;
use Data::Dumper;
my $h = { hoge => "huga" };
warn Dumper [ ($h) x 10 ];
PerlではオブジェクトIDのようなものはリファレンスそのものなので、リファレンスをリストコンテキストでn回増やし配列に代入するとこのような事が可能だった。
mapの例は (1..10) で範囲を表して同じようなことを行っている。
Perlで考えてみると実際の処理が解ってくる気がした。
