メメメモモ

プログラミング、筋トレ、ゲーム、etc

2013-01-03から1日間の記事一覧

コールバックを、あるクラスのメソッドとして実行する

以下のようにすればできることを知った。 use strict; use warnings; package HogeHoge; sub fugafuga { print "fugafuga\n"; } package main; my $cb; $cb = sub { my $self = shift; print "hogehoge\n"; $self->fugafuga(); }; HogeHoge->$cb;

正規表現でURLをマッチさせる場合、エンコードする

以下のような感じで、エンコードしないとマッチしない。 use strict; use warnings; use utf8; use Encode; binmode STDOUT, ":utf8"; my $text = "テストhttp://example.com/テスト"; my $regex = q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,…