2017年 Perl5 との戦いに生き残るための最高の開発環境を手に入れる - Qiita
はじめに：これは誰のための記事か？ Perl で書かれた比較的大きなスクリプトやプロジェクトを保守する必要のある人. Perl 5 との戦い Perl5 (以下 Perl) といえば一時期 CGI を作るための標準的な技術として Web の開発で利用されたり、テキスト処理用の言語として昔から広く使用されている言語です。 かつてはサーバー上で CGI を動作させるために Perl でなければならない というような状態がありましたが、近年では Ruby on Rails や PHP 製のフレームワークなどがサーバー上で普通に利用できるようになっており、かつてのような Perl が必要とされる ようなシチュエーションは減ってきているかと思います。 また、オブジェクト指向プログラミングや関数型プログラミングをサポートする新しい言語が普及してきている現在では、新規の開発に Perl を採用するメリッ
Rendering React Components Using Perl - Tilt Engineering Blog
The Tilt.com website was originally built using Perl. Over the years, we added jQuery UI to build widgets that had dynamic page behavior. Perl on the backend and jQuery UI on the frontend helped us get to where we are today, but about a year ago it was clear to us that we needed to start introducing a more modern technology stack. We chose React for our view layer and Node.js for the application l
Perlの食えない事情 - 演算子編 - アリ
Perlの食えない事情 より おっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。 ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。 なぜこの演算子を使う必要があるのかというと、Perlは文字列と数値を明確に区別できないからです。scalarを文字列として解釈するならば文字列として、 print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ちなみに、文字列として評価するときにはこのようにするとかっこいいと言われています。 $obj.q(); 一見メソッド呼び出しのように見えますが $obj . ''; と等価です。 ベビーカー演算子: @{[ ]} 文字
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
Server::Starterから学ぶhot deployの仕組み - $shibayu36->blog;
以前http://tech.naver.jp/blog/?p=1369の記事を読んだのだけれど、それまでにprocessの知識が無かったりして、まったく理解できませんでした。そこでWorking with UNIX ProcessesやServer::Starterの中身を呼んでようやくhot deployの仕組みを理解できた(気になっている)ので、Server::Starterの実装を追いながら、それをまとめてみます。 hot deployとは hot deployとは「再起動の時にリクエストの処理を続けながら、変更の内容を反映するための手段」です。 通常serverをrestartさせるときは、stop -> startの流れになると思いますが、この場合stopしてから、start出来るまでの期間にリクエストを処理できない期間が発生します。その期間なしにdeployする仕組みがhot
Devel::NYTProf で Starlet/Starman (Plack) でうごくウェブアプリケーションのプロファイリングをおこなう方法まとめ - tokuhirom's blog
Devel::NYTProf は Perl5 の世界でもっとも人気があるプロファイラである。表示が美麗であるし、ステップごとの処理速度が簡単にわかるのでとても便利だ。 そんな Devel::NYTProf であるが、Starlet/Starman のようなプリフォーク式のサーバーでうごくウェブアプリケーションとくみあわせる場合の方法論として、わかりやすい資料がみあたらなかったのでここに記すものである。 環境変数 NYTPROF を設定する Devel::NYTProf は環境変数で挙動を変えられる。 plack とくみあわせる場合には、以下のようにするとよい。 NYTPROF=sigexit=int:savesrc=0:start=no sigexit=int 通常、Devel::NYTProf は END { } ブロックでデータのファイナライズ処理をおこなうのだが、SIGNAL によっ
Perl 初心者がウェブアプリケーションを書く時に気をつけるべきこと - tokuhirom's blog
$c->req->param('id') みたいなメソッドは使ってはいけない。これは歴史的経緯から残っているものなので、基本的に使わない方がいい。 $c->req->parameters->{id} をかわりに使ってください。 Perl の世界には List コンテキストというものがあって、これがウェブアプリケーションを開発するときには鬼門となります。 +{ id => $c->req->param('id') } のようなコードは、param メソッドはリストコンテキストではすべての id を返すので、 ?id=3&id=hasegawa&id=yosuke というようなクエリが来ている場合、 +{ id => 3, hasegawa => 'yosuke' } のようなデータ構造が作成される。これは明らかに意図していない挙動である。 以下の様にかくのがおすすめです。 my $id =
Test::Class と subtest を組み合わせた場合に、とあるテストメソッドの subtest 内で例外が発生してしまうと、それ以降の別のテストメソッドの subtest も全部失敗してしまうっぽい? - 一角獣は夜に啼く
subtest を Test::Class と組み合わせると、とあるテストメソッド中の subtest 内で例外が発生した場合に他のテストメソッド内の subtest が問答無用で失敗になるっぽくて最悪だ。— nobuoka (@nobuoka) 2013, 7月 13 @nobuoka 気になる— 柴崎優季 (@shiba_yu36) 2013, 7月 13 Perl のテストで、Test::Class と subtest を組み合わせた場合に、とあるテストメソッドの subtest 内で例外が発生してしまうと、それ以降の別のテストメソッドの subtest も全部失敗してしまうっぽい? package MyTest; use strict; use warnings; use parent qw( Test::Class ); use Test::More; sub t1 : Test
Plack::Middlewareの書き方 - ゆううきブログ
前回，Plack::Middleware書いたので，Plack::Middlewareの書き方をメモしておく． Plack::Middlewareモジュールに最低限必要なのは基本的に2つしかない． Plack::Middlewareを継承することcallメソッドを実装しておくだけ． callメソッドの返り値はPSGI形式のレスポンスである． リクエストがとんでくると，builderブロック内でenableした順番にそれぞれのcallが発行される． package Plack::Middleware::MyMy; use strict; use warnings; use parent 'Plack::Middleware'; sub call { my ($self, $env) = @_; return $self->app->($env); # 次にenableしたMiddleware
ぽろきぃのblog : Plack::Middleware::Debug Panel 作成に入門してみました
2010年01月14日10:45 カテゴリperlPlack Plack::Middleware::Debug Panel 作成に入門してみました ネムイ日々が続いていますポロキィです。いかがお過ごしでしょうか。昨日現実逃避がてら、Plack::Middleware::Debug のパネル作成に入門してみましたので Open & Share したいと思います。 TemplateToolkit内での変数を表示する TTパネル 弊社では、プログラマーとHTMLのマークアップは分業されています。そこで、マークアップの方が、どういう変数が利用できるか一目で分かれば便利に違いないという妄想が浮かびましたので実装してみました。 下みたいな感じです。 WikiR::WAF::Middleware::Debug::TT TTパネルです。polocky.stash_keys という環境変数からキー名を取得し
Perl::Lintのviolationsを見やすく整形して表示するツール等をかいてみた | All Your Bugs Are Belong To Ass
ここ最近、moznionのつくっているPerl::Lintを触っている。 Perl::Lintという物について端的に言ってしまうと、Perlでかかれたコードの中からダメな部分(=violationsという)を指摘してくれる機能を提供する「お節介焼きライブラリ」なんだけど、このツールの解析結果をいい感じに表示してくれる「レポーター」と呼べるようなものが存在しなかったので、つくってみた。-> Perl::Lint::Reporter Perl::Lint::Reporter 使い方等 使い方は至って簡単。Perl::Lintで解析した結果をreport_violations()という関数に食わせるだけ。 use Perl::Lint qw/lint/; use Perl::Lint::Reporter; my $violations = lint(['/path/to/yourcode.pl'
Test::Perl::Criticでコーディング規約をテストする - $shibayu36->blog;
コーディング規約はあるけれど、レビューの時にチェックするのは大変ということで、とりあえずTest::Perl::Criticを使って軽くテストを書いてみました。 僕はある程度のコーディングのブレは許容して、チーム全員で合意がとれるものだけを自動でチェックするようにしたほうが良いと思っているので、rcファイルを使って、必要な物だけ追加していく形式を試してみました。 テストの追加 まずテストは以下のようにt/perlcriticrcを読み込むという設定をしてあげた上で、libとt全部をテストするように書きます。 require Test::Perl::Critic; my $rcfile = File::Spec->catfile( 't', 'perlcriticrc' ); Test::Perl::Critic->import( -profile => $rcfile ); all_cri
パール、アナルを使え！または私は如何にして Perl のワンライナーを書けるようになったか - 詩と創作・思索のひろば
簡単に言うとこういうことです。今日はこれだけ覚えて帰ってください。 perl -anal -e "…" 同様のオプションは Ruby でも使えます。 解説 -a いきなり見かけないオプションですが、入力を空白文字で区切り、@F という配列に入れてくれます。それ以外の影響はないので使わないときでも指定して問題なし。2 回指定してるのも意味ないです。語呂合わせです。Ruby の場合は $F ですね。 -n -e で指定されたコードを LINE: while (<>) { … } で囲みます。標準入力やファイルを一行ずつ処理するときに便利。sed や grep が簡単に書けますね。ワンライナーでは多様するオプションでしょう。代わりに -p を指定することで最後に print; することもできます。 -l -n や -p が指定されているときに各入力を chomp します。また、各出力に改行を追加
はてなから5人がYAPC::Asia 2014に登壇します&今年もスポンサーとして参加します - Hatena Developer Blog
こんにちは、id:motemen です。このたび開催されるYAPC::Asia 2014に、はてなのエンジニア5人のトークが採用されました。ここでその内容を簡単にご紹介します。 画像は去年の様子です id:yanbe 最近のウェブサービスの検索機能やその先の話（8/29 11:40〜 藤原洋記念ホール） 本トークでは、Elasticsearchに加えて、はてなのサービスで過去に利用してきた検索ミドルウェアもふまえつつ、大量のデータをもつウェブサービスにおいて、検索・集約を担当する専用のミドルウェアを既存のデータベースと組み合わせて利用することで、ユーザーから預かったデータの記録・管理・検索・集約といった機能性をどのように進化させることが出来るかをご紹介します。また、このような検索ミドルウェアのPerlからの利用を支えるCPANモジュールや、その設計についても触れます。 最近のウェブサービス
Perlベストプラクティスのベストプラクティスじゃないやつをまとめてみた | おそらくはそれさえも平凡な日々
Perlベストプラクティス Perlベストプラクティス(略してPBP)という良い本があります。僕自身もPerlを学ぶ過程で非常にお世話になった本なのですが、以下の様なことが度々指摘されています。 bestって書いてあるけど「著者の」bestプラクティスなので偏りがあることも 「決して」とか「必ず」とかが多いけどあんま真に受けてはいけない この本を書くために書かれたであろうCPANモジュールとかがあって、しかも公開されてないものまである 致し方ないけど現在の状況にマッチしない古い情報もある なので、PBPの何がベストじゃないのかについてまとめてみることにした。前からやりたかったんだけど、思い立ってやった。 まとめてみたら、思っていたほどには項目が上がってこなかったので、やっぱPBPは良い本だなと改めて思いました。なので、このエントリーがこれからPBPを読む人の助けになれば良いなと思います。
Harrietを使ってprove単位でmysqldを作ってみた話 - $shibayu36->blog;
tokuhirom blog を見て、これ便利だなーと思ったので、試しにこれを使ってprove単位でTest::mysqldを起動するやつを作ってみた。 harriet用設定を作る まずt/harriet/mysqld.plみたいなのを作る。この中でmysqldの起動とschema流し込みまでしてしまう。複数のdsnを保存しておきたければ、jsonで入れておくと良さそう。 # t/harriet/mysqld.pl use JSON::XS; use Path::Class; $ENV{TEST_EPIC_DSNS} ||= do { require Test::mysqld; my $mysqld = Test::mysqld->new( my_cnf => { 'skip-networking' => '', # no TCP socket 'default-storage-engin
Mobile Application Development for Perl Mongers [ninjinkun x gfx] - YAPC::Asia Tokyo 2014
Mobile Application Development for Perl Mongers [ninjinkun x gfx] 概要 このtalkは Webサービスのネイティブアプリ開発プラクティス by ninjinkun と合体しました。 近年、スマートフォンやタブレットなどのモバイル環境を対象としたモバイルアプリケーションが重要となってきています。一方で、モバイルアプリケーション開発の特徴は、様々な点でウェブアプリケーション開発とはかなり異なるという点にあります。全く異なるサービス設計法、プログラミング言語、ツールチェイン、開発モデルを使ってサービスを作っていくことになります。このトークでは、モバイルアプリ開発に携わる二人のエンジニアが、それぞれの立場や感心事についてのトピックをお話します。 このトークを通じて「 モバイルアプリ開発も面白い 」ということをお伝えできればと思います
おそらくはそれさえも平凡な日々: DBIx::FixtureLoaderってのを書きました
https://metacpan.org/module/DBIx::FixtureLoader これもまたどこも同じようなの作ってるんでしょうけど、テストとかでさくっとfixture 読み込んでInsertして欲しい的な要件で作りました。使い方は以下の様な感じ。 use DBI; use DBIx::FixtureLoader; my $dbh = DBI->connect(...); my $loader = DBIx::FixtureLoader->new(dbh => $dbh); $loader->load_fixture('item.csv'); $loader->load_fixture('item-2.yaml', update => 1); # ON DUPLICATE KEY UPDATE ORM非依存で$dbhを渡すだけで簡単にお使いいただけます。 CSV、YAML、J
Perlテストのリファクタリング的なあれ - Articles Advent Calendar 2011 Test
はじめに こんにちはこんにちは！最近アレでアレな zentooo です。 ちょっと前まで自分で書いたテスト用データをDBにほげほげするモジュールの話を書こうかと思っていたのですが、disで有名なあの方に会社で「それはいけてないわ」と言われ、確かに自分でもこれはいけてないわー、という気分になってself-reject!したので今日は予定を変えて全体的にふわっとしたことを書きます。 ※書いてしまってから昨日の記事と内容かぶってる！と気づきましたがそのままで testがモリモリ肥大化する テスト自体はとりあえず書くことは書くんだけど、何も考えずにテストを書いていると、こんな感じになっちゃったー、ってことがよくありますね。僕もよくあります。 subtest with_case1 => sub { my $data_for_test = +{ }; # 上のデータからオブジェクト作ったりDBにins
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Magnolia K, Author at Garten Blog - Your Tech Companion
