Perl勉強会で話した - Perl日記
3/8 18:40から約２時間、自分含め７人くらいで、Perlについて語り合った。いいね！ 前回と違い、何も準備しなかったのがよかった 最初に内容を固定してしまうと、どうしてもそれに沿った内容を意識してしまって、柔軟性がなくなるからかな 参加者同士の質疑応答、意見交換、他言語との比較などがとても多くてすごく面白かった 「OOPについて」みたいなタイトルにしていたけど、実際には半分以上文法の話をしてたと思う 前回はPerlのインストールからやったから面白くなかったんだな 文法的なところまとめ 配列とハッシュの代入方法は同じ まるかっこで入れる。 配列は@ ハッシュは% =>(ファットカンマと呼ばれる)はカンマとほぼ同義 唯一の違いは、=>の左側を文字列だと文法レベルで解釈してくれるので、クオートで囲わなくても文字列と認識してくれること ハッシュの代入時に使用するのが一般的。見た目にもキーと値
C による Perl 拡張入門(
現状、本稿ははげしくかきかけです。フィードバックをおまちしております。 はじめに† Perl で C の拡張がスラスラと書けたら……。C の拡張がスラスラ書けたら、ネイティブのバインディングもスラスラ書けるし、ホットスポットを C で最適化するなんてこともお手の物。書けたらいいけど、XS ってなんかむずかしそう……。 ちがうんです! 今までの XS の教え方がまちがっていたんです!この教材をつかえば、誰でも簡単に今すぐに XS を書けるようになるんです。Perl の C 拡張を書いて同僚や上司を アッー! と言わせちゃおう! この教材では XS のややこしい機能をつかわずに、Perl の C 拡張を書く方法を伝授!初心者でもすぐに C 拡張が書けるようになるぞ! 前提知識† 本稿では一般的な C の知識および Perl の知識を読者がもっていることを想定しています。XS の知識や Perl
新しいPerlに今まで使ってたモジュールをまとめてインストールする - 酒日記 はてな支店
Perl-5.12.1 がリリースされたということで早速インストールされたかたも多いと思いますが、新しい Perl にモジュールを全部入れ直すのは面倒ですよね。 ExtUtils::Installed を使うと楽ができます。 今まで使ってる perl でインストールされているモジュールの一覧をファイルに落として、新しい perl で cpanm に食わせるだけです。 $ cpanm ExtUtils::Installed $ perl -MExtUtils::Installed -e 'print "$_\n" for ExtUtils::Installed->new->modules' > modules.txt $ perlbrew switch perl-5.12.1 $ cpanm < modules.txtあと、perlbrew でインストールした直後は cpanm も perl
CSRF 防止用トークンの自動チェックの問題と解決 | tech | perl - 氾濫原
自分が作るウェブアプリケーションでは基本的に以下のような規則を守るようにしている GET だけで副作用 (DB書きこみなど) を伴う処理をしないこと POST 時には自動的に CSRF 防止用トークンをチェックすること これだけで単純な CSRF はまず防げくことができるからだ (実際は CSRF 防止用トークンの生成方法が多少問題になるが、作るウェブアプリケーションによって、どれほど厳密にすべきかが違うため、そのたび考えてやりかたを変えてる) このような設計をした場合、全ての POST するフォームに input type="hidden" とかで CSRF 防止用トークンを埋めこむ必要がある。ウェブアプリケーションフレームワークによっては、防止用トークンを埋めこむところも自動的にやってしまうものもあるが、外部サーバへ POST するフォームなんかを作ったとき (ASP型の外部サービスと
perlvar - Perl で定義済みの変数 - perldoc.jp
The following names have special meaning to Perl. Most punctuation names have reasonable mnemonics, or analogs in the shells. Nevertheless, if you wish to use long variable names, you need only say 以下の名前は Perl では特別な意味を持ちます。 記号的な名前の多くは記憶法があるか、シェルでの類推が可能です。 それでも長い名前を使用したい場合には use English; at the top of your program. This will alias all the short names to the long names in the current package. Some e
Perl - リファレンスの説明（２） - skaji's blog
Perl 初心者が初心者なりにリファレンスを説明してみるの２回目。前回はリファレンスを取得することと、そのリファレンスから元のものにアクセスする（デリファレンスする）方法を書いた。今回は無名配列、無名ハッシュ、無名サブルーチン、無名スカラーについて。特に無名配列、無名ハッシュについて例を挙げて説明する。 前回同様、丸括弧()、ブラケット[]、ブレース{} の違いを意識しながら読んでほしい。 目次 復習 無名配列、無名ハッシュ、無名サブルーチン、無名スカラー 例 １．復習 変数からリファレンスをとるには前にバックスラッシュ（Windows は円マーク）を付ければよかった。 my $s = "This is a pen."; my @a = ("Apple", "Orange", "Melon"); my %h = (jp => 'Japan', kr => 'South Korea'); s
Perl で "+{" は見かけるし使うけど、"{;" は見かけないし使ったことない
Perl で "{" はブロックの始まりと、無名ハッシュへのリファレンスであることの始まりが曖昧な文脈があって、後者であることを示すために "+{" という書き方がある。 このことが話題になったので、あらためて perlref を読んでみたら "{;" という書き方を発見。こちらはブロックであることを明示する時に使う。 以下 Perl 5.14.2 の prelref より抜粋。結果も 5.14.2 で確認。 sub hashem { { @_ } } # silently wrong sub hashem { +{ @_ } } # ok sub hashem { return { @_ } } # ok 上からリスト、 ハッシュリファレンス、ハッシュリファレンスを返す。 sub showem { { @_ } } # ambiguous (currently ok, but may c
Perl のウェブアプリケーションのディレクトリ構成をわかりやすく説明するよ - tokuhirom's blog
ディレクターの人にわかりやすいように、Amon2 をつかった一般的なプログラムのディレクトリ構成をわかりやすく説明していくよ。
書き捨てスクリプトを書くときに便利なモジュールとPragmatic Module - Articles Advent Calendar 2010 Casual
先月末から原稿を書こう書こうと延ばし延ばしきて当日に書いている私ことpunytanです。 みなさん、書き捨てスクリプト書いてますか？書いてますよね。 書き捨てのつもりがいつの間にかオプションを取るようになっていて、使うときに「オプションなんだっけ…?」なんてことよくありますよね。ありますね。 そんなときは Getopt::Long と Pod::Usage を組み合わせて使うと POD で Usage を書く事ができます。便利！ use Getopt::Long; use Pod::Usage; my $man = 0; my $help = 0; GetOptions('help|?' => \$help, man => \$man) or pod2usage(2); pod2usage(1) if $help; pod2usage(-exitstatus => 0, -verbose
DBIx::Tracerを使って流れているSQLのテストをしてみた話 - $shibayu36->blog;
DBIx::QueryLogを使ってちゃんとSQLが流れているかテストする - $shibayu36->blog;で、流れているSQLをテストしたいと言う話をしたら、tokuhiromさんにDBIx::Tracerを使えばもう少しシンプルにかけると言われたので、やってみました。 (再掲) テストしたい状況 package My::DBI; use strict; use warnings; use DBI; sub connect { my ($dsn, $username, $password) = @_; my $dbh = DBI->connect($dsn, $username, $password, { Callbacks => { connected => sub { my $dbh = shift; $dbh->do("SET NAMES utf8") or warn $db
create pure perl extlib/ with cpanm/local::lib - tokuhirom's blog
http://github.com/tokuhirom/cpanminus/compare/no-xs local::lib を利用して extlib/ を構築する方法が最近流行りだ。cpanm とくみあわせれば、capnm -l extlib/ Plack などとすれば一発で構築できる。 しかし、こうして作成した extlib/ には XS モジュールもはいってしまってポータブルにならない。不特定多数にたいして配布したり、レンタルサーバー等にアップロードしようとおもっている場合には不適である。 (具体的には MENTA や mobirc など) そこで、cpanm -l extlib --no-xs Plack などとすると、XS がはいらないようにするオプションをかんがえてみた。特定のモジュールの場合だけ Makefile.PL/Build.PL の @ARGV に細工するという仕組み
perlbrewなperlで共通のパスを@INCに入れたい、もしくはperl実行時にごにょごにょしたい話 - （ひ）メモ
perlbrewでインストールしたperlたちの@INCは$PERLBREW_ROOT配下のディレクトリになります。おかげで互いに影響せずにモジュールを入れられるわけですが、システム全体で共通のモジュールも読ませたい局面もあります。 PERL5LIB(でパスを指定)やPERL5OPT(で-Mlib=/path/to)でもできますが、perl -MOrenoConf とした場合はまだ環境変数が評価される前なのでCan't locateと怒られてしまいます。 Ubuntuのsystem perlは /etc/perl が @INC に入っています。(確かGentooのもこんな感じだったと思います) $ perl -V ... @INC: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl
Test::Unit に Test::Tap を被せてみました - Tociyuki::Diary
Ruby の添付ライブラリ test/unit は、Java のテスト・フレームワークを範にしているようで、煩雑で軽やかさがないのが難点です。なぜ、Perl のテスト・フレームワークに倣わなかったのか、Ruby の不思議の一つだと思っています。id:dankogai さんが不満を述べるのも、わかる気がします。 ⇒ 404 Blog Not Found:Ruby beyond Rails - 書評 - まるごとRuby! RubyはPerlに比べて、余計なところでTMTOWTDIを発揮しているように思えてならない。それを一番強く感じるのがテストのフレームワークで、なんであんなに種類があるのかわからない。TAPでほぼ統一されているPerlの連帯感からすると、テスト一個のためにクラスを書かせるなんて、間違った傲慢(false form of hubris)にしか感じられないのだが。 もっとも、賢
Dist::Maker覚書 - Islands in the byte stream (legacy)
h2xsからModule::Starter、Module::Setupといろいろなディストリ生成ツールを使ってきましたが、ここ半年ほどはDist::Makerという自作ツールを使っています。特にCPANにリリースするつもりはなかったのですが、Dist::Makerが良い。で紹介してもらったのでちょっと手を加えてリリース準備中です*1。 基本的な使い方は上記エントリにあるので以下は捕捉です。 サブコマンド 新しいディストリはinitで作ります。最近はinitのあとで自動的に`perl Makefile.PL && make manifest`をしてくれるようになりました。この挙動は`dim config template.dist_init 0`で抑制できます。 また、newで新しいファイルを作ることができます。これは、作成しようとしているファイルの名前に近いものを基本テンプレートから探し出
Perl tutorial
Perl tutorial Introduction Installing and getting started with Perl The Hash-bang line, or how to make a Perl scripts executable on Linux Perl Editor How to get Help for Perl? Perl on the command line Core Perl documentation and CPAN module documentation POD - Plain Old Documentation Debugging Perl scripts Scalars Common Warnings and Error messages in Perl Prompt, read from STDIN, read from the ke
CoroとthreadsとForkManagerでウェブページ取得の比較をしてみた – taichino.com
以前Coroで効率よくスクレイピングなどと書いたんですが、恥ずかしながら書いた時はCoroがコルーチンを意味しているとは知らず、マルチスレッドを扱うライブラリだと認識していました。もう少し理解したいという事で、以下の３つの方法で並列にHTTPリクエストを発行して、その比較を行ってみました。 Coroによるマルチスレッド処理 threadsによるマルチスレッド処理 ForkManagerによるマルチプロセス処理 テストしてみたのは以下のコードです。Coroだけ別なのはCoro::LWPをインポートすると、LWPが全部Coro仕様に上書きされる為です。処理は、はてなブックマークのホットエントリのリストを取得して、リストのそれぞれのページへアクセスしてタイトルを取得するというものです。 #!/usr/bin/perl use strict; use warnings; use Perl6::Sa
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl RDBMS Programming(DBI/DBIx::Sunnyのはなし)
/articles/advent-calendar/2011/test
https://project.kayac.com/np/478e29d9a7
bayashi.jp