If you were to search the internet for recent articles about Perl, you might well be led to believe that the language hasn't changed in the last twenty years. And, sadly, that's a completely understandable belief as the major version number hasn't changed since 1994. In July 2000, Perl 6 was announced as the next version of Perl. Over the next several years, the scope of the project expanded until
試したのは以下。 Catalyst -- 元祖WAF Mojolicious -- 軽量WAF Dancer -- 軽量WAF Amon2 -- シンプルWAF Amon2::Lite Amon2(Flavor::Minimum) Kossy -- ISUCONのWAF Web Application Frameworkなので、HTMLの出力を測定。 またテンプレートエンジンにはText::Xslate(1.5007)、PSGIでWebサーバにはStarmanを使用した。 起動してから１回はアクセスしてテンプレートキャッシュは作った状態にした。 $ ./ab -n 1000 -c 50 http://127.0.0.1:5000/ 結果 WAF VERSION Requests per second[#/sec] (mean) Amon2Minimum (3.32(Amon2)) 1228
S3のエラーハンドリングPerl編
S3は作ったばかりのバケットを扱おうとすると、307 redirectを返すことがある。他にも http://docs.amazonwebservices.com/AmazonS3/latest/API/ErrorResponses.htmlにあるように多数のエラーレスポンスは定義されている。が、3xx系は扱えないライブラリであるLWPがメインのperlの場合 CPANに登録されているAmazon::S3とNet-Amazon-S3ではこんな対応がされている。(というかここのコメント100%同じ。ライセンス的にはokだからいいんだろう) cpansearch.perl.org/src/TIMA/Amazon-S3-0.45/lib/Amazon/S3.pm http://cpansearch.perl.org/src/PFIG/Net-Amazon-S3-0.56/lib/Net/Amaz
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
この講義の目的 明日以降、Perlの言語自体にはまらない 今日、いろいろやって、なるべくはまってください 疑問があったらどんどん質問してください 目次 Perlプログラミング勘所 Perlによるオブジェクト指向プログラミング テストを書こう ヒント 課題について Perlプログラミング勘所 質問 Perlでプログラミングをしたことがありますか? はじめに 事前課題 http://github.com/hakobe/Sorter 前提 はじめてのPerl、続はじめてのPerlに目を通している 一度はPerlでオブジェクト指向プログラミングしたことがある 事前課題でやっているはず Perlの良いところ CPAN やりたいことはすでにモジュール化されてる それCPANでできるよ 表現力が高い TMTOWTDI (やりかたはいくつもあるよ！) 実際に使われてる はてな/DeNA/NHN/mixi
NAME HTML::TokeParser - Alternative HTML::Parser interface SYNOPSIS require HTML::TokeParser; $p = HTML::TokeParser->new("index.html") || die "Can't open: $!"; $p->empty_element_tags(1); # configure its behaviour while (my $token = $p->get_token) { #... } DESCRIPTION The HTML::TokeParser is an alternative interface to the HTML::Parser class. It is an HTML::PullParser subclass with a predeclared se
C言語、Perl、JavaScript、最近はPythonも。出来上がったものより、プログラムを書くことが好き。あと、スイーツ。 Perlでtwitter APIを使ってつぶやきを検索して、 強調表示機能をつけたらすごく便利だった！ 追記(3/15):Anonymous認証にしたのでキーの取得が不要になった! CodingFirst Perlでtwitterのつぶやきを検索表示する(2) まず、Twitterが情報を得るのにいいと聞いてはいたけど、 そうとは思わず使って無かったんだけど、 地震の情報が欲しくて、Twitterで「#jishin」と検索してたら、 わんさかでてくる！ Twitterすげー！！ こっちのチャンネルで会見やってる... 電車の運行情報はここが便利... 輪番停電の情報をアップしたよ... 地震のまとめてみた！ ああ、こんなに出てくるなんて...遅れすぎだよ、自分。
Cassandraは、Thriftフレームワークを使用しているため、さまざまな言語でクライアントをコーディングすることができます。 ということで、PerlでCassandraのデータ操作を行ってみました。 Perl以外のクライアント用モジュールについては、以下を参照してください。 ClientOptions - Cassandra Wiki (モジュールインストール) CPANから"Net::Cassandra"をインストールします。 私の環境では、"Class::Accessor"と"Bit::Vector"がインストールされなかったので、別途インストールしました。 cpan> install Net::Cassandra cpan> install Class::Accessor cpan> install Bit::Vector 以下、サンプルコードです。(といっても、Net::Ca
NAME Net::Twitter - A perl interface to the Twitter API VERSION version 4.01043 SYNOPSIS use Net::Twitter; use Scalar::Util 'blessed'; # When no authentication is required: my $nt = Net::Twitter->new(legacy => 0); # As of 13-Aug-2010, Twitter requires OAuth for authenticated requests my $nt = Net::Twitter->new( traits => [qw/API::RESTv1_1/], consumer_key => $consumer_key, consumer_secret => $consu
名前¶ perlthrtut - Perlにおけるスレッドのチュートリアル 説明¶ NOTE: this tutorial describes the new Perl threading flavour introduced in Perl 5.6.0 called interpreter threads, or ithreads for short. In this model each thread runs in its own Perl interpreter, and any data sharing between threads must be explicit. 注意：このチュートリアルは、インタプリタスレッド(interpreter threads)、 あるいは短くiスレッド(ithreads)と呼ばれる、Perl 5.6.0において 導入された新しいPerlスレッドの
目的 † 元々はメール配送システムを作ろうとしていた。 そのシステムでは複数の宛先へのメール配送を1通毎に並列にやりたかったし、 スレッドが無限に増えてしまってもリソースを消費しすぎて困るのでそれを制限したかった。 また、相手サーバの事情によっては纏めて数万通とか出すと怒られるときがあるのでメールの配送ペースも調整したかった。 以上がマルチスレッドプログラミングを勉強する目的だった。 ↑ ソース † 上記条件を満たすサンプルが出来たのでメモ。 ダウンロードも出来るようにしておく。 このソースには無駄なコードや、こうした方が良かったとか思うところがいっぱいあるんだが修正するのが面倒い…。 参考にする方は、とりあえず参考にするだけして、自分で色々試して良いと思った方法をとったほうが良いです ithread_test.pl #!/usr/bin/perl use strict; use thre
2006年12月08日11:00 カテゴリLightweight Languages perl - Devel::Leak そんなあなたに、Devel::Leak。 Rauru Blog ? Blog Archive ? 循環参照 ところが Scalar::Util 使って循環参照になってるとおぼしき変数を全部 weaken してみたんだけど、DESTORY されるかどうか見てみると、1サイクル終わっても1つだけ解放されないオブジェクトが残ってる。どうしちゃるかねとゆうわけで、今度は Devel::Cycle を CPAN から取って来てインストール。ところがこれ、参照元側のオブジェクトを1個指定して循環参照を検索するもんなんですね。どれが参照元なのかわからないので、やっぱり見つからないー。ただし、肝心のLeakしているオブジェクトまで表示させるには、-DDEBUGGING付きでcompi
Superglue interface between perl web application frameworks and web servers, just like Perl is the duct tape of the internet. PSGI is an interface between Perl web applications and web servers, and Plack is a Perl module and toolkit that contains PSGI middleware, helpers and adapters to web servers. PSGI and Plack are inspired by Python's WSGI and Ruby's Rack. Documentation PSGI specification Freq
NAME Net::Twitter::Lite - A perl interface to the Twitter API VERSION version 0.12008 STOP! You probably want Net::Twitter::Lite::WithAPIv1_1 which has support for Twitter API v1.1. If you're using a service with an API compatible with Twitter's deprecated API v1, then you're in the right place. SYNOPSIS use Net::Twitter::Lite; my $nt = Net::Twitter::Lite->new( username => $user, password => $pass
#!/usr/bin/perl -w # # Standard Molodensky Datum Transformation # Nowral # 99/11/24 # # 定数 $pi = 4 * atan2(1,1); # 円周率 $rd = $pi / 180; # [ラジアン/度] # 変換したい座標 # (Tokyo) # 緯度 35°20′39.984328″ # 経度 138°35′08.086122″ # 高さ 697.681000 [m] $b = 35 + 20/60 + 39.984328/3600; # 緯度 [度] $l = 138 + 35/60 + 8.086122/3600; # 経度 [度] $h = 697.681000; # 高さ [m] print "変換前\n緯度： ",°2dms($b),"\n経度： ",°2dms($l),"\n
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
