Acme、其はPerlのユグドラシル
# source/DCONWAY/Acme-Bleach-1.150/lib/Acme/Bleach.pm package Acme::Bleach; our $VERSION = '1.150'; my $tie = " ¥t"x8; sub whiten { local $_ = unpack "b*", pop; tr/01/ ¥t/; s/(.{9})/$1¥n/g; $tie.$_ } sub brighten { local $_ = pop; s/^$tie|[^ ¥t]//g; tr/ ¥t/01/; pack "b*", $_ } sub dirty { $_[0] =~ /¥S/ } sub dress { $_[0] =~ /^$tie/ } open 0 or print "Can't rebleach '$0'¥n" and exit; (my $shirt =
Perlの最新動向 2021 - Mobile Factory Tech Blog
こんにちは、エンジニアの id:mp0liiu です。 8月28日(土)の Learn Languages 2021 というイベントの Language Update というセッションで@charsbarさんと一緒に2018年以降のPerl5やPerlコミュニティの最新動向について話してきたので、そのとき話した内容に補足などしつつ記事にしていきたいと思います。 配信アーカイブはこちらから見れます。 時系列 2019/5/22 Perl5.30 リリース 2020/6/20 Perl5.32 リリース 2020/6/24 Perl7の発表 2021/5/21 Perl5.34 リリース Perl5.30 の変更点 正規表現や文字周りの細かい改善などはありますが、正直めぼしい変更点が見られないです。 Perl5.32 の変更点 isa 演算子の実装 値があるクラスのインスタンスもしくはそのサブ
PerlでもgRPCで通信したい - アリ
まずはじめに、2021/2時点でgRPCがサポートされている言語にはPerlは含まれていなく、公式にはサポートされていません。 現時点でと言ったものの将来的にもサポートされることがないだろうことからPerlでgRPCを扱うのは茨の道といえるでしょう。 おとなしくgRPC transcodingしてHTTP REST APIで叩きましょう、というのがほぼ答えなのですがCPANに公開されているライブラリを使ってどこまでできるのかを検証するのがこの記事の目的です。 題材 gRPCで通信といっても、サーバとクライアントのどちらをPerlで実装するかという話になりますが、今回実装するのはクライアントです。 他の言語で書かれたマイクロサービスからPerlと通信することを想定して、手軽な例としてGAPIC Showcaseのサーバと通信することにしてみます。 github.com google.show
PerlでスナップショットテストをするTest::Snapshotのご紹介 - Masteries
このエントリは, ｢Perl Advent Calendar 2020｣の9日目の記事です. qiita.com 昨日のエントリは, id:xtetsuji さんの｢xargs や find と合わせて使う・代わりに使う Perl｣でした. qiita.com 実は最近異動をしていた id:papix です. 異動後もPerlをモリモリ書いている日々ですが, 移動先のチームのプロダクトで同僚の id:mizdra が導入していた Test::Snapshot が便利だったので紹介します. metacpan.org Test::Snapshot Test::Snapshotは, その名の通り｢スナップショットテスト｣を提供するモジュールです. スナップショットテストとは, 予め｢スナップショット｣と呼ばれる期待値を生成しておき, テストを実行する際には実行結果とスナップショットを比較してテス
YAPC::Tokyo 2019で「多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと」というトークをします | おそらくはそれさえも平凡な日々
YAPC::Tokyo 2019で「多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと」というトークをします https://yapcjapan.org/2019tokyo/ プロポーザル通ったので、テーマの「報恩謝徳」に即した、タイトルの通りのトークをさせてもらえることになりました。LT、キーノートの直前のメインホールでのセッションなので、キーノートの席確保がてらでも良いので、是非お越しください。あまりコードもでてこないのでカンファレンス終盤の疲れた頭にはちょうどよいトークになると思います. https://yapcjapan.org/2019tokyo/timetable.html#/detail/15 内容は上記にも書いてあるとおりですが、僕自身Perlコミュニティーのおかげで一人前のプログラマーになれたという思いがあるので
“just epic”と書くだけでサーバを起動する方法 - Hatena Developer Blog
こんにちは、id:aerealです。普段はいま皆さんがご覧になっているHatena Developer Blogをホストしているはてなブログというサービスの開発に携わっております。 本日はそのはてなブログのコードで使われているオシャレなサーバ起動コードについてご紹介します。 はてなブログのローカル開発用のサーバ起動スクリプトは、タイトルにあるように“just epic”というコードを実行しています。 どうしてそんなことができるのでしょうか? それでは実際にはてなブログの起動コードの一部をご覧ください: just epic. 2011-2018; まるで自然文のようですが歴としたPerlのコードです。 はてなブログはこのコードを実行するとローカルで起動するようになっています *1。 このコードをdeparseしてみます: ✘╹◡╹✘ < cat epicup just epic. 2011-
Mackerelプラグインパッケージのファイルサイズを9割削減したBusyBoxテクノロジー - Hatena Developer Blog
チーフエンジニアでMackerelのプロダクトマネージャーを務めている id:Songmu です。 このエントリは、はてなエンジニアアドベントカレンダーの12日目の記事です。 プラグインパッケージについて BusyBoxという解決案 BusyBoxの正体 互換性維持のための移行戦略 Perlによる機械的なパッケージ化処理 BusyBox本体であるmackerel-pluginコマンドの作成 まとめ もう昨年の話になるのですが、Mackerelのプラグインパッケージの容量削減を実施しました。 上記エントリから抜粋すると、rpmやdebパッケージのファイルサイズについてmackerel-agent-pluginsが56.6MBのところを4.23MB、mackerel-check-pluginsが20.5MBのところを2.75MBと、実に1/10程度にまで削減に成功しました。このエントリでは、そ
YAPC::Tokyo 2019
YAPC::Japanが東京に帰ってきました！ YAPCはYet Another Perl Conferenceの略で、Perlを軸としたITに関わる全ての人のためのカンファレンスです。 Perlだけにとどまらない技術者たちが、好きな技術の話をし交流するカンファレンスで、技術者であれば誰でも楽しめるお祭りです！ 今回のYAPC::Tokyoは「恩に感謝し報いる」ことを意味する、「報恩謝徳」をテーマに掲げて開催します。 Perlをはじめ様々な技術を使って、捗ったこと、世の中に影響を与えられたこと、今に繋がっていること、そして、これからどんなことをしていきたいのか、 そんな話をしましょう！ぜひ、皆さま楽しみに来てください！ ☆ ゲストスピーカー・トークスケジュール等は本サイト・Twitter・Facebook にてお知らせいたします。併せてご覧ください。 ☆ 前祭夜・懇親会についても開催を予定
Perl使いの国のRubyist
Let it Flow - Introduction to Functional Reactive Programming
2018年のPerl入学式の構想 - Perl入学式
あけましておめでとうございます, id:papix です. 昨年は, これまでの大阪/東京/沖縄の3拠点に加えて, 新たに札幌での開講が始まり, より多くの方と一緒にPerlを学んでいくことができました. そして2018年, いよいよPerl入学式は7年目に突入します. 7年目が始まる今この時, あらためてこれまでを振り返ってみると, 2011年に大阪でPerl入学式の取り組みをスタートしてから, Perlはもとより, Perl入学式を取り巻く状況も目まぐるしく変化してきたと感じます. そういった状況に鑑みて, Perl入学式という取り組みをさらに実り多く, 継続可能なものにするために, 良いものは残しつつ, 現在の時流に適した形へ刷新していく必要があると感じています. ...というわけで, 個人的な2018年のPerl入学式のテーマは "Reboot" です. 以下, どのような取り組み
Dockerで開発環境構築を10倍楽にしたはなし - KAYAC engineers' blog
Lobi事業部 サービス基盤チームの長田です。 最近プロジェクト内で使用する開発環境にDockerを利用するようになったので、その紹介をします。 Dockerにしたってどういうこと？ 公開済みのWebサービスに変更を加えて動作確認をする場合、本番環境でそれを行うわけにはいきません。 ほとんどの場合はローカルマシンでWebサービスの全体または一部のコピーを動かして動作確認を行うことでしょう。 その後ステージング環境などの他の開発メンバーも触ることができる環境で動作確認やQAを行い、 問題がなければ晴れて本番環境に反映、という流れが一般的かと思います。 この「ローカルマシンでWebサービスのコピーを動かす」部分にDockerを利用している、ということです。 Dockerにしてどうなった？ Before 開発環境構築に1〜2日かかっていた After 開発環境構築がランチに行っている間に終わるよ
Perlで雑なスクリプトを書く時の個人的な三種の神器 - Masteries
日常の中で複雑な作業をしたい時, Perlで雑なスクリプトを書いて実現することがあります. そういった時によく使うCPANモジュール達を紹介しようと思います. Path::Tiny metacpan.org ファイルの読み書きはもちろん, ファイルやディレクトリの存在確認, ディレクトリからのファイルの走査, 一時的なファイル/ディレクトリを用意... などなど, ファイルやディレクトリ操作に関するあらゆることがこのモジュール1つで実現できて便利です. Data::Printer (DDP) metacpan.org 便利で見やすいData::Dumper. 雑なスクリプトを作る時は, とにかくData::Printerで途中結果を表示しながら試行錯誤しています. papix.hatenablog.com 過去にこういう紹介記事を書いていました. papix.hatenablog.com
毎秒2000Requestを捌くPerl製CMSの内部構造（Debianサーバ1台にて）
圧倒的な速度で動作するadiaryの仕組みを解説します。勉強会等でスライド発表の要望がありましたらご連絡ください。
Perl6で記号Hello worldする - すぎゃーんメモ
一番簡単なHello worldです。 ::('!{.(?'~^'.~!)~'~^')^.^^'~^'?!^?('~^'??)!{')('!?}}~~(!^~{~))(.{~('~^'))?^?.).(?.}?)().!~'~^'~!.?}?~.^.{?!)~}!).'~^'}!!.~(}(!?}~{!}).(('~^')^(^.(.)~?!.()!})?)')普通に実行できると思います。 $ cat hello.pl6 ::('!{.(?'~^'.~!)~'~^')^.^^'~^'?!^?('~^'??)!{')('!?}}~~(!^~{~))(.{~('~^'))?^?.).(?.}?)().!~'~^'~!.?}?~.^.{?!)~}!).'~^'}!!.~(}(!?}~{!}).(('~^')^(^.(.)~?!.()!})?)') $ perl6 hello.pl6 Hello,
Gotanda.pm #6 で障害について話してきた #gotandapm - weblog of key_amb
こんにちは、@key_amb です。ご無沙汰しています。 最近ブログの更新が遅れてまして、なんとなく申し訳ない気持ちになっている今日このごろです。 なんと、2ヶ月も更新してなかったんですね。*1 さて、前回の Gotanda.pm #5 では、テーマ(「高速化」でした)ガン無視の LT をしましたが、今回はちゃんと「障害」というテーマに沿って発表をしました。 障害を防ぎ、サービスを守るために #gotandapm from IKEDA Kiyoshi 時間がかなり余ったようで、もう少しネタを用意しておけばよかったなと思いました。 今回はこれまで仕事上、いろいろと障害やアラートの対応をやってきた中で、自分なりに大事だと思っている考え方をまとめてみました。 で、その中でどういうツールを使っているかなどの紹介をしました。 どちらかといえば概論的な話で、各論にはあまり踏み込んでいないのですが、何か
Test::Time::AtというCPANモジュールをリリースしました - $shibayu36->blog;
社内でテスト時の時間操作を便利にするTest::Time::At というモジュールがあったので、それをCPAN化してリリースしました。 テスト中の時間を止めて、sleepなどの操作をうまくハンドリングしてくれるモジュールにはTest::Time というモジュールがあります。このモジュールを使っている時に、たまに、ある時間を指定してテストを実行したい時があります。そのような場合は以下のようにすれば実現できます。 use Test::Time; use DateTime; my $target_dt = DateTime->new(year => 2015, month => 7, day => 15); $Test::Time::time = $target_dt->epoch; my $now = time; Test::Time::Atを用いると、このような操作を少し便利にする事ができま
CPANモジュールのディレクトリ構成について - Masteries
ほぼ1年ぶりの開催になってしまった五反田Perlで, CPANモジュールのディレクトリ構成についての話題が出たので, 自分の理解をアウトプットしておこうと思います. lib / t もはや説明不要ですが, libディレクトリにはモジュール本体, tにはそのモジュールのテストを配置します. Minillaなどを使ってモジュールの雛形を作った場合, 最初から作られていますので, 見たことのある方は多いのではないでしょうか(?). xt いわゆる｢Authorテスト｣を設置するディレクトリです. 例えばPOD(モジュールのドキュメント)関連のテストやPerl::Critic/Perl::Lintによる静的解的テストなどを設置することが多いです. share Webアプリケーションなどをモジュールとして配布する際, CSSやJavaScriptなどを同梱したい場合にはこのディレクトリに設置します.
Perlがメインじゃない現場でもPerlを使う(AdTech現場編） - YAPC::Asia Tokyo 2015
TL;DR 慣れてる技術(Perl)を使いつつ、今の現場でどうアウトプットしていくか AdServerを支えるPerlプロダクト の紹介をする予定です 内容 VOYAGE GROUPは様々なサービスを運営しており、それを支える技術も多種多様です。 その一つであり、私が所属するadingoが提供する事業でも様々な技術が用いられております。 このトークでは、現場ごとに異なる環境であっても、ある一つの手段(Perl)を使いつつアウトプットしてきた内容をご紹介します。 今もPerlの現場でPerlを使っている人 昔はPerlの現場だったけど、、な人 これからPerlの現場に行く予定の人！？ 上記どのパターンの方も対象になりますし、「Perl関係ない」人にもヒントになる内容もあるかと思います。 最新のイケてるものの活用事例や、革新的なプロダクトを作った！みたいな派手な内容ではありません。 どちらかと
Perlの黒魔術を解説するよ〜〜〜〜 - 猫型の蓄音機は 1 分間に 45 回にゃあと鳴く
まずはこちらをごらんください。 shinh.hatenablog.com すごすぎる……。恐ろしいですね。 なぜこんなことになるのか、解説していきましょう。まずはPerlの気持ちになりましょう。 Perlの気持ち編 ポイントその1 barewordを数値コンテキストで評価するとどうなるのかということ 件のプログラムは、base64 っぽい文字列が書かれていますが、これを前からPerlコードとして読んでいくと、大きく2つのパートに分かれることに気づきます。というのも、前から一文字ずつ読んでいくと、「+」という演算子にぶつかるわけですね。 それに気づくと、このコードは前半部分 dXNlIE1JTUU6OkJhc2U2NDtwcmludCBlbmNvZGVfYmFzZTY0IGpvaW4nJyw8PjsKX19FTkRfXwo と、 s//v62/e+s//v60/e+s//v44/e+s//v
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
APIをPerlで作る時に 僕達が考えたこと