環境は macOS 10.14.4 で go1.12.5 です。 まずは次のコードを読んでみましょう package main import ( "fmt" "io/ioutil" ) const script = ` #!perl print "Hello, Perl World!!"; __END__ ` func init() { ioutil.Discard.Write([]byte(script)) } func main() { fmt.Println("This is Go world!!") } これをビルドして実行してみます go build -o main main.go こうすると main という実行用のバイナリができますね。 通常通り実行してみましょう。 $ ./main This is Go world!! 今度は Perl で実行してみましょう $ perl

I have been dealing with an interesting forking issue at work. It happens to involve Perl, but don't let that put you off. So, suppose you need to perform an I/O-bound task that is eminently parallelizable (in our case, generating and sending lots of emails). You have learnt from previous such attempts, and broken out Parallel::Iterator from CPAN to give you easy fork()ing goodness. Forking can be

この記事ははてなエンジニアAdvent Calendar 2017の22日目の記事です。前日は id:takuya-a さんの『Bing検索の裏側―BitFunnelのアルゴリズム』でした。たいへん興味深いですね。 はてなは Perl アプリケーションが多い会社ですが、今年のアドベントカレンダーは全く Perl の話が出てきてない......。でも僕は Perl 大好き少年なので、このまえ作った CPAN モジュール Text::Xslate::Bridge::TypeDeclaration の話をします。 一般的な Web アプリケーションではテンプレートエンジンに変数を渡して html を組み立てますよね。 はてなでは Text::Xslate の TTerse Syntax を利用しているプロジェクトが多いです。 例えばユーザ情報を表示するサイドバーの部分テンプレートはこんな雰囲気に

技術を活かし、新しい価値を創造する DeNAのエンジニアは、想像を超えるDelightを届けるために何ができるかを考え、技術力と発想力で新しい価値を生み出しています。 多様な専門性を持ったエンジニアが切磋琢磨し、互いに刺激し合える環境や制度がさらなる成長へとつなげます。

こんにちは。hiratara です。みなさん、意識は高まっていますか？ 私は上々です。今回は拙作の Data::Monad::CondVar というモジュールを紹介させて頂きます。 モジュール名にMonad というNGワードが入っていますが、このモジュールはAnyEvent 用のJSDeferred です。JSDeferred はみなさん好きですね？ 嫌いな人は好きになるまで何度も繰り返し使って好きになればいいと思います。 コールバック方式の関数を順に呼び出す場合、一般に記述がネストします。 use AnyEvent; sub add1($$) { my ($n, $cb) = @_; my $t; $t = AE::timer 1, 0, sub { $cb->($n + 1); undef $t; }; } my $cv = AE::cv; add1 0 => sub { my $n

ISUCON3の予選に参加してみました。 結果、一般枠10位で、無事予選突破、本戦に進めることになりました。わいわい。 ISUCON1は気付いたら終わってて、2は出ようと思ってたけどスケジュールの都合がつかず、今回が初参加になります。 チームメンバーは id:motemen, id:wtatsuru ダブルチーフ＆ダブルタツルのダブルダブルチームです。チーム名は Third Party Cookies。はてなブログはサードパーティクッキー受け入れを推奨しています。 撮影 : hitode909 インフラはwtatsuruに任せ、アプリ周りの改修をmotemenと分担。分担と言っても思いついたことを思いついたままにやっていただけなので、もう少し戦略とか考えていくべきだった。事前準備も何もしてなかった。redbull買ったくらい。 以下、自分が何をしたかを適当に書きます。他のメンバーの方が頑張

今年のYAPC Asia 2013にはTypes and Perl Languageというタイトルで話をしようと申し込んだのだけど、リジェクトされそうな気しかしないので話そうとしていることの概要を書いておく。なお、トークのタイトルは名著TaPLのオマージュである*1。 以下のGoのコードをきちんと型付けされていると言って、異論を持つ人は少ないだろう。 func inc(x int) int { return x + 1 } では、以下のperlのコードはどうだろう？ sub inc { $_[0] + 1; } 型がないという人もいれば、実行時に型を意識しているのだから型はあると反論する人もいるだろう。しかし、さらに別の見方として、このコードは先ほどの正しく型付けされたGoのコードから型の指定をとりはらったものだとも言える。という事は、もし、GoとPerlでプログラムを実行するルールが大差

Perl でメソッドを呼び出す時、 $class->$method; みたいな呼び出し方できるのは知ってたけど、 $class->${ \'method' } みたいな感じで、文字列のスカラーリファレンスをデリファレンスすることでも同じことができることを知った。 これを用いることでメソッドチェーンのメソッドを動的に決定することができる。 上記のように pass とかいうメソッドを用意しておけば、不要なメソッドはスキップするということもできるので、そのチェインを実行するかどうかも動的に決定できる。 コードは結構キモい感じだけど、それなりに実用性はありそう。

Reply is awesome! - blog.64p.org Perlの軽量 REPL Replyを Emacsから使うための 拡張を書きました。まだあまり機能はありません。 リポジトリ https://github.com/syohex/emacs-reply コマンド run-reply Replyを起動 reply-send-region リージョンの内容を Replyに送る。 インストール 現状 MELPA, marmaladeには登録していないので、el-getを使うか、 load-pathの通ったディレクトリに置いてください。 設定例 画面を半分に分割して、そこに Replyを起動する関数 reply-other-window みたいなのを定義すると便利かと思います。 (require 'reply) (defun reply-other-window () "Run re

コールバックを引数で取るような関数で無名関数を使ったとき こんな感じにして欲しいところですが、 cperl-modeだとこんな感じか こんな感じに なってしまいます。どうやったら一番上になるんだって思って ソース見ていたらなんとかなりそうだったのでその手順を示します。 melpaから取得できる cperl-modeの場合 このためのフラグ cperl-indent-subs-speciallyが用意されているので それを設定するだけで対応できます。 (setq cperl-indent-subs-specially nil) ;; もしくは (custom-set-variables '(cperl-indent-subs-specially nil)) Emacs付属の cperl-modeの場合 Emacs付属の cperl-modeも一応開発が進んでいるようで、 melpaにはない修

実際ググれば正解はいっぱい出てくるしここに自分もコメントで書いてたりしていまさら書く必要もないかなと思ってたけど一応自分のブログでもまとめておくということで。 一般的な解 DBIx::ConnectorとかDBIx::Handler経由でかならず$dbhを取得してからDBIを使う。 もしくはfork-safeなORM(DBIx::Class, DBIx::Skinny, Teng)を使う。 DBIを直接使っている場合 一般的なコネクションを保持するクライアントと同様にDBIもforkした子供が親のコネクションをそのまま使うことはバグの原因になります。特にトランザクションの処理等で重大な問題が起こる可能性がある。 解決策は、 DBIのコネクションを親で作らないで、子供で独自に作る 親で作ってしまったコネクションを子供が安全にDESTROYし、再接続する のどちらかになります。ここで問題は2で

EmacsでPerlを書くとき，Flymakeを使うには，PERL5LIBを指定する必要があって，古くから，set-perl5lib.elっていうのが使われてきた． set-perl5lib.elは，例えば，/a/b/lib/c.pmを開いてるとき，/a/b/libをPERL5LIBに追加してくれる． しかし，別の場所にGitのsubmoduleがあったりすると，例えば，/a//b/modules/以下にsubmoduleが入ってるとき，これではうまくいかない． そこで，Gitのリポジトリのrootからのパスを指定して，PERL5LIBに追加するのを書いてみた． Gitリポジトリのrootからのパスを指定してPERL5LIBに追加する.el — Gist set-perl5lib-glob-from-git-rootの引数にはPERL5LIBに追加したいディレクトリのGitのリポジトリのr

この度、Kyoto.pmを作成し、開催できることになりました！ 今回の件で助言を頂いた id:charsbar さんやKansai.pmの皆様に最初に感謝します。ありがとうございます。 経緯 去年のYAPC::Asiaで、Osaka.pmやらKyoto.pmの開催の話が出て、そのあとid:charsbarさんから下のような指摘を受けました。 関西近郊の地方.pmの話 - Charsbar::Note 僕としても関西近郊のperl mongersが「棲み分けもできずに共倒れしたり、対立のネタになってしまう」のは望みませんでした。そこでOsaka.pmの提起者であるid:papixさんとSkypeで連絡をとったり、Kansai.pmの皆さんとMLでやり取りを行いました。 結果として、ある程度住み分けをした上でKyoto.pmを開いても良いのでは無いかという話になり、Osaka.pmは初心者用勉

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

与えられたPerlのソースコードをPPIでパースしてマルコフ連鎖してソースコードみたいなのを自動生成する． https://gist.github.com/1290440 こんなのがでてくる． % perl perl_code_generator.pl ~/tmp/Plack/lib/**/**.pm use strict; use strict; use URI; use strict; use Scalar::Util; use Plack::Middleware::Lint; use 5.008_001; our @EXPORT = shift; my $docroot = shift; $class . $env->{SERVER_SOFTWARE} && $e->code; $self->env->{'psgi.url_scheme'}); $class->SUPER::new(

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28