/ - Catalyst::Wiki
Getting Started Catalyst overview Necessary background knowledge Installing Catalyst or getting a binary build Deploying Catalyst Applications Catalyst tutorial Catalyst Flow Chart and Catalyst redispatch diagrams Catalyst forward/detach/visit/go FAQ - general questions about Catalyst that can be answered in a few lines Recommended Plugins - Recommended plugins to solve common tasks for production
Catalyst - Web Framework
6 Keunggulan Slot88 Sebagai Situs Judi Slot Online Terbaik Persaingan situs judi slot online yang seluas lautan, membuat situs-situs berbenah diri untuk memberikan yang terbaik. Ada beberapa situs yang menonjol, salah satunya adalah slot88. Namun, apa yang membuat slot88 berbeda dan spesial? Berikut adalah keunggulan slot88 yang layak untuk dijadikan mitra taruhan Anda: 1. Pilihan Variasi Game Slo
404 Blog Not Found:perl - Encode 入門
2008年04月09日01:00 カテゴリLightweight Languages perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ 入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これがすべてです！とにかくこの基本方針をまもっていれば幸せになれます。ここでは、EUC-JPでエンコードされたファイル中の「小飼弾」「こがいだん」「コガイダン」「Kogai Dan」を正規表現で書き換えて標準出力にEUC-JPで出力するプログラムを例にとって説明します。 decode() then encode(
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
perl - the best friend of find(1) : 404 Blog Not Found
2008年02月24日22:45 カテゴリLightweight Languages perl - the best friend of find(1) find(1)ネタというのも、定期的にネットを賑やかにする時候ネタになりつつあるようです。 いまさらxargsの便利さを主張してみる findでファイル検索入門 - builder by ZDNet Japan というわけで、いまさらfindとperlの相性のよさを再確認してみることにしてみます。 基本形 まずは、これを覚えておきましょう。 find [options and args of find] -print0 | perl -l0ne 'perl program' findが見つけたファイルを一つ見つけると、perlの$_にそのファイル名が入るのでそれに対して何らかの処理を行います。 perl側の-l0neというのは、以下と同等
Perl でローカルのアドレスを取得する - naoyaのはてなダイアリー
ifconfigの出力をsedでパース — ありえるえりあ まだ Linux を触り始めて間もない頃に、サーバーを構築していてローカルの IP アドレスをシェルスクリプトから利用する必要があって、どうやって取得するべきだろうかと小一時間悩んだのですが結局分からず Perl の正規表現で ifconfig を parse したことがありました。ioctl() を使ってデバイスを操作する必要がある、ということを知ったのは数年後、割と最近のことです。なんということでしょう。 では、Perl で IP アドレスを取得する場合ですがモジュールを使ってよいのであれば IO::Interface がよいだろうと思っています。IO::Interface は Pure Perl ではありませんが、XS で ioctl() を呼び出しているので比較的高速且つ素直な実装だと思います。 #!/usr/local/
perl - myとourとscopeと : 404 Blog Not Found
2008年01月10日10:15 カテゴリLightweight Languages perl - myとourとscopeと うーん、微妙に違います。 local と my - IT戦記 our 名前をソース上のスコープに限定. local 値をスタック上のスコープに限定. my 名前と値の両方をソース上のスコープに限定 なら、理解しやすいと思います＞＜ 以下のコードを見てみましょう。何と表示されるでしょうか。 { package Foo; our $bar = 'baz'; } our $bar = 'drink'; warn $bar; warn $Foo::bar; 「ソースに限定する」あるいは「ファイルに限定する」のだとしたら、この挙動はありえないはずです。 ここで、Perlのスコープに関するルールを覚えておきましょう。すっごく簡単です。 {}は、問答無用でスコープを作る = b
.forward で受信メールをどうこうする - IT戦記
書いとかないと忘れそうなのでメモメモ .forward ファイルにコマンドを書いておく "| exec /Users/amachang/hoge.pl" で、そのメールのデータをオブジェクトにする use MIME::Parser; my $parser = MIME::Parser->new; $parser->output_to_core; my $entity = $parser->parse(\*STDIN); オブジェクトからそれぞれのデータを取り出す use Encode; # Subject my $subject = decode('MIME-Header', $entity->head->get('Subject')); # From my $from = do { $entity->head->get('From') =~ /([^<]+\@(?:[-a-z0-9]+\
3キャリア対応サイト作成へ、画像を自動変換をするApacheモジュールをゆめみが開発:モバイルチャンネル - CNET Japan
ゆめみは12月27日、3キャリアに対応したモバイルサイトを制作する際に必要な、絵文字や画像の3キャリア変換を自動処理するApacheモジュール「mod_ktai」を開発したと発表した。2008年3月末までに一般公開する考えだ。 モバイルサイトはキャリアによって記述言語が異なり、3キャリアに対応したサイトを制作する上での課題になっていた。自動変換できるようにすることで、開発スピードを高める狙いがある。 mod_ktai 1.0は、サイトごとに変換処理プログラムを新たに開発する必要がないため、「開発期間が従来の最大3分の1まで減った」（ゆめみ）という。また、変換処理速度も「最大100倍以上」（ゆめみ）という自信作だ。 mod_ktaiは複数のモジュールで構成されており、必要な機能を選んで組み込むことも可能。27日時点で「機種判別」「絵文字変換」「画像変換」「会員認証」等のモジュールを用意してい
inetd の仕組みを見てみる - naoyaのはてなダイアリー
inetd や xinetd (以下 inetd) はインターネットサービスをデーモン化するのに共通している処理を担い、ほとんどの時間をアイドル状態で過ごすその手のサービスに必要なリソースを節約する役割を果たします。 inetd のひとつ面白いところは、inetd でサービス化したいプログラムの標準入力/標準出力がクライアントソケットの入出力に接続されるところです。例えば daytime 相当のサービスを自分で作ろうと思った場合 #!/usr/local/bin/perl # daytime.pl use strict; use warnings; use DateTime; use IO::Handle; STDOUT->autoflush(1); STDOUT->printf( "%s\n", DateTime->now(time_zone => 'Asia/Tokyo') ); と標
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
Unicode::Japanese - Convert encoding of japanese text - search.cpan.org
NAME Unicode::Japanese - Convert encoding of japanese text SYNOPSIS use Unicode::Japanese; use Unicode::Japanese qw(unijp); # convert utf8 -> sjis print Unicode::Japanese->new($str)->sjis; print unijp($str)->sjis; # same as above. # convert sjis -> utf8 print Unicode::Japanese->new($str,'sjis')->get; # convert sjis (imode_EMOJI) -> utf8 print Unicode::Japanese->new($str,'sjis-imode')->get; # conve
Perl 5.8.x における日本語コード変換のメモ
Perl 5.8ではEncode.pmが標準モジュールとなり、多バイト文字を標準で簡単に扱えるようになりました。が、jcode.plやJcode.pmを用いたコード変換の経験があると、逆にこれが仇となって文字化けの嵐に遭います。（私の場合そうだったというだけで、普通はそんなこと無いのかもしれないのですが。）漸く最近になって基本的な考え方が飲み込めるようになって来たので、この辺をまとめておこうと思います。なお、本メモは新たにPerl 5.8.x的なPerlスクリプトを書く際に気をつけることをまとめたものであり、基本的には既存のスクリプトにPerl 5.8 + Encode.pmを適用するためのものではありません。また、utf8でスクリプトを書くことを前提にしています。が、どちらにせよ、この知識は参考になると思います。（たぶん。） 本文冒頭ですが、まず参照先を示しておきます。以下のドキュメント
PerlによるCSVファイルの高速集計 2：CodeZine
open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){
Perlのithreads（iスレッド）に関するメモ
Perlのithreadsについて ithreadsに関する日本語のサイトがあまりないので、何か適当にメモっておきます。 基本 サンプル 留意点（重要な基本事項） できるだけ最新のPerlで使おう スレッドのコンテキスト スレッドと値 オブジェクトの共有 オブジェクトは二度（以上）死ぬ Windows上でのdetach 特別なサブルーチンCLONEについて マルチスレッドにおけるrand()の使用 スレッドにおけるシグナル処理 関連情報 モジュール その他 forkによるthreadsのエミュレート cond_timedwait なぜかスレッドの生成に時間がかかる時があるのですが… Thread::Queueについて CLONEサブルーチン マルチスレッドにおける再現性のある乱数列 Thread::TieをWIN32 with activeperlで使う スレッドが生きているかどうかのチェ
テキストの改行コード
目次 改行コード変換ソフトウエア WindowsやMacintoshで稼動するperlを使って上のように変換するか，以下のフリーウエアを使う． Windows用 ページブラウザ（笹川泰宏氏） Macintosh用 ASL KConvert（山田浩太氏） また，エディタ（Windows版のWZエディタやMuleなど）によってはUNX，Windows95，Macintoshの改行コードを自動判別してくれるものがある． パソコンで使うツールについては， 窓の杜などインターネット経由で入手するか，インターネットマガジンなどの付録CDROMから入手するとよい． 目次 UNIXでの改行コード変換 マルチプラットホーム環境で作業をするとき，これらのOS間での差異を解消するにはUNIXにファイルを置いて変換するのが便利である（パソコンでもこうした変換ツールが知られている）． ファイルの行末の改行形式の変換
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl入門
Perl逆引き辞典 - サンプルコードによる Perl 入門
CodeIDE
IDEA * IDEA
