優しいMoose入門 | taro-nishinoの日記 | スラド
MooseのメインメンテナであるDave Rolsky氏が、Mooseマニュアルを執筆する際、The Perl Foundationから資金を受けるため、その申請書の内容がTPFのホームページで公開されましたが、私はそれを読んで「是非とも氏に書いていただきたい」と思い、絶対に申請を認可させるのだという強い信念（又は勝手な思い込み）で、下手な英語で推薦コメントを書いたことがありました。他のプロジェクトの申請もあったのですが、それらには目もくれませんでした。そのような思い出があるので、Moose::Manualには他人以上に思い入れがあります。そして、内容的にも、さすがRolsky氏、ツボを押さえていて、Moose入門の必読書だと思います。 しかし、世の中にはいろいろな人がいて、Moose::Manualでも敷居が高いと感じるようです。入門の入門があればなぁ、と思っていたところへ、Jan Ku
ついに出た！最新Perlフレームワーク「Ark」徹底解剖 記事一覧 | gihyo.jp
運営元のロゴ Copyright © 2007-2024 All Rights Reserved by Gijutsu-Hyoron Co., Ltd. ページ内容の全部あるいは一部を無断で利用することを禁止します。個別にライセンスが設定されている記事等はそのライセンスに従います。
ついに出た！最新Perlフレームワーク「Ark」徹底解剖：第1回 Arkって何だ？ -Ark が生まれるまで｜gihyo.jp ... 技術評論社
はじめまして。面白法人カヤックの村瀬と申します。ArkというWebアプリケーション作成用のフレームワークを開発しました。今回から4回にわたって、このリリースしたばかりの「Ark」について紹介させていただきます。 Ark（アーク）とは Arkは、Perlで作られたWebアプリケーションフレームワーク（WAF）です。 Arkの特徴としては Catalystに似たインターフェース CGI／FCGI／mod_perlなどさまざまな環境で実用的に動作する CGI用モードの存在 日本製であり、日本語ドキュメントが充実している などが挙げられます。 Catalystに似たインターフェース Catalystは、Arkと同様にPerl製のWebアプリケーションフレームワークで、現在、Perlのフレームワークでは標準となりつつあるものです。 Arkは開発動機の1つが「CGIでも実用的に動作するCatalyst
#perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 : 404 Blog Not Found
2009年09月13日13:00 カテゴリLightweight Languages #perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 駄目です。 [を] Perl の utf8 まわりのおまじない 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); こういう場合は、Encode::decode_utf8()でないと。 以下をごらんください。 #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
utf8 ファイルを open したけど文字化けするケース
utf8 ファイルを open したけど文字化けするケース 2008-06-07-2 [Programming] open の引数は「FILEHANDLE」「MODE」「ファイル名など」、に分けて渡すのがセキュリティ上良いらしいのだが、面倒なこともある。 例えば、perl 5.8.5 と 5.8.6 で試したんだけど、下記のスクリプトを実行すると「A」だけ文字化けする。 みんなどうやってるんだろう。 いちいち "<:utf8" とかやりたくないし。 たぶん私が何か使い方を間違っているんだと思う。 「use open ':utf8'」の意味を勘違いしているのかも。 #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; use open ':utf8'; binmode STDIN, ":utf8"; binmode S
にひりずむ::しんぷる - Config::PitをWindowsでも使いたい
ppmレポジトリにはないみたいなので、cpan get Config::Pitするかtarballを持ってくる Config::Pit - Manage settings - search.cpan.org そしたらいつものコマンド > tar zxfv Config-Pit-0.03.tar.gz > cd Config-Pit-0.03 > perl Makefile.PL > nmake > nmake test このままだとテストにこけますが'.pl'つければ動きます。 パッチは以下の通り。 --- 01_basic.t.org Sat Jun 06 23:03:25 2009 +++ 01_basic.t Sat Jun 06 23:03:46 2009 @@ -57,7 +57,7 @@ is(ref($config), "HASH", "set with unset EDIT
Email::MIME::CreatorとEmail::Sendでメール送信 - Scrapcode@はてなダイアリー
いつもはMIME::Liteを使うけど、他のモジュールも検討してみようとEmail::MIME::CreatorとEmail::Sendを使ってみます。 「メールの送信 - モダンなPerl入門 - モダンなPerl入門」を参考に、charsetとX-Mailerも指定します。 #!/usr/bin/env perl use strict; use warnings; use utf8; use Email::MIME::Creator; use Email::Send; use Encode; MAIN:{ my $mime = Email::MIME->create( header => [ From => '#####@####.###', To => '#####@####.###', Subject => Encode::encode( 'MIME-Header-ISO_2022
Big Sky :: 訳：Installing Perl modules without root access
by Jon Allen (JJ) - posted on Wednesday, 26 August 2009 ここ2、3年にわたって、Perlでの開発はCatalystやDBIx::Class、Moose等のエキサイティングな新技術により変わってました。 しかしながら、これらや他のツールに共通して言える事が1つあります - それらはこれらがPerl本体の配布物ではなくCPANの一部という事です。共有ホスティングサーバなど信頼されている環境においては、ユーザはルート権限なしでCPANモジュールをシステムにインストールする事が難しいでしょう。 ただ幸い、単純解があります - それが local::lib です。 local::lib の紹介 local::lib は CPAN ディストリビューションをホームディレクトリににインストールできる様にあらゆる設定を行うPerlモジュールです。これは
FormValidator::LazyWay
NAME FormValidator::LazyWay - フォーム検証用モジュール SYNOPSIS use strict; use warnings; use Data::Dumper; use CGI; use FormValidator::LazyWay; my $config = { 'setting' => { 'strict' => { 'email' => { 'rule' => [ 'Email#email' ] }, 'password' => { 'rule' => [ { 'String#length' => { 'min' => '4', 'max' => '12' } }, 'String#ascii' ] } } }, 'lang' => 'ja', 'labels' => { 'ja' => { 'email' => 'メールアドレス', 'password
PerlのWeb::Scraperと正規表現について教えてください。
以下のスクリプトで困ってます。質問をスクリプトの下に書きましたので、よろしくお願いします。 #------------------------------------------------------------------ #!C:/strawberry/perl/bin/perl use strict; use Web::Scraper; use URI; use YAML; use encoding 'shiftjis'; my $stuff = URI->new("http://table.yahoo.co.jp/t?s=9503.t&a=5&b=13&c=2 … my $scraper = scraper { process "table table table tr td small", 'news[]' => { title1 => 'text' }; }; my $res
外注から内製へ。Perl/PHPエンジニアの需要高まる
平成の大不況の下、IT業界の転職市場は冷え込んでいる。だが、すべての企業が採用をやめたわけではなく、いつまでも採用が止まり続けるわけでもない。転職市場の動向を追い、来るべきときに備えよう。 昨年から続く景気の低迷は下げ止まりの様相を呈しながらも、いまだ回復には至っていない。しかし、7月に入ると、企業の採用活動がにわかに活気を帯びてきた。これまで採用活動を凍結していた企業の活動再開が見られ、大手SIer（システムインテグレータ）だけでなく、中小規模のSIerでも新規求人のニーズが発生した。とはいえ、依然として選考ハードルは高く、転職活動の長期化に苦しむ求職者が後を絶たない。 これまでに核となるスキルを磨き、順調にキャリアを積んできた人にとって、現在の転職市場は悲観するほど厳しいものではない。業界・業種による採用意欲の違いはあるものの、いかに自身のキャリア形成を考え、スキルを身に付けてきたかが
[ゆ]: Net::Twitter で簡単に作る Twitter ボットスクリプト紹介
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
![[ゆ]: Net::Twitter で簡単に作る Twitter ボットスクリプト紹介](https://cdn-ak-scissors.b.st-hatena.com/image/square/06a15c64ba0ceec233d86d71001ebb29a9dcbf5d/height=288;version=1;width=512/https%3A%2F%2Fcdn.blog.st-hatena.com%2Fimages%2Ftheme%2Fog-image-1500.png)
Ruby,Perl,Pythonのメモ〜文字コードと文字列長〜 - numozoの日記
メモ： ・日本語の取り扱いのめも その２(文字列長、バイト長について) ・バージョンはruby 1.9.1p129,perl v5.10.0,Python 3.0.1 ・バージョンが古いと動かない ・ついでに 404 Blog Not Found:perl, python & ruby - chr() vs. Unicode と 404 Blog Not Found:perl, python & ruby - ord() vs. Unicode の情報は古いので、今の書き方を書いとく ruby perl python 文字列長 文字コード指定が正しいなら文字数 utfフラグ付きなら文字数 code unit数(文字数でない)*1 configureで--with-wide-unicodeすれば文字数 ※1ただし、コンパイル時のオプションで変えられるらしい 参照：DSAS開発者の部屋:Pyt
unknownplace.org - 2009/07/10 - AnyEventの良いところを3行で
教えて！と言われたのでそのとき答えた物をここにも記す。 POE みたいにきもくないDanga::Socket とかだと自分で実装しないといけないread queueとかそういうのも面倒見てくれる便利モジュールがある＞AnyEvent::Handleドキュメントがアツイ 最後のは主に AnyEvent::Intro のことを言ってますが、これ一通り読めばとりあえず AnyEvent 使えるようになるっていうくらい完璧な内容となっています。 AnyEventとは何かからはじまり、非同期プログラミングの説明からAnyEventを使用したシンプルな例が続き、AnyEvent::Socket や AnyEvent::Handle を使用するのを順々に詳しく説明してくれています。 どうして AnyEvent::Handle みたいな物を使うといいのかというところまで書かれているので、非同期プログラミン
Big Sky :: 誰よりも速く「NullPointerException」に反応するbotを書いてみた。
miyagawaさんのAnyEvent::Twitter::Streamを使って「NullPointerException」をtrackして「Ga!!」を返信するスクリプトを書いてみた。trackにマルチバイトが使えないのが残念。「がっ!!」にしても良いけど、出来れば欧米の方達にも反応したい。 #!/usr/bin/perl use strict; use warnings; use Config::Pit; use AnyEvent::Twitter::Stream; use Net::Twitter::Lite; binmode STDOUT, ":utf8"; my $config = pit_get("nullpo-ga", require => { "username" => "your username on twitter.com", "password" => "your
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
形態素解析を使って適当なnickを作ってWassrに送信するまで - すぎゃーんメモ
MacにてText::MeCabを使う - すぎゃーんメモで下準備を終えた。 何がしたかったかというとこれ。 まずはこんなスクリプトを書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Text::MeCab; my $mecab = Text::MeCab->new(); my $n = $mecab->parse($ARGV[0]); my @nodes = (); # 分かち書きしたものを一つの配列に入れる my @noun = (); # 名詞を検出した番号を格納する my $index = 0; while ($n = $n->next) { push(@nodes, $n->prev->surface); if ((split(/,/, $n->prev->feature))[0] eq '名詞') { push
perl - use CGI; use Encode; # 非英語Webプログラミング3原則 : 404 Blog Not Found
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
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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
WindowsでPerlスクリプトをダブルクリックで実行したいけど - Charsbar::Note
