Module-StarterをModule-Installに対応させる - 日向夏特殊応援部隊
Module-Starter-1.75 - a simple starter kit for any module - metacpan.orgって今のバージョンは1.42で、2005年にリリースされた物です。DEVELOPER RELEASEとして1.43_01が出ている物の、一向に更新が無いままです。 1.43_01では確かModule::Install対応してたはずなんですが、他のpluginが上手く動作しなかったはず。 まぁ、Makefile.PLだけなんで、Template-Toolkitの機能を使えば簡単に出来るよって事で。 use strict; use warnings; use inc::Module::Install; name('[% main_module.replace('::', '-') %]'); author('[% self.author %] <[%
DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ
以前からブログに書こうかどうか迷っていたものです。 DBIx::Class::UTF8Columnsでできるんですが、カラムを指定するのが面倒。 MySchemaはDBIx::Class::Schema::Loaderで自動生成してることもあって、あんまりMySchema/*をいじりたくない。 というわけで、inflate/deflate（DBIx::Class::InflateColumn）でやってます。 もっと簡単な方法あるんじゃないかなあ、と思って改めてCPANを探してみたのですがしっくりくるものが見当たらず。 とりあえず晒しておきます。 package MyApp::Model::MyModel; use base qw(Catalyst::Model::DBIC::Schema); my $inflate_utf8 = sub { my $value = shift; if (
![DBIx::Class経由で取得する文字列にUTF-8 flagを付けたい[Catalyst] - ヒルズで働く@robarioの技ログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/68ea46100618cdf944003220464adecb1ecb6198/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127100682843%2F17680117127100696989%2F1556721975)
ithreads でスレッドプール - naoyaのはてなダイアリー
マルチスレッドなサーバー実装を色々模索していて、Perl の ithreads で遊ぶ。ithreads は Linux の pthread にリンクさせた perl なら一応 NPTL で動いてくれるので、pthread アプリケーションの設計を試すのにも良い。 試しににやってみたのは、たとえば mod_perl とかで重い SQL でブロックするのが嫌なときとかにそれを別プロセスに丸投げしてやる、その丸投げされる側のサーバー実装。(やりたいことだけに関して言うと、TheSchwartz に似てる) クライアントとサーバーの IPC は UNIX ドメインソケット メッセージングのプロトコルは JSON サーバーはクライアントからのリクエストをバッファリングしたら、SQL を実行する前にクライアントとの接続を切断 この時点でクライアントは制御が戻る サーバーは内部ではフロントエンド /
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
最速インターフェース研究会 :: TemplateToolkitでハッシュを使う時の注意
http://naoya.g.hatena.ne.jp/naoya/20070828/1188305840 ハッシュのキーの先頭が_だと取れなくなる、って話だけど、 それライブドアの社内IRCで去年の9月11日に散々既出のネタだよ。 ハッシュキーの先頭が.か_だとプライベートになって、itemだと取れなくなる。これはTTの仕様。 回避したいときは自前でプライベート関係なく値を取れるメソッドを定義してやればOK。 http://www.template-toolkit.org/pipermail/templates/2006-January/008206.html バージョンごとの検証とかしてないけど多分これで平気なはず。
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
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
Web::Scraper ? SlideShare
The document discusses practical web scraping using the Web::Scraper module in Perl. It provides an example of scraping the current UTC time from a website using regular expressions, then refactors it to use Web::Scraper for a more robust and maintainable approach. Key advantages of Web::Scraper include using CSS selectors and XPath to be less fragile, and proper handling of HTML encoding.
Module::Refresh とモジュールのダイナミックロードの相性 - daily dayflower
以前（⇒【永続化Perlでモジュールの再読み込み ⇒ Module::Refresh - daily dayflower】）の積み残し課題です。 main.cgi が MyApp::Runner を呼び，MyApp::Runner が MyApp::App をダイナミックロードして実行し，戻り値を表示する CGI です。 CGI は #!/usr/bin/perl use strict; use Module::Refresh; Module::Refresh->refresh(); use MyApp::Runner; MyApp::Runner->run('MyApp::App'); ローダクラスは package MyApp::Runner; use strict; sub load_module { my ($class, $target) = @_; eval "require
สล็อตเว็บตรง ไม่ผ่านเอเย่นต์ แท้ 100% แตกหนัก RTP สูง ที่สุด 2024
ผู้เล่นในไทย ณ ตอนนี้กำลังมองหาเกมสล็อต ที่ได้รับเสียงตอบรับจากผู้เล่นมากมาย โดยมีเว็บใหม่ๆ เกิดขึ้นมากทำให้คุณอาจเลือกไม่ถูกว่าควรจะเล่นเว็บไหน จึงได้มี สล็อตเว็บตรง ที่นำเข้ามาจากต่างประเทศ โดยไม่ผ่านเอเย่นต์แน่นอน 100% เป็นเว็บที่นำเกมจากผู้พัฒนามาเปิดให้บริการกับคุณได้เล่น โดยไม่มีการปรับแตก หรือการปรับเปลี่ยนตัวเกม ทำให้โอกาสแตกโบนัสเป็นไปตามผู้พัฒนาได้ทำขึ้นมา ดังนั้นคุณจึงไม่ต้องห่วงหรือกัง
URIとURI::Escapeのurlencodeについて (2) - 日向夏特殊応援部隊
d:id:ZIGOROu:20070824:1187943710の続き。 ちなみにそのブクマコメントで、個人情報もネタにするハム一さん事、id:nipotanさんが答えを書いてました。 調べちゃったお！！！＞＜ URIモジュールの場合 httpと言うschemeの場合は、あれこれ経てURI::httpオブジェクトになります。 URI::httpって、こんな継承ツリーになってます。 +-----+ +-------------+ | URI | | URI::_query | +-----+ +-------------+ \'-------v---\' +---------------+ | URI::_generic | +---------------+ | +--------------+ | URI::_server | +--------------+ | +----------
URIとURI::Escapeのurlencodeについて (1) - 日向夏特殊応援部隊
ソース #!/usr/bin/perl use strict; use warnings; use URI; use URI::Escape qw(); local $\ = "\n"; my $uri = URI->new("http://d.hatena.ne.jp/ZIGOROu/"); $uri->query_form("key=a b c d e"); print $uri->query; print URI::Escape::uri_escape("key=a b c d e"); 結果 $ perl ~/tmp/uri.pl key%3Da+b+c+d+e= key%3Da%20b%20c%20d%20eなにぃぃぃぃ！ URI, URI::Escape共に同じディストリビューションなのにっ！
メモリを食いまくるプロセスがメモリ使用量に与える影響をtopで追う
暴走してどんどんメモリを食うスクリプトが OS全体のメモリ使用量(CentOS5 ... カーネルは2.6系になる)の動作にどんな影響を与えるのか ってのを見るために以下のようなテストをしてみました。仕組みはだいたい理解してるけど、細かい数値を追ったことはなかったのでやってみました。 sshでログインして、topを立ち上げる。プロセスを見張る用意をしておく 別のsshをたちあげて、 Perlワンライナーで以下のようなプロセスを走らせる(このプロセスをtopで見張る) # 1秒ごとに5MB単位でメモリを食うプロセス # 数値はお好みで perl -e "while(1){ sleep 1; push @h , 1 x 1024 x 1024 x 5 } " ちなみにtopで見張るときは メモリ使用量でソートされるようにして top起動中に shift + o を押して n を押すと 実メモリ
はてなダイアリーで設置可能なブログパーツを判定するPerlモジュールをCPANにて公開しました - はてなダイアリー日記
はてなでは、はてなダイアリーに設置するブログパーツでJavaScriptやobjectタグ、styleタグなどで悪意のあるコードを貼り付けられないよう、入力されたコードをチェックして問題がないものを許可する仕組みを対応するブログパーツ毎に開発しております。 そのはてなダイアリーに貼り付け可能なブログパーツの判別に利用しているPerlモジュール「HTML::WidgetValidator」をCPANにアップロードして公開しました。 http://search.cpan.org/dist/HTML-WidgetValidator/ 今後、対応ブログパーツを継続的に増やしていくとともに、HTML::WidgetValidatorも定期的に更新を行っていく予定です。 なお、このモジュールは、判別に用いるパターンを、ブログパーツごとに「HTML::WidgetValidator::Widget::*
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 で作る画像類似検索システムの考察
今日はとてもショッキングな出来事がありました。あまりにショックがでかいので何かに没頭しなければ気が紛れそうにありません。と言うわけで全く専門分野でもないし当面使う予定もないのですが、１年ほど前にちょっと気になっていた画像の類似検索についていろいろ調べてみました。 どうやら ImgSeek ってソフトが結構有名らしいです。最新バージョンは 0.86 で Linux Only です。１つ前のバージョン 0.85 は Windows binary があります。 過去にいくつか画像類似検索ソフトを試したような記憶がありますが忘れてしまいました（vector でも結構類似検索ソフトありますね）。まずは windows binary 版をダウンロードしてきて実行してみました。 それなりに使えそうな予感がします。Linux 向けの imgSeek-0.8.6.tar.bz2 をダウンロードしてインストー
バージョンを指定してCPANモジュールをインストールする - ヒルズで働く@robarioの技ログ
Apache::MP3のバージョンを下げる 経由で Perl モジュールのバージョン指定インストール を知った。今までsearch.cpan.orgに行ってtarballダウンロードして展開してビルドしてインストールして、ってやっちゃってました。。。 非常に助かりマスク。 http://search.cpan.org/に行かなくてもIDを調べられるので % cpan -D Apache::MP3 # CPAN-v1.9102 Apache::MP3 ------------------------------------------------------------------------- (no description) L/LD/LDS/Apache-MP3-4.00.tar.gz Installed: CPAN: 3.06 Not up to date Lincoln D. St
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Client Challenge
Client Challenge
Client Challenge