勝手に添削を添削 HTTP::MobileUserID - Unknown::Programming
うぉぅ。弾さんから初の添削頂きました。 #あ、ちなみにパッケージ名だけどHTTP::MobileAgentと揃えるためにJapaneseは無しにしました 携帯のユーザーIDを取得する - Unknown::Programming 404 Blog Not Found:perl - 勝手に添削 - HTTP::MobileUserID::Japanese コードそのものというより、メソッド名がまずい。is_support()では英語になっていない。日本専用モジュールではあるけど、CPANとかにうpするとしたら、これだとキョーレツに違和感がある。正しくはis_suppoted()またはis抜きのsupported()。 is_exists()の方は、has_user_id()が望ましいだろう。 きゃああ。これは恥ずかしい。 なんでもかんでもis_をつければそれっぽいっしょと考えてることがバレバ
テンプレートShift_JISでそれ以外UTF-8の場合 - Unknown::Programming
っていうのがなかなかできなくて。 テンプレートファイルはShift_JISなんだけどソースコードやDBはUTF-8でやりたい。 でさらに最終出力は携帯用サイトなのでShift_JISでっていうレアなケースを実現したいと。 テンプレートをUTF-8にさえすればCatalyst::Plugin::Charsets::Japaneseで一発OKなんだけどね。 テンプレートをクライアントが触りたいとかってケースでUTF-8とかわからんからShift_JISでお願いとかって結構あるのでそーゆー場合のお話ですね。 まぁクライアントが触る部分だけをうまく切り離してなんとかするってのが普通のやり方なのかもしれないけどとりあえず。 ってことでまずはShift_JISで書かれたテンプレートを動的にUTF-8に変える必要があります。 それはTemplate::Provider::Encodeでできるわけです。
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
OpenCVを使って画像の物体認識をするPerlモジュール作った - spiritlooseのはてなダイアリー
作った。 http://search.cpan.org/dist/Image-ObjectDetect/ http://d.hatena.ne.jp/darashi/20070223/1172232765でRubyの拡張ライブラリを公開されていたので、こりゃやらなくちゃ・・・と思った次第です。すみません。 こんな感じで使えます。Imagerで顔を囲んでみた。 #!/usr/local/bin/perl use strict; use warnings; use Imager; use Image::ObjectDetect; my $file = 'picture.jpg'; my $image = Imager->new->read(file => $file); my $cascade = '/usr/local/share/opencv/haarcascades/haarcascad
QR Codeを作るならImager::QRCodeを使おう！
今まで GD::Barcode::QRcode の独壇場だった QR Codeを Perl で作るためのライブラリですが、ここで一つ対抗馬として、Imager::QRCodeを作って、CPAN に上げてみました。 G::B::QRcode と比べて良いところは以下。 出来上がったものはそのままImagerのオブジェクトになっているため、出来た画像に対していろいろできます。 白黒の部分の色を Imager::Color で指定できるようになっていますので、白地に緑とか青とか赤とかの QR code ができちゃったりします。 GDなどのインストールはいりません。libqrencodeという小さなライブラリを入れるだけでさくっと動きます。 ただ、ぶっちゃけちゃうと GD::Barcode::QRcode よりも速度が若干遅いです。 以下ベンチマークになります(ベンチマークプログラムは最後に載せて
Six Apart - Tech Talk Blog: Perl モジュールの作り方
こんにちは。TypePad Engineer の重田です。 今年も YAPC::Asia Tokyo の季節がやってきました。今回も豪華メンバが参加するのでとても楽しみですね。 さて今回はYAPCにちなんでPerlモジュールの作成方法をご紹介します。 準備 Perl プログラマのバイブルである Perl Best Practices の Chapter17: Modules の Refactoring の冒頭で Damian Conway が言っています。 Place original code inline. Place duplicated code in a subroutine. Place duplicated subroutines in a module. さあ皆さんもそろそろ車輪の再発明に別れを告げてモジュール作りをはじめてみませんか？ h2xs 少し前の書籍などでは h2
Class::DBI - シンプルなデータベース抽象クラス - perldoc.jp
名前¶ Class::DBI - シンプルなデータベース抽象クラス 概要¶ package Music::DBI; use base 'Class::DBI'; Music::DBI->connection('dbi:mysql:dbname', 'username', 'password'); package Music::Artist; use base 'Music::DBI'; Music::Artist->table('artist'); Music::Artist->columns(All => qw/artistid name/); Music::Artist->has_many(cds => 'Music::CD'); package Music::CD; use base 'Music::DBI'; Music::CD->table('cd'); Music::CD->c
Template Toolkit Manual -テンプレートツールキット和訳マニュアル-
テンプレートツールキットマニュアル 職場でTTを使っていた時に少しずつ訳したものです。途中よく分からない所もあって、かなり適当。自動翻訳よりはマシかも、という程度です。 追記・修正歓迎。質問不可。→ しろいわ(public@hakoniwa.net) オリジナルマニュアル http://www.template-toolkit.org/docs/plain/Manual/Directives.html CPAN http://search.cpan.org/~abw/Template-Toolkit-2.14/ 概要 解説 テンプレート変数へのアクセス GET CALL SET DEFAULT 他のテンプレートファイル・ブロックの処理 INSERT INCLUDE PROCESS WRAPPER BLOCK 条件処理 IF / UNLESS / ELSIF / ELSE SWITCH /
Catalystで文字化けな刑 - pepponの日記
mod_perlでShift_JISで書き出してくれない。 Catalystでin EUC out Shift_JISな携帯あぷでserver.plだと問題ないけど Apache2.0+mod_perlでShift_JISで出してくれなくなった。 なぜだかさっぱり。 AddDefaultCharsetとかoffとかnoneとかShift_JISとか試したけどだめだなぁー ほかのEUCあぷりは大丈夫なんだけど。 charsets => { in => 'EUC-JP', out => 'Shift_JIS', },でもHTTPレスポンスヘッダでは`EUC-JP` になっとる。 $c->res->headers->content_type('text/html; charset=Shift_JIS');こんなんしてもだめだった。 use Catalyst qw/Charsets::Japane
日経ソフトウェア2007年1月号 - perlはどこだ!? : 404 Blog Not Found
2006年11月24日17:30 カテゴリ書評/画評/品評 日経ソフトウェア2007年1月号 - perlはどこだ!? これ、私も頂いたのだけど... 日経ソフトウエア 2007年 01月号 日経ソフトウエア1月号 @ 2006年11月 @ ratio - rational - irrational @ IDM 日経ソフトウエア2007年1月号に記事を書かせていただきました。いろんなプログラミング言語からその言語の特徴的なところを学んでみようというようなお話の中で、Rubyを担当してます。 Perlはどこだ!? はっきりいって、ハブられているとしか思えないほど気になる不在なのだ。 pp.39-41の「こんなにあるフリーの言語処理系」にもない。その中の「定番スクリプト言語」は、PHP、Python, Ruby で、Perlという文字が登場するのは、そこのActivePerlに関する部分だけな
日本語処理・携帯絵文字処理関係のperlモジュール
Kawa.netxp 日本語処理・携帯絵文字処理関係のPerlモジュール 日本語を含む多言語処理(主にUTF8、Shift_JIS、ISO-2022-JP。 その他にLatin1、EUC-JP、EUC-KR、Big5、GB2310などにも対応)や、 DoCoMo・SoftBank・au に対応した携帯絵文字処理関連のモジュール群です。 CGIparamJP.pm - CGI.pmのクエリ中の日本語処理 EmailHTML.pm - HTMLメールMIMEマルチパートメッセージの生成 EmailJP.pm - 携帯絵文字対応のSMTPメール送信 EmojiTrans.pm - iモード用絵文字をSoftBank/au用絵文字に変換 Encode561.pm - Perl 5.005/5.6.1 環境で Encode.pm ライクな操作 EntityRef.pm - © 等の実体参照
hide-k.net#blog: perlで機種依存文字を取り扱う
「D-5 出張版：機種依存文字入りのShiftJISを扱う」を読んで大変タイムリーだったので実験して見ました。 はてぶのコメントでmiyagawaさんが decode("cp932", $buf) でいい気が とおっしゃられているので こんなんで実験してみました。 JISやEUCを取り扱うのでEncode::Unicode::Japanseを使って見ました。 取り扱うtext.txtは機種依存文字や半角カタカナを含んだこんなファイル。 #!/usr/bin/perl use strict; use warnings; use Encode::Unicode::Japanese; use Encode qw/encode decode/; _encode (qw/text.txt shift_jis sjis-utf8.txt utf8/); _encode (qw/text.txt shi
Catalystを使ったアプリケーションの作成（その2）
これまで使用していたミニサーバーは、あくまでも開発時のデバッグ用のもので あり、実運用を考えた場合はちゃんとしたWebサーバーのもとで動作させる必要 があります。ほとんどの場合Apacheを利用することになると思いますが、方法と しては、FastCGIとして動作させる場合とmod_perl環境で動作させる二通りがあ ります。どちらを利用するかですが、Perlで開発をしているのなら、後者を是非 採用したいところです。というわけで以降mod_perlでの動作方法を説明します。 mod_perlの準備 FedoreCoreなどではコンパイル済のmod_perlがインス トール時から入っていますし、FreeBSDでもportsでのインストールができます。 しかし私の環境ではゼロからビルドしましたので、その手順を以下に示します。 mod_perlはここか ら入手します。Apacheは既にインストール
woremacx.com - https://woremacx.com/
Windows 10 の入ったディスクのバックアップが clonezilla で外形的にできることがわかった Posted on Jun 27, 2020 Windows10 が載ってるディスクに破壊的な変更加える前にバックアップしたくて、SystemRescueCd で clonezilla 使ってディスクまるごとイメージ化した(内部的には partimage が使われてる?)。 でこれ、レストアしたら起動する状態まで持っていけるんかな? すんごく不安だ。。。 — woremacx (@woremacx) June 15, 2020 systemrescuecd に同梱されている clonezilla を使ってまるまる取った Windows 10 のバックアップが戻せるか不安で仕方なかったので、VirtualBox に戻せるか試した。 そもそもなぜ clonezilla を試したかったの
PerlとGDで画像生成
静的な画像表示 まず、CGI で静的な画像ファイルを出力する方法を説明しましょう (画像は 東京発フリー写真素材集 から拝借しました)。 image-1.cgi (実行結果) 1: #!/usr/local/bin/perl 2: 3: # $Id: image-1.cgi,v 1.1 2004/06/25 17:30:47 zxr400 Exp $ 4: 5: my $imgfile = '../../img/tokyo-tower.jpg'; 6: my $imgsize = (stat($imgfile))[7]; 7: 8: print "Content-type: image/jpeg\n"; 9: print "Content-Length: $imgsize\n"; 10: print "\n"; 11: 12: binmode(STDOUT); 13: 14: open(I
Top Beachbody Coach – Canada's Top Beachbody Coach
Have you ever wondered what it takes to get in the best shape of your life? Did you know that you could simply workout from home, instead of going to the gym? This blog shares all the best health and fitness advice that you won’t be able to find anywhere else. The Best Way To Workout From Home Looking for tips to be able to workout from home? Make sure you check out our incredible article. The key
Catalyst::Manual::Cookbook - Catalystクックブック
題名 Catalyst::Manual::Cookbook - Catalystでお料理を 説明 ママが昔よく焼いてくれたおいしいコード！ レシピ デバッグ画面を強制表示する endアクションでdie()を呼び出すと、リクエストの最後にデバッグ画面を強制表示させることができます。 sub end : Private { my ( $self, $c ) = @_; die "forced debug"; } いちいちこれを書いたり消したりするのが面倒なら、endアクションにこんな条件文を加えることもできます。 sub end : Private { my ( $self, $c ) = @_; die "forced debug" if $c->req->params->{dump_info}; } こうしておくと、たとえばクエリストリングに"&du
2006/06/26 - memo - unknownplace.org
なにげなく aptitude upgrade したら CRON からメールがきまくって Weak references are not implemented in the version of perl at /usr/local/share/perl/5.8.4/DBIx/Class/Schema.pm line 7 とかで Scalar::Util::weaken 使ってるスクリプトが全滅。 おいおいなんだよこれ。 weaken は Catalyst でも DBIC でも使ってるのでこのままだと fastcgi プロセス再起したらこの鯖で動いてる Web アプリ全部死亡する危機w なんでだろーとおもってとりあえず Scalar::Util 再インストールしたら直った。 謎過ぎる。。同じバージョンだったのに。
Catalyst::Response - stores output responding to the current client request - search.cpan.org
NAME Catalyst::Response - stores output responding to the current client request SYNOPSIS $res = $c->response; $res->body; $res->content_encoding; $res->content_length; $res->content_type; $res->cookies; $res->header; $res->headers; $res->output; $res->redirect; $res->status; $res->write; DESCRIPTION This is the Catalyst Response class, which provides methods for responding to the current clien
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://uttsu.com/diary/20050827