週末はこれ!柔らか~&うまみたっぷり!焼くときに飛び散りにくい特製もみだれの焼き肉と秋野菜のグリルで決まり!
![ライブドアブログ|無料で豊富な機能が充実](https://cdn-ak-scissors.b.st-hatena.com/image/square/ff3cc3357ab3e86b4452243dc364c203499b26bd/height=288;version=1;width=512/https%3A%2F%2Fblog.livedoor.com%2Fblog_portal%2Fpc%2Fimg%2Fv3%2Fcommon%2Fblog_OGP.png)
HTML::FillInFormを正規表現ベースで再実装したHTML::FillInForm::LiteってのがCPANにリリースされてます。 なかなか爽快ですね。HTML::FillInFormはHTML::Parserを利用しているので無駄な部分が多かったのがデメリットだったわけで。 ドキュメントには2倍近く高速になると書いてたので一応ベンチを取ってみました。 use Benchmark qw(cmpthese timethese :hireswallclock); use HTML::FillInForm; use HTML::FillInForm::Lite; my $str = q{ <form> <input type="text" name="text_data1" value="" > <input type="text" name="text_data2" value="
ActiveSupport equivalent to Perlで知ったautoboxがかっこいい。上のmiyagawaさんのコードを引用させてもらうと、DateTimeオブジェクトの生成が use autobox; use autobox::DateTime::Duration; print 1->day->ago, "\n"; # 2008-01-14T23:25:53 print 2->minutes->from_now, "\n"; # 2008-01-15T23:28:20 というようにActiveSupportっぽく書けたりする。autoboxを使ったモジュールは結構簡単にかけるので、以下のように使える、autobox::URI::Fetchを書いてみた。 my $res = 'http://d.hatena.ne.jp'->fetch; # URI::Fetch::Respo
とりあえず WWW::Google::Notebook っていうのを作った。 WWW-Google-Notebook-0.01 - Perl interface for Google Notebook - metacpan.org http://d.hatena.ne.jp/bonar/20061002/1159745024 で紹介されている Python の Google Notebook のライブラリを見て、Firebug で解析しながら作った。 Firebug サイコウ。 で、インストールして、こんなスクリプトをどっかにおいておく。 #!/usr/local/bin/perl use strict; use warnings; use Encode; use Encode::Guess qw(utf8 euc-jp shiftjis 7bit-jis); use WWW::Googl
以前からCPANで公開していたモジュールがあるんですが、日本語での解説ドキュメントがなかったのと、最近大幅にブラッシュアップしたので、せっかくなので紹介記事を書きます。 HTML::Feature - Extract Feature Sentences From HTML Documents 「えいちてぃえむえる::ふぃーちゃー」と読みます。 ブログやニュース記事など様々なHTML文書から「重要部分」を推測して抽出してくれる perl モジュールです。 「重要部分」とはいわゆる「本文」のことですね。本文抽出とか焦点抽出とか色々な言い方があるかと思いますが、まぁ要するに特徴的な部分を推測して抽出するわけです。 どういうものか。 例えばブログ記事からヘッダーやフッター、その他のナビゲーションブロックを除いた「記事らしき部分」だけを切り取りたい、とします。 ぱっと思いつくのは「特定のコメントタグ
PERLSUPPORT perlsupport.txt Perl Support October 25 2011 Perl Support perl-support perlsupport Plugin version 4.14 for Vim version 7.0 and above Fritz Mehner <mehner.fritz@web.de> Perl Support implements a Perl-IDE for Vim/gVim. It is written to considerably speed up writing code in a consistent style. This is done by inserting complete statements, comments, idioms, code snippets, templates, and P
Perl-Support is written to considerably speed up writing code in a consistent style, as well as to help with other often performed tasks: - insert various types of comments - insert complete but empty statements (e.g. 'if {} else {}' ) - insert often used code snippets (e.g. declarations, the opening of files, .. ) - insert the names of file tests, character classes, special Perl-variables and POS
こんにちは、編集マンの久次です。 なんだかPerlのWeb::Scraperが便利すぎで、やばいです。 これまでWWW::Mechanizeでごにょごにょやっていたのですが、一気にいろんなものが解決しました。 それで、いろいろ書いていたら、HTML::TreeBuilderのlook_downというメソッドも強力なことにいまさらながら、気づいたので勉強がてら、ためしにコードを書いてみました。 Webの自動制御に今日も夢が広がる…。 <参考> Web::Scraper - Web Scraping Toolkit inspired by Scrapi - search.cpan.org naoyaのはてなダイアリー - Web::Scraper ブログが続かないわけ | Web::Scraper 使い方(超入門) Web::Scraper超便利 scrAPI Cheat Sheet
HTTP::Daemon forkしないので、1個詰まると後続のリクエストは待たされる。 HTTP::Simple::Server デフォルトではforkしない。 HTTP::Simple::Server + Net::Server::Fork forkするので多重化可能。が、リクエストごとに新しいプロセスをforkしちゃう。 HTTP::Simple::Server + Net::Server::PreFork forkするので多重化可能。pre-forkするのでプロセスは使いまわせる。 Net::HTTPServer type=>'forking'でpre-forkする。 URLのパスと関数をマッピングできるのもよさげ。 PerlBal Danga::Socketベースなので、IO多重化(epollとか)な実装。(だと思うす) POE::Component::Server::HTTP
※ 例文中の個人名などは架空のものです。 やりたいこと 人によって自転車の色は異なる。色の情報は外部のデータファイルとかDBとかにある。色の情報は最初に調べておいて、聞かれたらすぐに答えられるようにしておきたい。 やれることは全部やりたい。 やったこと 妥当かどうかわからないすけどやったこと。 Pluginが呼ばれる前に外部データを読むとかの初期化処理をしたい。でもってその初期化処理は、Pluginされたエッジクラスに応じて変化させたい。 エッジクラス (NaoyaとかKanjiManとか) で、config に { injected => __PACKAGE__ } を詰める。 __PACKAGE__->class_component_reinitialize(config => $config); でセットする。 __PACKAGE__->class_component_reiniti
追記: 元のソースを愚直に書き写しただけなのでRubyっぽくないです。 ちゃんとしたのがciされたようなので用済みです! http://code.sixapart.com/svn/gearman/trunk/api/ruby/lib/ http://dan-erat.livejournal.com/83941.html ---- http://la.ma.la/misc/ruby/gearman/util.rb http://la.ma.la/misc/ruby/gearman/worker.rb RubyでGearmanのWorkerを書いて。 require 'gearman/worker' worker = Gearman::Worker.new worker.debug = 1 worker.job_servers("127.0.0.1") worker.register_func
管理者の重要な仕事のひとつに、テストがあります。新しいシステムのテスト、H/W、 OSやソフトウェアなどの移行にともなうテスト、過去に発生したミスの再発防止テストなどいろいろなテストありますが、目的はシステムが要件通りに稼働し続けることの保証です。今回は、テストの自動化を取り上げます。 テストの自動化 安定したシステムにテストは欠かせませんが、みなさんの環境ではどのようにテストをしているでしょうか。手順がExcelに並べられているだけだったりしませんか。ミスが起きたら、再度同じミスをしないためのテストをしていますか。ミスが起きない、もしくはミスがあってもできるだけ迅速に検知できることをテストで保証できているでしょうか。 以前ファイアーウォールの移行作業をしたのですが、製品のベンダが異なるためACLの記法も異なり、設計思想も異なっていため、簡単にはACLを移行することができませんでした。AC
先日、奥さんの要望によりCache::AdaptiveをCGI::Applicationで使いやすくするプラグインを書きました。 現在はversion 0.03でCPANにCGI::Application::Plugin::Cache::Adaptiveとしてアップされています。 Cache::Adaptive自体については、CPANのドキュメントないしは、奥さんの下記の関連エントリをご覧下さい。 負荷に応じてキャッシュを自動調節する Perl モジュール Cache::Adaptive の使い方 Cache::Adaptiveを簡単に使う方法 使い方や実装方法について簡単に説明してみようと思います。 cache_adaptive()による準備 sub setup { my $self = shift; ### snip $self->cache_adaptive({ backend =>
ack is a grep-like source code search tool. The latest version of ack is v3.7.0, released 2023-02-25. Designed for programmers with large heterogeneous trees of source code, ack is written in portable Perl 5 and takes advantage of the power of Perl's regular expressions. What's new in ack? New --not option The new repeatable --not option lets you get more precise matches. If you want to search for
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
はじめに はじめまして。大沢と申します。 この連載では、筆者が実装したCPANモジュールのClass::Componentを題材にしつつ、近代的なPerlでのプラガブル(拡張可能)なソフトウェアの実装方法を紹介します。 今回は、Class::Componentの概要を説明します。 本連載で使うサンプルアプリケーション 本連載では、プラガブルなモジュールを作製するという事を考えて、Gopperというサンプルアプリケーションを元に解説を行ないます。 GopperはCodeRepos上のsvnリポジトリに置いてあるので各自checkoutしてください。 svn co -r 271 http://svn.coderepos.org/share/lang/perl/Gopper/trunk Gopper サンプルアプリケーションは連載中にも頻繁にupdateされる事が予想されますので、毎回リビジョン
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く