2009年06月23日15:30 カテゴリLightweight Languages perl - use CGI; use Encode; # 非英語Webプログラミング3原則 これは、実はPerlに限らず未だに事実だったりするのですが.... Perl でフォームデータから UTF-8 日本語文字をとりだす方法 (プログラミングの小石・大石) UTF-8 のフォームによっておくられたデータのなかから日本語文字をとりだすことは，日本の Perl CGI プログラマならたいてい必要になることである． ところが，その方法は意外に確立されていないようにみえる． しかし、元発言の方法は先祖帰りすぎるので。 Perlプログラマー以外にも、Webプログラマーであれば有用なentryです。 PerlでWebプログラミングする場合の三原則 QueryはCGIモジュールで処理する 文字コードはEncode
2008年07月02日23:00 カテゴリLightweight Languages perl - デフォルト値のperlらしい指定法 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。 デフォルト値の扱い。 - サンプルコードによる Perl 入門 Scalarによるデフォルト値 sub num{ my $num = shift; # .... } ここは sub num{ my $num = shift || -1; # .... } の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、 sub num{ my $num = shift; $num = -1 if not defined $num;
このサイトは Perl の公式ドキュメント、モジュールドキュメントを日本語に翻訳したものを表示するサイトです。 サイト内の翻訳データは、有志が翻訳しているperldoc-jp/translationから取得しています。 最近の更新 / RSS commitログから最新の50件を取得しています。稀に翻訳者とcommitした人が違う場合があります。また、修正のcommit、登録しただけで未翻訳のものも含まれる場合があります。 2024-12-17 perldocstyle(5.34.0) / SHIRAKATA Kentaro 2024-12-17 perlgov(5.34.0) / SHIRAKATA Kentaro 2024-12-17 perlre(5.34.0) / SHIRAKATA Kentaro 2024-12-17 github.com ppc0025-perl-version
2006年12月05日05:30 カテゴリLightweight Languages perl - 勝手に添削 - 条件分岐 というわけで、ひさかたぶりの勝手に添削のコーナーは、こちら。 CodeZine：Perlで作るモバイルサイトのコツ：第5回 （モバイル, XHTML, Perl） 多少長い判別となってしまいましたので用途に合わせて関数化してもよいでしょう。 さらにすっきりとロジックを書き出す方法がいくつもあります。 use HTTP::MobileAgent; my $agent = HTTP::MobileAgent->new; if ($agent->is_docomo){ if ($agent->is_foma){ # XHTML対応 } } elsif ($agent->is_ezweb){ if ($agent->is_win){ # XHTML対応 } } elsif
2006年04月22日15:00 カテゴリWEB+DB PRESSLightweight Languages perl - 勝手に添削 - WEB+DB Press Vol.32 pp.94 というわけで、突然はじまりました勝手に添削のコーナー。 WEB+DB PRESS 今回は、WEB+DB PRESS Vol.32の「Yahoo! Web サービス活用ガイド」から。 私もWEB+DB Pressへの連載をはじめたので、同誌のますますの(反映|繁栄)を祈ってやまないのだけど、それだけに、同誌にこういうサンプルコードがあるのは気になる。一応きちんと動くので、blogとかのentryであればこれでもよいのだけど、この手の雑誌はかなり長い間保管され、読者に何度も参照されることを考えれば、「その後」のことを考えて推敲しておく方がいいだろう。Damianも言っていたように、「ソースコードは未来の自
2006年05月18日14:00 カテゴリ書評/画評/品評Lightweight Languages "Hello, world!"から始めたくない人は - 書評 - Perl Cookbook この答えもまたPerlらしく、"More than One Book to Read"なのだが、すでに他のLightweight Languagesをある程度知っているという人ならこちらだろう。 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] F's Garage：Perlを勉強する順番Perl の学習コストを大幅に軽減するスゴイ方法に書いてある、以下の本から、まずはこれは読んでおけというオススメの本があったら教えてくださいってのと、読む順番がよくわからんので教えてください。 以前にも何度か紹介したのだが、単体で
2008年05月26日02:30 カテゴリ一日一行野郎Tips perl - tac を一行で それってone-linerで。 [を] さくらのレンタルサーバに tac コマンドを入れる UNIX 系のコマンドで、tac というのがすごく便利なのです。 これはファイルを先頭から表示する cat というコマンドの逆で、 ファイルを行単位でひっくり返して末尾から表示してくれるのです。% perl -e 'print reverse <>' ただし、このやり方は一端メモリーに全ファイルを読み込むので非効率といえば非効率。以下のようにすればもう少し効率的になりますか。 #!/usr/local/bin/perl use strict; use warnings; @ARGV or die "$0 [files...]"; for my $filename ( reverse @ARGV ) { o
2006年11月08日04:30 カテゴリLightweight Languages perl - In-Memory File Perl 5.8以降では、このような場合にin-memory fileが使えます。 【続】やはり Perl はメモリ喰いな言語。データ型の内部構造 :: Drk7jp ＤＢ上の全レコードをいったん perl 側の配列に格納して、その結果を返す。ってコードなのですが、当然ながらレコード数が多くなればメモリを食うのは当たり前なのですが、以前の記事の内容を完全に忘却してました。ここには落とし穴があるのです。使い方は、簡単です。 my @array = (0x21..0x7e); my $memfile; open my $wfh, '>', \$memfile or die $!; print $wfh chr($_), "\n" for (@array); clos
Net::SMTP->auth Posted by yoosee on Debian at 2004-08-25 23:42 JST1 Net::SMTPPerl で SMTP Auth の認証が出来たかどうかをチェックするツールを書いていて、Net::SMTP->auth(user,passwd) を使えば良さそうなので早速試した。しかし簡単なプログラムを書いてみても全く動かない。#!/usr/bin/perl use Net::SMTP; my ($remotehost, $user, $passwd) = @ARGV; my $smtp = Net::SMTP->new($remotehost, Timeout=>60, Debug=>0); if($smtp->auth($user, $passwd) { print "SMTP Auth: success.\n"; } else
Conventions used in the mod_perl Documentation We use a number of conventions in this documentation, that are mostly easy to understand; if you're in doubt, look here for the explanation. mod_perl 1.0 Documentation A collection of the documents specific to the mod_perl 1.0 generation. mod_perl 2.0 Documentation A collection of the documents specific to the mod_perl 2.0 generation. General Document
TIMTOWTDI なことがいっぱいで POE のことがよくわからなかったのですが，Cookbook とリファレンスを読んでなんとなくわかってきました。 POE::Kernel が POE システムのコアで唯一神 POE::Kernel->run()*1 を実行するとイベントループが回り出す イベントループでやることがなくなると POE::Kernel->run() から戻る（戻ることを期待してはいけない） POE::Session が POE システムにおける，タスク/ステートマシン/プロセス/スレッド的なものの単位 複数生成してよい セッションの最初に _start イベントが発生する セッションの最後に _end イベントが発生する イベントハンドラとして，サブルーチンリファレンス（inline_states），パッケージ関数（package_states），オブジェクトメソッド（o
HTML::Selector::XPath をリリース CSS Selector in Perl とか subtech - Bulknews::Subtech - CSS selector to XPath あたりで議論していた CSS 2 Selectors to XPath コンパイラなモジュールをつくって、CPAN に HTML::Selector::XPath としてリリースしました。 使い方は naoya さんが先に書いてますが、HTML から正規表現を使うことなくスクレイプするのに便利。たとえば Mixi にログインしてマイミク最新日記と、１件目のタイトル、本文を抜き出すコードが、以下のようにかけます。 #!/usr/bin/perl use strict; use warnings; use utf8; use Encode; use HTML::Selector::XPat
Plagger::Plugin::Notify::Browser Update Entryをブラウザで開きます。タブブラウザ万歳プラグイン Notify::Ejectをコピペ多し。 Plagger::Plugin::Notify::Browser package Plagger::Plugin::Notify::Browser; use strict; use base qw( Plagger::Plugin ); sub init { my $self = shift; $self->SUPER::init(@_); my $class = 'Plagger::Plugin::Notify::Browser::' . lc($^O); eval "require $class;"; if ($@) { Plagger->context->error("Browser plugin doe
CPAN::Mini で CPAN のミラーをローカルに DECON で話してきたネタですがちょっと詳しく。 飛行機やら電車の中やらでオフラインハックするときに（たまに）問題になるのが CPAN モジュールの不足です。「あぁ、このマシンにはあのモジュール入ってねぇ～」とかでハックが滞るのは萎えます。というわけで minicpan。CPAN::Mini というモジュールで、CPAN モジュールの最新版だけを持ってきてミラーをつくることができます。 導入は簡単で、CPAN から install CPAN::Mini すると minicpan というコマンドが付属してきます。コマンドラインから使うには、 > minicpan -r http://ftp.funet.fi/pub/languages/perl/CPAN/ -l ~/minicpan とかすれば finet から HTTP で同期で
Plaggerをいじってみて、とても便利でなにより楽しくてしょうがない。まだ「それPla」ってほどなんでもできるわけじゃないけど、RSSを配信してないサイトから欲しい情報を取り出すことはできるようになった。意外と初心者向けの手引き的なものが見つからなかったので、初心者向けにメモしておきます。まだ簡単なことしかわからないし、間違ったことも書いてあるかも知れないのでいろいろ試してみながら確認してください。 まずはFilter::EntryFullText（みんなEFTって呼んでるみたい）について。 企業ニュースサイト（新聞社とか）のトップページにあるような自分のサイト内へのリンクのあるHTMLをフィードと変換するときに使うFilter。下のはYOMIURI ONLINEの科学のトップページから科学ニュースを取り出すためのyaml（ Wikipedia）。 author: Toshi custo
イントロダクション はてブで「それPla」がPlagger本体より先に普及したが、その実体はよく見えてこない。有名な「Googleで検索するとピザが届く」を筆頭として、何でもPlaggerで出来るという謳い文句を聞いて、いざやってみようと情報収集してみても、全くの初心者向けのドキュメントというものは未だに存在していない。つまり、「はてな村」のように「Plagger村」がある。 例えば、滅多に使わない「Notify::Eject」を使ったような、アドホックな実践例は見つかる。しかし、そもそも「config.yaml」をどう書くのかとか、一から順序を踏まえた記事をほとんど見ない。一階から二階に続く階段が無いのに、五階六階の案内図だけ貼ってあるようなものだ。もっとも技術者向けのマニアなツール自体は必要だし、それを無理に大衆化する必要もないが、入口の看板（「それPla」）だけがネオンで光っているた
にわかに Perl の学習コストについて優れた Perler のみなさんがあれこれ述べておられるので、大変勉強になります。 Unknown::Programming - 新人教育 SQLAlchemy Database Engines 日記。 (TokuLog) - Perl は学習コストが高すぎる naoyaグループ - naoyaの日記 - Perl の学習コスト SQLAlchemy Database Engines 日記。 (TokuLog) - Perlの学習コストとライブラリ naoyaグループ - naoyaの日記 - アンテナ張りまくらないとの件 subtechグループ - Bulknews::Subtech - Perl、アンテナの話 Charsbar::Note - Perlの学習コスト 上記にリンクしたエントリをまとめると、オールドファッションな書き方であれば Per
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
