Perlのテストを `Test::Spec` から `Test2::Tools::Spec` に移行した

Perl

Perl でテストを書いてるみなさん。 Test2 にはもう慣れましたよね？私は全然慣れてません。ということで、最近、個人のプロジェクトで書かれてるテストを Test2 にしました。その際、それまでのテストを Test::Spec で書いていたので、Test::Tools::Spec …

2019-09-20

21万6000個のサイコロを簡単に振る方法

news.denfaminicogamer.jp はてブコメントで 216000D6とか一度でいいから振ってみたい悲しいことにGoogle先生は99個までしか振ってくれない。と有りました。気持ちはわかる。さすがに現実に振ること叶わなくても簡単に多数のダイスを振る方法を一つ思い出…

2017-07-06

YAPC::Fukuoka 参加してきた（当日編）

YAPC::Fukuoka 参加者側としての記事。当日分です。先日分:http://likk.hatenablog.com/entry/2017/07/04/170842 発表者分:http://likk.hatenablog.com/entry/2017/07/02/092721オープニングの途中から参加。過去の参加では昼から参加したり、オープニング後…

2017-07-05

YAPC::Fukuoka で食べたもの

幾つかYAPC関係なく福岡で食べただけだろ！！っていうのも有るけど気にしない。ごちそうさまでした。前夜祭プリン以外全て美味しくいただきました。（プリン気づいたときにはなく無くなってた。油断しすぎ。最初に取るべき）前夜祭二次会らーそーめん…

2017-07-04

YAPC::Fukuoka 参加してきた（前夜編）

YAPC::Fukuoka 参加者側としての記事当日と合わせると無駄にながくなりそうなので分けた。当日の話は明日書く。前々夜祭 (非公式) 前々日のイベントかとおもいきや、「当日の、前の時間帯」のイベント。とはいえ、本編が始まる前にワイワイできて非常に温…

2017-07-02

YAPC::Fukuoka 前夜祭で「夏の夜を涼しくするPerlの話」というタイトルでLTしてきた

言いたいこと。 1. YAPC::Fukuoka 前夜祭でLTしてきた 2. Acme::Undead について 3. 場が温まってたのもあってそれなりに笑ってもらえた 4. 参加できなかった人にも伝えたいこと 5. トーク内容の感想とか全体の感想は別途書くよ以下詳細という名のｇｄｇｄ…

2017-03-24

Salck::RTM::Bot を使ったら error message too long が出たのでパッチを用意してもらった

Perl

言いたいこと。 1. WebService::Slack::WebApi から Salck::RTM::Bot に乗り換えたら error message too long が出た 2. 原因が Protocol::WebSocket::Message の max_message_size を超える受信量だった 3. Twitter で呟いたらパッチ当ててもらった 4. WebS…

2017-03-11

YAPC::Kansai 2017 行ってきた2

先日開催された YAPC::Kansai 2017 OSAKA 行ってきました。前回の記事ではトークに触れなかったので、印象に残ってたのを幾つか書きます。基本的に記憶の揮発性が高いので旅行中にある程度まとめておけば良かったなと若干悔やんでます。前夜祭 @__papix__…

2017-03-10

YAPC::Kansai 2017 に行ってきた

先日開催された YAPC::Kansai 2017 OSAKA に行ってきました。今回の記事ではトークについては触れません。別途書くかもしれないけど未定。懇親会で飲みながら会場について思うことを2・3話していたら「@karupanerura 氏に言えば良いんじゃね」とか「ブ…

2016-12-29

Perlで 'use strict;' をしない状態で 'return nil' をした時の挙動

Perl

こんばんわ、忘年会シーズンというにはもう遅いタイミングですね。先日 gotanda-pm 忘年会の酒の席の話で "Perlで 'use strict;' をしない状態で 'return nil' をした時どうなるか？" といった話が上がり酒の席のせいか妙にテンションが上りツボに入ってし…

2016-03-14

Acme::Kiyoshi でっちあげた

元ネタJavaの講義、試験が「自作関数を作り記述しなさい」って問題だったから「ズン」「ドコ」のいずれかをランダムで出力し続けて「ズン」「ズン」「ズン」「ズン」「ドコ」の配列が出たら「キ・ヨ・シ！」って出力した後終了って関数作ったら満点で単位貰…

2015-10-07

Gotanda.pm #6 で飛び込みLTしてきた。

Gotanda.pm #6 2015/09/17 (木) からかなり時間が経ってからのブログ書き込みだけど気にしない。テーマは「障碍」でしたので何かやろうかなと思っていたけどスライド用意している時間がなくて、LTするつもりは無かった。全てのプログラムが終わり、同会場内…

2015-08-24

YAPC::Asia 2015 でLTしてきた

一日目のライトニングトークにて『YAPC?雨事情』というタイトルで発表させていただきました。スライド中で紹介したライブラリは以下です。git log たどると実は2012年ぐらいからありましたLikk/WebService-TenkiJp-Radar-Imagegithub.comYAPC初LTでしたし、…

2015-05-29

String::Slack でっちあげた

Likk/String-Slackgithub.com使い方は簡単で say String::Slack->new("message")->bold->italics->stringify; #_*message*_ となる。きっちりとslack.com に投げるところまで書く場合のsampleコードもつけた。 use strict; use warnings; use Furl; use JSO…

2015-05-11

DBIx::Skinnyのトランザクション観測したい。

実装書いてるうちに、どのタイミングでcommit/rollback が発行されるのか確認したくなったんだ。そしたら。DBIx::Skinny::txn_scope() だと BIGIN と ROLLBACK がDBIx::QueryLog で観測できない……— Likk (@likk) April 23, 2015 正確にはBEGIN/COMMIT/ROLLB…

2015-05-08

コマンドラインからslackチャット

slackを使い始めたのでコマンドラインからslackの閲覧と発言が出きるツール書いたのでgistに上げた。これは下記エントリ id:mihyaeru21 が作ってくれたライブラリWebService::Slack::WebApiを使ってるので、APIとの疎通周りをほとんど気にせず書くことができ…

2015-03-30

Perl で undef を含むものをsortについて考えてみた。

Perl で複数条件sort - NeverBlog::Likk::Unexistable;blog.likk.jp で切り捨てた undefについて考えてみた。undef sortした時に最大値ととるか最小値ととるかによって違うけど、最小値として考えるなら以下のとおりにの書き方になる。 use strict; use warn…

2015-03-30

Perl で複数条件sort

業務で10年近くperl触ってるのに、普通にやる機会がなかった。大体DBのorder by で済ましてる気がする。ちなみに、ソート対象がundefのものが表にでては具合がわるい仕様なので出さないようにしている。order by のように昇順ではundefのものを最初に、降…

2015-03-25

Perl から任意のログインシェルでsystemや``を実行する方法

perl からシェルを実行したいときは system か `` (qx//) で代替済むのですが、それらから呼び出すのが素のsh でどうしても実行環境のzshrc を読み込んだ上でzsh を実行したいことが出てきた。でも `zsh hoge`; とか system("zsh && hoge"); やってもダメな…

2015-03-13

普段は宣言できないサブルーチン名の作り方

perl のサブルーチン名は数字で始まったり、アンダスコア以外の記号を使ったサブルーチンは宣言できない。 use strict; use warnings; sub 0 { print '0' } &0; 実行すると下記の様に怒られる。 $ perl ./hoge.pl Illegal declaration of subroutine main::a…

2014-12-27

スマホで撮影した写真のファイル名が被る場合の整理方法

とある事情で写真の整理をしています。大ざっぱだけどこんなディレクトリ状態。規則性あるようにも見えるけど実際の所規則性なんてのはない。 hoge/ hoge/2013/aaa.jpg hoge/2013/bbb.jpg hoge/2013/ccc.jpg hoge/2014/05/aaa.jpg hoge/2014/05/bbb.jpg hog…

2014-11-11

LOAD DATA INFILE を使った MySQLのデータインポート

mysql

一年に一回やるかやらないかぐらいの頻度で、毎回ググって回ってるので備忘録。 mysqldump -u user -p --default-character-set=utf8 --lock-tables --single-transaction database table > table.sql gzip table.sql scp table.sql.gz new-server:/tmp/ ssh…

2014-11-07

数字を3桁ごとにカンマで区切るやつ

Perl

Perl 数値三桁とかでググると色々出てくるけど微妙に要件満たしてなかったりする。正負の記号入れると動かなかったりとか、小数点入れると動かなかったりとか、小数点以下もご丁寧に3桁区切りになったりとか。要件を言うと -7,654,321.0000001 と整形さ…

2014-10-21

「iine log - よかったことだけを書きのこすミニブログサービス」のクライアントライブラリ作った。

iine log iine log | よかったことだけを書きのこすミニブログサービス良かったことがあったら書き込むミニブログ iine log ができたので、例によってログインして発言・タイムラインを取得するクライアントライブラリ作った。Likk/WebService-Iinelog · Git…

2014-10-07

chatter に書き込みと、打刻以外の発言ログを抽出できるライブラリ作った。

Perl

主に関係者向けなのでとりあえず、分かる人にだけ分かればいいや。 chatter単体じゃなくて、勤怠管理 teamspiritの内包機能として、また管理者じゃなくてユーザとして使うのに、developerサイトに登録していいのかAPI使っていいのか、よく分からなかったので…

2014-10-06

エロなクライアントライブラリ作った。

Perl

タイトル出落ちです。最近出来たらしい SNS ello.co の招待メールを受け取ったので、ログインして発言するクライアントライブラリ作った。Likk/WebService-Ello · GitHubタイムラインとかも持ってこれるように追加修正します。そのうち。ただHTML上にある情…

2014-09-29

Greeにログイン出来なくなってたので直した

Perl

Greeのコミュニティの情報を定期的に持ってきたくてスクリプト書いていたんですが、先週ぐらいからログインに失敗して通知が止まっていたので直した。Likk/WebService-Gree-Community · GitHub使い方は example 配下を見ればわかると思うけど perl ./example…