Perl の local - IT戦記
最近、やっと普通に Perl が書けるようになってきた やっとね。 しかし、「書ける」と「分かる」とは違う まだまだ Perl のこと分かってないな。 ということで、 Perl の分からないところをいろいろと考察してみようと まず、 local が分からん Catalyst のソースを読んでて、だいたい使い方は分かった。 自分より上に積まれたスタック上のグローバル変数（？）の参照先を動的に換える。 ということだろうか。 でも、 以下のような感じのソースも見かけたことがあるので、グローバル変数ということではなさそう。 sub piyo { my $c = shift; my $code = shift; local $c->{hoge} = 'fuga'; $code->(); }グローバルじゃなくてもいいということは、 これは？ sub piyo { my $self = shift; l
UTF-8文字列をバイト数でカットした時の末尾の処理 - 徒書
……を先日考えていたところ、NiAOUさんよりサンプルスクリプトを提示して頂きましたが、面白そうなので自分でも他のやり方がないか考えてみました（Perlクイズばりに）。 # hint: uft-8 の一文字の正規表現 # [\x00-\x7F]| # [\xC0-\xDF][\x80-\xBF]| # [\xE0-\xEF][\x80-\xBF][\x80-\xBF]| # [\xF0-\xF7][\x80-\xBF][\x80-\xBF][\x80-\xBF]| # [\xF8-\xFB][\x80-\xBF][\x80-\xBF][\x80-\xBF][\x80-\xBF]| # [\xFC-\xFD][\x80-\xBF][\x80-\xBF][\x80-\xBF][\x80-\xBF][\x80-\xBF] 実のところ知りたかったのはこの部分で、最高何バイトまであり得るのかとか、各
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
YappoLogs: Class-DBI-0.96の自動キャッシュではまった
Class-DBI-0.96の自動キャッシュではまった 先週末に、Apache2+mod_perlな環境で新しいサイト作ってたのです。 せっかくだから、今まで触ったことの無いClass::DBI使おうと思って0.96入れたわけですよ。0.96。 そしたらなんかupdateしたレコードの値が変わらないんです。もうお前ら150円やる宇和なにうぃげｆせｒｔｆぎゅひじょｋｐｌ 今までは独自にO/Rマッピングしてたんだけど、たまには一般的なのでも使ってみようということで使い出したです。 そのサイトは、Webアプリ側はとあるテーブルのカウント数値を元にしてソートをかけてランキング表示をして、バックエンドでカウントの数値を更新しています。 しばらく動かしていたら、ソート結果は意図したとおりだけど、表示されるカウント数値が更新されなくなりました。 なんとなくデータキャッシュされてそうだなぁと思いClass
XML::XPath - Parse and evaluate XPath statements. - metacpan.org
NAME XML::XPath - Parse and evaluate XPath statements. VERSION Version 1.48 DESCRIPTION This module aims to comply exactly to the XPath specification at http://www.w3.org/TR/xpath and yet allow extensions to be added in the form of functions.Modules such as XSLT and XPointer may need to do this as they support functionality beyond XPath. SYNOPSIS use XML::XPath; use XML::XPath::XMLParser; my $xp =
XML::LibXMLのfindnodes()で、ワイルドカードを使いたい
XML::LibXMLでXPathを使いたいのですが、 ワイルドカードの指定がうまくいきません。 要素名に*を当てはめたいのですが、、、、 例えば以下の通りです。 下記XMLのid="1-1"とid="1-2"を抜きだしたいのです。 できればXPathにて指定したいのですが、、、 教えてください。 my $dom = $parser->parse_file($xml_file_str) or die; $x = "//Test/TestText[@id="1-*"]/text()"; $c = $dom->findnodes($x); 解析対象XML <XML> <Test> <TestText id="1-1">テスト１</TestText> <TestText id="1-2">テスト２</TestText> <TestText id="2-1">テスト３</TestText> </T
PerlでRSSの処理のベンチマーク : blog.nomadscafe.jp
PerlでRSSの処理のベンチマーク NDO::WeblogさんのPerl で XML の処理はどれが速いかベンチで、正規表現、XML::Simple、XML::RSS、XML::LibXMLの４つで、RSSの中から、linkを抜き出すベンチの記事が公開されていますが、 もうすこし、RSSの中から情報を抜き出して、Perlで使いやすいようにしていったらどうなるか試してみた。 ちょっとさぼって、XML::RSSとXML::LibXMLだけ まず結果から # perl libxmlrss.pl index.rdf Benchmark: timing 100 iterations of XML::LibXML, XML::RSS... XML::LibXML: 5 wallclock secs ( 4.49 usr + 0.02 sys = 4.51 CPU) @ 22.17/s (n=100)
Blog Developer's Cookbook : RSS をメールで送信する (HTML メール編)
RSS をメールで送信する (HTML メール編) RSS をメールで送信する では、RSS のエントリを普段使いなれた MUA (メーラ) で閲覧する方法を紹介しました。しかし RSS の description だけというのもちょっと味気ないものです。今回はさらに進んで、HTML メールを受信することによって、コンテンツをより見易い形で送信するように改良してみます。 HTML メールの送信 ネット歴が長い人ほど、HTML メールというと嫌な顔をするものですが、最近ではブロードバンドの普及が原因かどうかはわかりませんが、Amazon.com や Sony Style といったメールマガジンに見られるように、HTML メールによるリッチコンテンツの供給といった手法が割と一般的になってきたようです。 今回は、RSS によって受信したコンテンツを、HTML メール化するスクリプトを作成してみま
Unicode::Japanese : blog.nomadscafe.jp
Unicode::Japanese BlogSurfで、Jcodeのエンコーディング判定で書いたconvert_to関数を使ったが見事玉砕 utf-8文字列からeucへの変換ができないことが多々。 Unicode::Japanese - 日本語文字コード変換 を使ってみることにした。 Jcodeは内部的にEUC-JPを使うのに対して、UTF-8を使う文字コードの変換モジュール XSにも対応、imodeやJ-skyにも対応 使い方はJcodeとほぼ同じ $utf8 = Unicode::Japanese->new($str,"文字コード")->utf8; 自動判定するには、文字コードに「auto」を入れる。 でも、やはり他の手段と同じく文字コードの自動判定は失敗することがあります。 そろそろ自動判定はあきらめよう。 XML::Parserからの出力はどちらにしろ、utf-8に統一されているの
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
『Perl の local - IT戦記』へのコメント
のみまくし日記 - Class-DBI-0.96
http://tokuhirom.dnsalias.org/~tokuhirom/tokulog/1792.html
naoya.dyndns.org is offline
Situs Judi Online Terpercaya
XML-LibXML - search.cpan.org
「XHTMLをXPathで検索するには？」（1） XML & SOA － ＠IT
naoya.dyndns.org is offline
http://homepage1.nifty.com/nomenclator/perl/ShiftJIS-CP932-Correct-j.html
はじめてのTest::Simple