PerlモジュールFurlから学ぶ省エネコーディング | hirobanex.net
いいなーと思ったPerlの書き方を「軽量で速い URL fecher」というFurlの0.32バージョンから簡単にピックアップしていきます。Furlを使うこと自体がエコですね。また、使う側の労力としていろいろなPerlハック的なものを覚えておく大変省エネですね。 Furlから学ぶPerlコーディング ハッシュリファレンスでもハッシュでも渡せる気遣い #Furl::HTTP l.40 sub new { my $class = shift; my %args = @_ == 1 ? %{$_[0]} : @_; ... } #使う側 ハッシュ Furl::HTTP->new( GET => 'http://yahoo.co.jp/', timeout => 30, ); #使う側 ハッシュリファレンス my $args = +{ GET => 'http://yahoo.co.jp/', t
diff - Wikipedia
この項目では、2つのファイルを比べる表示プログラムについて説明しています。コミュニティのブログについては「m:Diff (blog)」をご覧ください。 diff（ディフ）は、ファイルの比較を行うためのコマンドで2つのファイル間の違いを出力できるプログラム。diffプログラムは行単位でテキストファイル間の差異を表示する。最近の実装ではバイナリファイルもサポートしている。プログラムからの出力も「diff」（ディフ）と呼ばれるが出力をそのままpatchプログラムで適用できるため、「patch」（パッチ）との呼称も一般的である。また、diffコマンド以外からの出力であっても差分表示プログラムの出力はdiffと呼ばれることがある。"grep"が文字列探索そのものの代名詞になっているように、"diff"という語も差分検出一般を指すジャーゴンとなっている。 diffプログラムは1970年代初頭に、ニュー
Mojolicious + Xslate + SkinnyでMVC開発環境 - $shibayu36->blog;
Perlには非常に多くのフレームワークがあります。非常に大きいものにはCatalystやJifty、小さいものにはMojolicious、CGI::Application、HTTP::Engine、Dancerなどがあります。今Perlではフルスタックのフレームワークを使うよりも、小さいものを組み合わせてWebアプリケーションをつくっていくほうが流行っていると思うので、「小さいものを組み合わせ」ながらMVCで開発できるような環境を考えてみました。 今回はWAFとしてMojoliciousを、テンプレートエンジンとしてText::Xslateを、O/RマッパーとしてDBIx::Skinnyを用いて、MVCでWebアプリケーションを作る方法について順を追って解説します。 それぞれの簡単な説明 Mojoliciousとは SimpleなMVCのWebフレームワーク。軽いプロジェクトならMojol
Perl で拡張可能なモジュールをかくときに s/^\+// ? $_ : __PACKAGE__ . '::Plugin::$_' とした方がいい理由 - tokuhirom's blog
Data::Validator のコードの中にこんなのがあった。 sub with { my($self, @roles) = @_; foreach my $role(@roles) { next if ref $role; $role = Mouse::Util::load_first_existing_class( __PACKAGE__ . '::Role::' . $role, $role, ); } Mouse::Util::apply_all_roles($self, @roles); return $self; } この場合、やはり s/^\+// ? $_ : __PACKAGE__ . '::Plugin::$_' のイディオムをつかった方が問題がすくないようにおもう。たとえば、Data::Validator::Role::JSON っていう拡張があったとしよう(実際に
日本の休日をPerlから求める | へぼい日記
日本の休日には「国民の祝日」と「振替休日」と「国民の休日」ってのがあるのですがそれをPerlから求めるにはどうしたらいいんだという話。 #perl-casualでたずねたところいろいろと方法を教えてもらいました。 定番ネタだし、それ三週目といわれたりしたのでまとめてみますたという流れ。 そもそも休日というのは法律で決められるものなので、改正もあり最近だと2005年に改正があったりしています。 また、「国民の祝日」の中には「春分の日」や「秋分の日」のように翌年分を2月に官報で発表なんてものもあったりします。 やっかいですね。 CPANモジュールを使う Calendar::Japanese::Holiday 最終更新日が2007年なようですが use Calendar::Japanese::Holiday; say isHoliday(2011, 3, 21); say isHoliday(2
にひりずむ::しんぷる - return で返る複数の値は 配列ではない
return で複数の値を返す場合、配列ではなく、リストとして返る。スカラコンテキストで評価した場合、最後の値が返って来るので注意が必要である。 あんまり正確じゃなかったので＞＜ 16:01 (miyagawa) ( ... ) とか qw( ... ) ってのは「リスト」 16:02 (miyagawa) それを @foo て変数にいれると配列になる 16:02 (miyagawa) my $x = qw( a b c ); 16:03 (miyagawa) http://perldoc.perl.org/perldata.html#List-value-constructors 16:04 (tokuhirom) scalar(qw/a b c/) と scalar(@x=qw/a b c/) のちがいかな というわけで $ perl -E '$x = qw(a b c); say $
Kazuho@Cybozu Labs: (Twitter の XSS 脆弱性に関連して) 構造化テキストの正しいエスケープ手法について
昨日の Twitter の XSS 騒ぎは、まだ皆さんの記憶に新しいことと思います。いい機会なので、ツイートのような構造化テキストのエスケープ手法について触れておきたいと思います。 Twitter のメッセージは、単なる平文（プレインテキスト）ではなく、「@英数字」のような他のユーザーへの言及と「http://〜」のような URL を自動的にハイパーリンク化する構造化テキストです。 このような複数のルールをもつ構造化テキストを HTML 化する際には、どのようなコードを書けばいいのでしょう？ まず「@〜」をリンク化してから、URL をリンク化すればいいのでしょうか？ それだと、@〜 のをリンク化した A HREF タグの中の URL がさらにリンク化されていまいますね。 では、URL をリンク化してから @〜 をリンク化すればいいのでしょうか？ それだと、@ を含む URL があった場合に
autolink.yml at master from mzsanford's twitter-text-conformance - GitHub
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
perlの0e0は真だけど0
HOP3章終了。 "0e0"の使いどころがなかなか。 論理演算 $ "0e0" || 1 0e0 $ 0 || 1 1 真と判定、で演算してみる。 $ "0e0" * 5 0 $ "0e0" + 5 5 $ "0e0" - 5 -5 数値だ $ "0e0" == 0 1 $ "0e0" eq 0 論理演算で真を返すのに0 で、これがどう便利かというと $cached{$key} ||= make_cache($key) キャッシュに0が入ってる場合偽と判定されてしまい、キャッシュがあるのに再計算してしまうのだけど"0e0"を入れておくときちんとキャッシュが効くと。
DBIx::Skinny->search_by_sql の第三引数について - tokuhirom's blog
$skinny->search_by_sql の引数は、コードをみると $skinny->search_by_sql($sql, [$bind, [$opt_table_info]]) だとおもうのだが、$opt_table_info にかんするドキュメントが DBIx/Skinny.pm にみあたらない。 で、コードをおったかんじだと、 $skinny->search_by_sql(q{SELECT foo.* FROM foo INNER JOIN (bar.foo_id=foo.id) WHERE foo.baz=?}, [1], 'foo'); のようにして利用可能であるようにみえるのだが、こういった使い方は document されていない(ちょっとみたかぎりでは)。 あと、DBIx::Skinny は昔にくらべるとだいぶドキュメントがふえているのだが、いかんせん引数の情報とかがド
ハッシュの初期化の注意点 - すぎゃーんメモ
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $hashref = { hoge => 100, fuga => 200, piyo => 300, }; print Dumper $hashref; と、ハッシュ初期化時にkeyとvalueの組み合わせをまとめて指定することがあると思います。 $ perl hoge.pl $VAR1 = { 'piyo' => 300, 'fuga' => 200, 'hoge' => 100 }; ここで、valueの部分にサブルーチンやメソッドからの返り値を入れるようにするときに注意。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $hashref = { hoge => 100, fuga
『Perl リスト内の重複を削除する』
Perlでリスト内の同じ値を取り除きたい場合は、ハッシュを使えば簡単にできます。 my @array = qw(a b a d d d c); my %hash = (); foreach (@array) { $hash{$_}++; } my @unique = keys %hash; foreach 内の $hash{$_}++ は 重複をカウントしていますが、$hash{$_}=1 で重複をカウント しなくてもよいですね。 重複を取り除く方法は、perlfaq に、いくつか方法が記載されています。 %perldoc -q duplicate mapを用いた方法 my %hash = map { $_, 1 } @array; my @unique = keys %hash; ハッシュスライスを用いた方法 my %hash; @hash{ @array } = (); my @uni
Perlで日本語文字列が文字化けしてるかどうか推測する＆修復する - ＊「ふっかつのじゅもんがちがいます。」withぬこ
ちょっと最近Buzzurlに自作スクリプトか何かで、大量の二重エンコード文字列を含むブックマークが投稿されたので対策のために調べてみたことのまとめ。<追記>id:miyagawaさんのブクマで Encode::DoubleEncodedUTF8 というモジュールを教えてもらいました。調べたら作者もid:miyagawaさん。二重エンコード是正にはこちらを使うようにしましょう。 でもこれ"二重エンコード perl utf8"とかでぐぐったけど見つからなかった…。id:miyagawaさんのブログとかもっと検索に引っかかるべきだと思うのだが。 PerlでUTF8文字列を使うときの原則 PerlでUTF8文字列を扱うならば、Encodeの神であるところのid:dankogaiが何度も何度も口をすっぱくして言っている次の原則に従わなければならない。そうしないとすごく不愉快な目にあう。 入り口で d
#perl and more - $_ とスコープ : 404 Blog Not Found
2009年11月01日22:30 カテゴリLightweight Languages #perl and more - $_ とスコープ 良記事は補足して育てよう。 現代的なPerlの記述方法一覧 + α - Perl入門〜サンプルコードによるPerl入門〜 補足するのは、$_の使いどころについて。 実はこうすることで、$_の使用は暗示的なものも含めてすべてトラップすることが出来る。 use strict; use warnings; { package _; use Carp; sub TIESCALAR { bless {}, shift } sub FETCH { croak q(Don't you dare get $_) } sub STORE { croak q(Don't you dare set $_) } } tie $_, "_"; $_ = 1; 明示的なものだけでは
MovabletypeベースでAmazonアソシエイトリンクジェネレーターアプリを構築 - WEBデザイン BLOG
MovabletypeをベースにしてAmazonアソシエイトリンクジェネレーター AmaPOPを構築中です。なんとか使えるような形になってきましたのでお知らせです。Movabletypeであれば、こうしたアプリのようなものを手軽にアタッチできる（プラグイン）ことがわかりました。いまさらながら驚いています。AmaPOPの紹介他、アプリ構築でいろいろと思ったことなども書いてみました。 ここ10日間ほど、MTベースでのアプリみたいなものAmazonアソシエイトリンクジェネレーターを構築しています。Model（MT::Object）を実装していないので、Cotroller、Viewのみ。 AmaPOP - amazon affiliate link generator - WEBデザイン BLOG モデルはamazletツールです。どうもCatalystで構築されているみたいですね。参考にできると
#perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 : 404 Blog Not Found
2009年09月13日13:00 カテゴリLightweight Languages #perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 駄目です。 [を] Perl の utf8 まわりのおまじない 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); こういう場合は、Encode::decode_utf8()でないと。 以下をごらんください。 #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
#perl #regexp - $utf8 =~ /.../i # の傾向と対策 : 404 Blog Not Found
2009年10月01日18:00 カテゴリLightweight Languages書評/画評/品評 #perl #regexp - $utf8 =~ /.../i # の傾向と対策 というわけで、その傾向と対策を。 [Perl]UTF8-flagged strings affects regexps with the "i" modifier - use GFx::WebLog; Perlではutf8フラグ付きの文字列に対するuc/lc/"i"正規表現修飾子は非常に遅いのだが，H::F::Liteでは/iを使っているので，試しに/iを使わないようにしてみると，速度が改善した id:gfxの主張は、以下のようにして確かに確かめられる。 use strict; use warnings; use Benchmark qw/cmpthese timethese/; { use bytes; m
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl/Perl入出力 - もいもいの技術めも
生島 勘富SQL講座
