Acme::EyeDrops使ってみた

Acme::EyeDropsという素敵なモジュールを使って、見事Acmeれました。

''=~('('.'?'.'{'.('`'|'%').('['^'-').
('`'|'!').('`'|',').'"'.('['^('+')).(
'['^')').('`'|')').('`'|'.').('['^'/'
).(                               '{'
^((                               '['
)))                               .((
(((      '\\'))))).'"'.           (((
'{'     ))^',').(('`')|  '%')     .+(
'`'   |',').('`'|'#'   ).("\`"|   '/'
).(   '`'|            '-').('`'   |((
'%'   ))).            ('{'^'[')   .+(
'['   ^'/'   ).(     '`'|'/').(   '{'
^((   '[')   )).(   "\`"|  '#')   .+(
'`'   |'/'   ).('`'|'$')   .''.   (((
'`'   ))|+   '%').('`'     |'#'   ).(
'`'   |'('   ).('`'|'%'    ).+(   '`'
|((   '#')   )).('`'|'+')  .'.'   .+(
'`'   |')'                 ).+(   '`'
|((   '.')                 )).+   '!'
.((   '\\')).'\\'.('`'|'.').''.   (((
(((   '\\'))))))."\"".   ';'.(    '!'
^((      '+'))).'"'."\}".  ((     ')'
)))                               ;$:
=((                               '.'
))^                               '~'
;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,=
'('^'}';$\='`'|'!';$:=')'^'}';$~='*'|
'`';$^='+'^'_';$/='&'|'@';$,='['&'~';

使い方は上記をa.plとか適当な名前で保存して、

perl a.pl

です。

Welcome!

正規表現に迷ったらRegexp::Assemble

perl -MRegexp::Assemble -E "say Regexp::Assemble->new->add('ab+c')->add('ab+-')->add('a\w\d+')->add('a\d+')->re"

って感じのワンライナーが使える事にたった今気づきました。
上記を実行すると、

(?-xism:a(?:\w?\d+|b+[-c]))

って感じで出力されるので、

$hoge =~ /(?-xism:a(?:\w?\d+|b+[-c]))/

みたいな感じですぐに使えます。

こんなんまでワンライナーでいけるってのが面白いですよねー。

pQuery

Deliciousで知ったのですが、jQueryのPerl版、その名もpQueryってモジュールがあるようです。
なんだよそれ使えばワンライナーでスクレイピングとか出来るのけ？とか思って書いてみたらあっさり出来た。

$ perl -MpQuery -e 'pQuery("http://blog.cohtan.org")->find("h3")->each( sub { print pQuery( $_ )->text() . "\n"; });'

こんな感じで動かせた。おもしろいー。
参考：面白そうだったのでpQueryを使ってみたよ！