MENTA というウェブアプリケーションフレームワークをかいてみた - TokuLog 改めB日記
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
最新版のMoxyをMacBookにインストールするまで - iDeaList::Writing
最新版Moxyをチェックアウトする(2008/10/02現在) svn co http://svn.coderepos.org/share/lang/perl/Moxy/trunk/ moxy cd moxy perl Makefile.PL Warning: prerequisite HTML::Entities::ImodePictogram 0 not found. Warning: prerequisite HTML::StickyQuery 0 not found. Warning: prerequisite HTTP::MobileAgent 0 not found. モジュールないよ！ってエラーが出るので、必要なモジュールをCPANのインストールする。 再度実行。エラーでなくなった。 perl Makefile.PL Writing Makefile for Moxy con
use Perl | White Camel Awards 2008
jmcada writes "The White Camel Awards for 2008 were just presented at OSCON. This year's winners are Jacinta Richardson, Tatsuhiko Miyagawa, and Gabor Szabo. The winners have all made significant contributions to the Perl community. Congratulations to the winners!" For ten years the Perl community has made it a point to recognize the many significant contributions made by the unsung heros of Perl.
Scalar::Util の weaken() - daily dayflower
Shibuya.pm #9 での id:lestrrat さんの発表 での質疑応答において id:dankogai 氏 weak references の実装はどのようになっていますか？ id:lestrrat 氏 あー準備してくるの忘れました。Scalar::Util の Util.xs を見てください :) というやりとりがありました。その時*1は weak reference の参照先の REFCNT を decrement している「だけ」じゃないの？ と（あさはかにも）思ったんですが，実装を調べてみました。実際には「それだけ」ではありませんでした，と。 以下 REFCNT とか MAGIC とかでてくるんで，前提条件として Shibuya.pm #9 での :lestrrat さんの発表（Perl 5 internals の世界にようこそ - daisuke maki）必聴です。
URLとXPathを渡すと値のリストを返してくれるツールを書いた - fubaはてな
jottitのほうに公式ページをつくりました。 画像一覧からXPathでぶっこぬいてダウンローダにわたす、といった用途から簡単なマイニングまでべんりにつかう予定。 つかいかた % ./exthtml.pl [ -a [AGENT] -e [REFERER] -c [COOKIE_JAR] ] -x [XPATH] [URL] % perl exthtml.pl -a Mozilla -c ~/Library/Cookies/Cookies.plist -X "//img[@class='image']/@src" http://www.tumblr.com/dashboard http://media.tumblr.com/XEVQcg9Zzaj7driiTV8baCRJ_400.gif http://media.tumblr.com/G6je7UvklaklnqmgypCVpgBg_10
mysqlにperlインタプリタを組み込んでみる - ダウンロードたけし（寅年）の日記
以前「mysqlに独自関数を組み込む（UDF）」というエントリを書いてみましたが、今回はそれの延長で、mysqlのUDFとしてperlインタプリタを組み込んでみようと言う実験です。 mysqlにperlを組み込んで何がうれしいかっていうと、簡単なperlスクリプトで自由にmysqlの関数を作れるようになります。 例えば URLリストから実際にLWPで内容を取得してきて何かの処理をした結果を表示したり perlの正規表現で任意のフィルタリング関数を書いてみたり 何かの更新処理のあとに裏でバッチ処理を走らせるためのトリガースクリプトを関数として組み込んでみたり みたいなことがmysqlの中だけでできるようになります。 車輪の再開発 実は先に述べておきますと、今回のこのアイデアですが、なんと今から５年ほど前にかの有名なBrian Aker氏がLinuxJournalにてEmbedding Per
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
YappoLogs: Perlで数有る$selfを取る手法をベンチマーク取った
Perlで数有る$selfを取る手法をベンチマーク取った PerlでOOなコード書く時のコンテキストを取る方法は色々あります、最近audreyがselfvarsをリリースしたので、gugodのself.pmとingyのSpiffyそして、既存のmy $self = shift;やshift->や$_[0]->で$selfを取る方法それぞれのベンチマークを取ってみました。 テストコードのモジュール名は、それぞれのモジュールの作者名から取り、既存の手法はYAPC::Asiaでプレゼンした事のある日本を代表するPerlな企業のCTOからモジュール名を取らせていただきました。 コードは以下の通りです。 package Audrey; use strict; use warnings; use selfvars; sub new { bless { count => 0 }, shift } sub
Acme::Youpy - Create your own youpy! - Kentaro Kuribayashi's blog
ネット中のそこかしこで目撃されているにもかかわらず、誰もそれが実際にはなんなのかを知らない……。Bus error吐いたり、寝返りで地震を起こしたり、窓の外で光ったり、youpyが人間に見えた人は、抽象化能力が高くてプログラマに向いていたり、怪しげなビデオを枕元においていったりする、謎の存在、id:youpy……。あまりにもわからなさ過ぎるので、もうこうなったらみんなで、俺の/私の考えるyoupyを作ってしまえばいいんじゃないかと思い、Google Codeを利用して、youpy作成プロジェクトを立ち上げた。 acme-youpy - Google Code また、このyoupyの活動の様子をTwitterにて観察することができる。以下をご覧いただきたい。 Twitter / acme_youpy youpyの使い方 以下、youpyの使い方を解説する。 まず、以下のようにして、svnリポ
TokuLog 改め だまってコードを書けよハゲ - ドコモでも CSS を外部参照を使える HTML::DoCoMoCSS をリリース
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
高速Webサーバ Nginxの組み込みPerlを使ってみる : blog.nomadscafe.jp
高速Webサーバ Nginxの組み込みPerlを使ってみる NginxというWebサーバがあります。 ロシアの方がつくったもので、rambler.ruでも使われてます。 日本語情報がほぼ皆無ですが、このあたりで紹介されています。 機能的には、epoll,kqueueやsendfileなどがサポートされ、 rewrite, header書き換え deflate FastCGI SSL シンプルな負荷分散付きreverse proxy 等すでにLighttpdと比較しても遜色ない十分な機能が実装されてます。 パフォーマンス的にもLighttpdと同等かそれ以上でます。 珍しい機能として、「perlインタプリタの組み込み」があるので早速試してみます。Fedora Core6ではnginxはyumでインストールできます。perl_moduleも有効になってます perl関連のドキュメントはここ。
正規表現でFizzBuzz - Unknown::Programming
1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は.. 1,2,3,…,99,100 という文字列に対して正規表現でFizzBuzzに置換するような解法は出てないかなと思ったけど(出てたらごめんなさい＞＜)、正規表現あんまり得意じゃないので私にはできません。 それはね、 use Perl6::Say; use Regexp::Assemble; my @list = (15,5,3); my %ra = map { $_ => Regexp::Assemble->new } @list; for my $i ( 1..100 ) { for( @list ) { ($i % $_) || $ra{$_}->add(qq/^$i\$/); } } my $re = sprintf "(?:%s)" ,join '|' , map { '('.$
MozRepl module released - 日向夏特殊応援部隊
先ほど反映されたようです。リリースしました。 今回は真面目にドキュメントを書いたつもりなんで、詳細はドキュメント見て頂けたらと。 podより抜粋すれば、 use strict; use warnings; use MozRepl; my $repl = MozRepl->new; $repl->setup; ### You must write it. $repl->execute(q|window.alert("Internet Explorer:<")|); print $repl->repl_inspect({ source => "window" }); print $repl->repl_search({ pattern => "^getElement", source => "document"}); なんて感じで使います。 pluginによる拡張が可能なのですが、plugin
Web::Scraper - naoyaのはてなダイアリー
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
添削その2 - jnaoyaのはてな日記
http://kokogiko.net/m/archives/001966.html 別に呼ばれてへんけど、なんかな、これはアカンと思った。 my %analyze = ( 'Pattern 1' => 'Pattern 1', 'Pattern 2' => 'Pattern 2', 'Pattern 3' => 'Pattern 3', .... 'Pattern N' => 'Pattern N', ); my @analyzekey = keys %analyze; my @analyzeval = map { $analyze{$_} } @analyzekey; my $reg = "(?:".join("|",@analyzekey).")"; $reg = qr/$reg/; while (my $log = $logs->readline()) { if (($log->{
404 Blog Not Found:perl - warn()とdie()の振る舞いを変更する
2007年04月12日01:30 カテゴリLightweight Languages perl - warn()とdie()の振る舞いを変更する こういった場合の対処法です。 shag の日記 - inetd 経由で起動されても peeraddr は取得可能 ところで Perl で inetd 起動のスクリプト書くと STDIN から入力を読み取って, STDOUT に出力すれば良いだけなんだけど、実は STDERR も inetd を通してネットワークストリームに出力されるので use warnings; する人は注意が必要です。これは、例を見てもらうのが一番速いでしょう。 #!/usr/local/bin/perl use strict; use warnings; use Fcntl; # for sysopen our $LOGFILE = 'warn.log'; warn $0;
TAKESAKO @ Yet another Cybozu Labs: [YAPC] 正規表現にフォーカスしたPerl6入門
YAPC::Asia 2007 Tokyo で発表した資料を公開しました。 Yoshinori Takesako - s/ Perl5 Regular Expression / Perl6 Regex and Rule /mixes; Perlの黒魔術の一つであった正規表現。後付の拡張を繰り返した結果、問題解決の強力な武器に成長した反面、人間にも計算機にも読みにくい諸刃の剣にもなってしまいました。そこで再設計されたのがPerl6! 正規表現の書き方がPerl5からどのように変わるのか、これからPerl6のプログラムを書いてみようという人向けにわかりやすく解説します。 Software Design 2007年2月号の巻末特別企画「先取り Perl6正規表現カタログ ～ Perl5からの変更点を徹底解説！」の記事がベースになっています。 Perl6ではPerl5からの後方互換性は考慮しなくな
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
ひおにっき(2007-05-09) - FizzBuzz
hacking perl music
Writing Pluggable Software
