indirect object notationでハマらないためのno indirectプラグマ - Sexually Knowing
普段、Perlを書くときは require_ok などでモジュールがコンパイル可能か・構文エラーがないかをテストするようにしているけれど、 require_ok では発見できない構文エラーを発見したのでそれの詳細と対策について。 実行時エラーになる構文エラー (?) とindirect object notation 実行時エラーに構文エラーになることなんてあるのかよと思うけど、厳密には構文エラーではなく、意図しない構文解析の結果、コンパイルは成功するが実行するとエラーになるというコードができあがってしまった。 具体的には以下のようなコード: package App::Logger; use Exporter 'import'; our @EXPORT = qw(INFO); sub INFO ($;@) { ... } 1; package App::Loader::User; sub
YappoLogs: xlsx ファイルを git diff しやすくする為の天才的な wrapper script を書いた
皆さんはプロジェクトのリソースとしてエクセルの xlsx ファイルを使う事があると思います。 何てったって事務職の人ですら楽々使えるスーパー優れた UI なので、 web の管理画面とかを作り込むよりもエクセルでシート作ってもらってしまった方が早いケースも多いんです。現実の世界では。 で、普通の人は TSV にするだの CSV にしてもらうだのすると思うんですが、一方的にデータ貰うだけなら良いんだけど、相手とやり取りする時にはどうしても xlsx ファイル経由とかにしないと相手がこまる！やっぱりエンジニアのエは優しさのエだから相手に優しくしないとだめです。 で、 xslx ファイルでエンジニア以外の人とデータやり取りするとやっぱり、バージョン管理したくなるのが人情です。 でも xslx ファイルはバイナリファイルなので git diff とかが残念です。。。 って事で作っちゃいました。 h
Vim で現在カーソルがあるテストメソッドを実行する - Sexually Knowing
Perl には Test::Class という JUnit 風にテストを書けるモジュールがある。すなわち: テスト用のクラスを定義し アサーションをインスタンスメソッドとして括り出す ことができる。 Test::Class はテスト実行時に環境変数 TEST_METHOD に与えられた値で実行するテストメソッドをフィルタリングすることができる。 Sometimes you just want to run a single test. Commenting out other tests or writing code to skip them can be a hassle, so you can specify the TEST_METHOD environment variable. The value is expected to be a valid regular expres
Perlリファクタリングツール作ってる - hitode909の日記
こんにちは，まずはこのGIFをご覧ください． Perlのソースコードをリファクタリングするツールまともなのがないから自作することにした．perl-refactoring-toolsっていうそのままの名前． GitHub - hitode909/App-PRT: Command line tool for Perl code refactoring いろいろあってApp::PRTになった GitHub - hitode909/App-PRT: Command line tool for Perl code refactoring いまのところ，トークンの置き換えと，クラスのリネームができる． テストのカバレッジ100%で意識高い． hitode909/App-PRT | Coveralls - Test Coverage History & Statistics トークンの置き換え トークン
正規表現によるバリデーションでは ^ と $ ではなく \A と \z を使おう
正規表現によるバリデーション等で、完全一致を示す目的で ^ と $ を用いる方法が一般的ですが、正しくは \A と \z を用いる必要があります。Rubyの場合 ^ と $ を使って完全一致のバリデーションを行うと脆弱性が入りやすいワナとなります。PerlやPHPの場合は、Ruby程ではありませんが不具合が生じるので \A と \z を使うようにしましょう。 はじめに 大垣さんのブログエントリ「PHPer向け、Ruby/Railsの落とし穴」には、Rubyの落とし穴として、完全一致検索の指定として、正規表現の ^ と $ を指定する例が、Ruby on Rails Security Guideからの引用として紹介されています。以下の正規表現は、XSS対策として、httpスキームあるいはhttpsスキームのURLのみを許可する正規表現のつもりです。 /^https?:\/\/[^\n]+$/
anyenvで開発環境を整える - Qiita
私の場合、開発環境では複数の言語のコードを書いたり実行したりします。 例えば perl, ruby, nodejs, python など。 これらを利用するために、plenv, rbenv, nodebrew, pyenv などを利用していました。 しかし、遅ればせながら anyenv というものがあると聞いたので、こっちに乗り換えました。 **envを2つ以上使ってる人はこれ使うのが良いと思います。おすすめ。 http://blog.riywo.com/2013/06/22/155804 https://github.com/riywo/anyenv インストールは簡単 README.md のとおりにやればOK # ------------------------------------------------------------------------ -# plenv +# an
Big Sky :: PerlでWindowsと親和性の高いreadlineが欲しい → あった「Caroline」
readline って言うと、便利な反面 Windows だと問題が多く発生して、Windows でも動かすスクリプトでの使用は敬遠してたんですが、Caroline だと多い日も安心。 tokuhirom/Caroline - GitHub Yet another line editing library https://github.com/tokuhirom/Caroline readline なんかと違って、内部は utf-8 なので unix 等のスクリプトと同じ動きをします。ヒストリも保存出来るし、入力補完も自作出来ます。 eg/suddenly_death.pl を見るといいです。 $ perl -Ilib eg/suddenly_death.pl hello> ここで m を入力してタブキーをタイプすると... $ perl -Ilib eg/suddenly_death.p
cpanfile の構文を watchdogs.vim (+ quickrun.vim) で検証する - Sexually Knowing
最近は Perl で書かれたプロジェクトの依存モジュール管理は cpanfile で行われていることが多い*1ので自然と cpanfile を読み書きする機会も増える。 cpanfile もきちんと構文が定められているので、些細な構文間違いに気付かぬままコミットしてしまうといったことは防ぎたい。 しかし単に Perl のコードとして検証するのでは `requires` などが定義されていないので意図せず構文エラーになってしまうという不備がある。 そこで Module::CPANfile を使う。 use Module::CPANfile; Module::CPANfile->load; watchdogs.vim を使う場合は次のように設定する: let g:quickrun_config['watchdogs_checker/cpanfile'] = { \ 'command' : 'p
TAP::Harnessの結果を左右反転して出力するTAP::Formatter - hitode909の日記
Perlのテスト実行するときproveとかやると何か結果が出るけど，これの出力するのをプログラムから操作したいと思って，TAP::Harness読んでた． TAP::Harnessのコンストラクタに自作のformatter_class(これはテストが終わったときに結果を整形するクラス)を渡して，formatte_classのopen_testの返り値で自作のSessionクラス(これは一行ずつ呼ばれるやつ)を渡すと，Sessionクラスのresultに各行のオブジェクトがやってくることが分かった．merge => 1すると テスト失敗したときに構造化されずに出てくる# Failed test みたいなのもSessionで受け取れる．必要な分だけ書きたいのでデフォルトのクラスを継承してちょっとだけ書く． 意味ないけど，とりあえず，出力が左右判定するproveみたいなの作っておいた．これ自体に
Perl, あるいは困ることについて - Kato Kazuyoshi
Q2 になったので月に1回くらいは日本語で書いてみることにした。 ここ数年で Perl に起こった良いことは2つある。 ひとつは PSGI/Plack, cpanminus, carton, cpanfile などいろいろ良いものが他言語から輸入されたことで、Perl で書かなくてはいけない時の面倒が軽減された。それぞれ Ruby でいうところの Rack, gem (1), Bundler, Gemfile に対応している。 もうひとつは Module Counts にみるライブラリ数の推移や、Moose の開発者で Perl 5 にメタオブジェクトプロトコルを入れるはずの Stevan Little が Perl is not Dead, it is a Dead End なんて言い出すくらい、だんだん衰退していることで、なんというか妥当な世代交代だと思う。 Perl で、たとえばなに
Perl 5.16.3 and 5.14.4 just released – Perl News
Perl 5.16.3 has just been released including the fix for the Rehashing flaw and is a recommended update for all 5.16 users. Perl 5.14.4 has also been released, again fixing the Rehashing Flaw and is a recommended update for all 5.14 users. These updates will be mirrored to your local CPAN mirror in the next few hours.
テストにコケる度にシーザーが死ぬ仕組みを作りました - その手の平は尻もつかめるさ
タイトルは釣りです。 App::WithSound をリリース致しました。 https://github.com/moznion/App--WithSound https://metacpan.org/module/MOZNION/App-WithSound-v1.0.2/with-sound (2013.03.06 追記) App::WithSound はv1.1.0 にバージョンアップしました。 コマンドの成功・失敗時だけでなく、コマンドの実行中にも音声を再生出来るようになっています。 https://metacpan.org/module/MOZNION/App-WithSound-v1.1.0/with-sound (追記ここまで) App::WithSound? コマンドが成功するか失敗するかによって、その結果に対応した音声が流れるアプリケーションです。 まず、このモジュールはm
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 . ''; と等価です。 ベビーカー演算子: @{[ ]} 文字
Terminal Hero
Readme Dependencies This game is written in Perl language, so it depends on Perl interpreter. It also needs libtermkey and some extra Perl modules: Term::ReadKey Term::TermKey POE POE::Wheel::TermKey If you don't know how to install Perl modules, look at How to install CPAN modules. If you have problems with installation of Term::TermKey, make sure that libtermkey is available in your operating sy
Perlでは何が定数なのか - D-6 [相変わらず根無し]
生のハッシュリファレンスを return したら遅い コメントを残せないブログなんて！どうなの！と、それは置いておいて、Perlでconstant foldingされるのは文字列・数値リテラルか、定数扱いできる関数だけです。 定数扱いできる関数というのは実は決まっていて、以下の条件がそろわないとconstant folding されない： その関数は 引数を取らない、とprototypeで明示的に宣言してあるその関数は文字列・数値リテラルを返し、それ以外の処理を行わないこちらのコードを実行してみるとわかりやすいuse strict; use O ('Deparse'); sub not_const { 1 } sub const_num() { 1 } sub const_string() { "foo" } sub const_list() { [ qw(1 2 3) ] } sub
生のハッシュリファレンスを return したら遅い
ハッシュリファレンスは畳み込み的に定数扱いじゃなかったのね、ってのに気づいて驚いた(というのが本当に遅い原因か確定させて無いけど)(【追記2】参照)。 #!/usr/bin/perl use strict; use warnings; use Benchmark qw/timethese cmpthese/; my $HASH = { foo => 123, bar => 456, baz => 789, }; my $result = timethese (750_000, { 'VAL' => '&logic1;', 'RAW' => '&logic2;', }); cmpthese $result; sub logic1 { _logic1()->{foo}; } sub _logic1 { return $HASH; } sub logic2 { _logic2()->{foo};
YogafireというAWSツールでヨガの奥義を極める - Perl勉強メモ アルパカDiary出張版
※注 タイトルに深い意味はありません https://github.com/toritori0318/p5-Yogafire だいぶ前からgithubには置いてたんですが 年始だしドキュメントっぽいのを書いてみることにしました。 超長い！でも便利かも！ 前置き 仕事上AWS（EC2）を使うことが多いのですが、 自分で使っていて「こんなんあったら便利かなー」というのを寄せ集めたCLIです。 基本的な考え方としては「EC2をタグNameベースで」いろいろと操作できるようなツールですね。*1 *2 貧乏性な自分はスポットインスタンスを定常的に使うので yoga sshは割と必須だったりしています。 ※Windows たぶん動きません！ インストール cpanm https://github.com/toritori0318/p5-Yogafire/tarball/master # cpanm無い
Shipped Mail::Krohn 0.01 - tokuhirom's blog
Mail::Krohn is alternative library for Email::Sender. I don't want to use Email::Sender since it depends on Moose. I want to run our application in tight memory. Some of the developers call the sendmail command by himself. Mail::Krohn is minimized version of Email::Send. But all required features for most web applications are supported(I hope). Enjoy! 【追記】 Now, Email::Sender was switched to Moo. I
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
usleep - micro秒指定でsleep - うまいぼうぶろぐ
)
http://nyaos.org/d/index.cgi?p=(2008.11.09)