Internals::SvREADONLY() はオススメできない - stfuawsc

2014/04/21 7 users stfuawsc Internals immutable

Immutable な hashref, arrayref たまに欲しくなりますが Internals::SvREADONLY() はクセが強すぎてあまりオススメできないです。 たとえ次のコードの挙動を言い当てられたとしても、赤の他人（≒ 半年後の自分）が見た時に分かるかどうかは怪しいかと。 use strict; use warnings; use Data::Lock 'dlock'; my ... 続きを読む

[tech] perl 5.19.9 の signatures 構文 (普通に引数を書ける構文) を試す | Mon, Feb 24. 2014 - 氾濫原 [HANRANGEN]

2014/02/24 29 users HANRANGEN tech Exp 構文 Mon

Perl 5.19.9 で実装された signatures の構文をためしてみる - blog.64p.org を見てそんなのできたのか〜と思ったので、いろいろ試してみた。なんとこれは、今までになく直感的に引数が書けてしまう革命的構文です。 use v5.19; use strict; use warnings; use feature 'signatures'; no warnings "exp... 続きを読む

chomp() は $/ に依存していると知れ！ - Islands in the byte stream

2013/11/16 35 users Chomp perldoc local スコープ 挙動

perldocにあるように、chomp()の挙動は $/ に依存します。ということは、うっかり local $/ したスコープで chomp() を行うと、何もおきません。モジュールの中ではchomp()を使わず s/\n\z//xms するのが無難でしょう。 use strict; use warnings; local $/; my $s = "Hello\n"; chomp $s; prin... 続きを読む

Hasegawa方式の CSRF対策を試してみた - tokuhirom's blog.

2013/03/04 35 users spec TOKUHIROM トークン use strict

2013-03-04 Hasegawa方式の CSRF対策を試してみた Amon2 での実装例です。 使用感としては、 * 実装はそれほどむずかしくない * トークンの保存をサーバー側でやらなくていいので楽 といったかんじ。 管理画面とかでつかってみたらよいかもしれぬ。 use strict; use warnings; use utf8; use File::Spec; use File::Ba... 続きを読む

2013/01/12:生のハッシュリファレンスを return したら遅い - bayashi.net

2013/01/12 18 users foo return usr bin $hash

生のハッシュリファレンスを return したら遅い ハッシュリファレンスは畳み込み的に定数扱いじゃなかったのね、ってのに気づいて驚いた(というのが本当に遅い原因か確定させて無いけど)。 #!/usr/bin/perl use strict; use warnings; use Benchmark qw/timethese cmpthese/; my $HASH = { foo => 123, b... 続きを読む

Amon2 が WebSocket に対応していた!! - tokuhirom's blog.

2012/08/07 31 users WebSocket TOKUHIROM Twiggy 作法

Amon2::Plugin::Web::WebSocket というプラグインをだしました。Amon2 の中で非常に簡単に web socket がつかえます。 なんかよくわからん作法とかおぼえなくてもいいので楽すぎる。。実装例は以下のとおりです。Twiggy でしかうごきません。 use strict; use warnings; use utf8; use Amon2::Lite; use Di... 続きを読む

にひりずむ::しんぷる - Data::Dumper と Data::Dump の実行速度の違い

2012/02/10 27 users Dumper コンテキスト デバッグ use strict

Data::Dump はデフォルトでそれなりに整形して表示してくれるのと、コンテキストを見てよしなに処理を変えてくれるので、スクリプトのデバッグなどに使うのはまぁまぁ便利だったりします。 が、この子は PurePerl で実装されているので実行速度が結構遅いです。 どのくらい遅いかというと use strict; use warnings; use Benchmark qw(cmpthese :h... 続きを読む

Big Sky :: Vim scriptはウェブアプリケーション記述言語やったんやー

2012/01/27 112 users Vim script Big Sky Plack vim 昨今

こんにちわ。昨今、ウェブ開発の進化はすざましいですね。PythonやPerlやJava、色んな言語で書かれていると思います。 もちろん編集にはVimを使っているかと思います。 でも編集だけ？ 違うよね！ Vim scriptはウェブアプリケーション記述言語なんだよ！ Plack::App::Vim package Plack::App::Vim; use strict; use warnings;... 続きを読む

Released FurlX::Coro! - Islands in the byte stream

2011/06/25 12 users Coro Usage perl Furl ARGV

Coroを使うと簡単にFurlで並列HTTP通信が出来ます。 #!perl # usage: http-ping.pl [urls...] use strict; use warnings; use Coro; use Coro::Select; # Furlよりも先にロードすること！ use Furl; my @coros; foreach my $url(@ARGV) { push @coro... 続きを読む

一定時間ログを吐かないとイスが飛ぶ Log::Minimal::FlyingChair というモジュールを作りました - (ひ)メモ

2011/06/10 37 users Minimal encoding std sleep log

sfujiwara package Log::Minimal::FlyingChair; use strict; use warnings; use utf8; use open IO => ':encoding(utf-8)', ':std'; use Log::Minimal; use Time::HiRes qw(sleep); our $VERSION = '0.01_01'; our $... 続きを読む

404 Blog Not Found:perl & javascript - PNGにテキストを埋め込む

2010/09/04 81 users perl Demo usr input bin

$('#demo0 input').click(function(){ $('#demo0dst').text(showTextInPNG($('#demo0img').get(0))); }); Perlでテキストを取り出すソースコードは以下のとおり。 #!/usr/bin/env perl use strict; use warnings; use Imager; use autodie; m... 続きを読む

Win32::GuiTest で Windows の GUI アプリをハックしよう

2008/12/11 239 users dis GUI おまじない use strict all

基本的な書き方 use strict; use warnings; use utf8; # ↑ Perl ハッカーに DIS られなくなるおまじない # Win32::GuiTest を使うおまじない use Win32::GuiTest qw(:ALL); # 日本語を使えるようにするおまじない UnicodeSemantics(1); # ここで Win32::GuiTest を使う マウスを... 続きを読む