Perl-5.8 覚え書き Last Updated at $Date: 2005/12/04 04:00:59 $. このページは，Perl-5.8.2 を使う上で困ったことなどの覚え書きです． 日本語を含むスクリプトを書く 日本語 EUC でスクリプトを書く UTF-8 でスクリプトを書く 日本語を含むファイルを開く 連想配列で日本語を使う 日本語を含む正規表現 文字コードの自動判定 古い Perl でも実行できるように書く 未解決の問題 日本語を含むスクリプトを書く Perl-5.8.x で日本語を扱うスクリプトを書く場合，大きく2通りの方法があります． 日本語 EUC でスクリプトを書く． UTF-8 でスクリプトを書く． どちらの方法でも， (1)ファイル入出力， (2)データベースアクセス， (3)プロセス間通信の3つに気をつけて， 明示的にバイト列を文字列に変換したり，また逆
perl は 5.8 から Unicode(utf-8) がサポートされました．5.6 でも Unicode に対応はしていましたが，ぜんぜん使い物にならず，ようやく 5.8 でまともに使えるようになったということです．ただせっかく使えるにもかか わらず perldoc などを見てもイマイチ使い方がわからないので，独自にまと めてみたのがこのページです． 誤った書き方や勘違いをしてい ることもあるので，形式的ですがこのページの内容は無保証です． 内容 文字コード変換 perlIO jperlからの移行 UTF-8フラグ 文字コード自動判別 Unicode Standard Unicode 正規化 その他 参考資料 文字コード変換 とりあえず perl5.8 で新しく組み込まれた機能を見るために，euc-jp から shift_jis への変換スクリプトをいくつか載せます． openを利用し
JavaScript では apply や call を使って this を実行時に与えることが出来る var func = function() { return 1 + this }; alert(func.apply(1)); // 2 Perl では こうすると、this っぽい感じで与えられる my $code = sub { 1 + shift }; print 1->$code; # 2Algorithm::C3 のソースを読んでて出てきた。 めもめも まあ これで全然いいんですが、 my $code = sub {1 + shift }; print $code->(1); 文字列 or CodeRef が来るような場合は便利かもね $obj->$code # $code is code(or simbolic) referenceみたいな めもめも
Perl Lib Perl 関係のアーカイブやリンクなどをおいてあります。 Name Last modified Size Description Parent Directory 28-Apr-2017 15:18 - archives/ 19-Nov-2006 09:32 - blog/ 08-May-2002 13:22 - columns/ 22-Jul-2001 18:08 - cpan/ 17-Sep-2001 17:51 - demo/ 09-May-2002 22:31 - doc-ja/ 03-May-2002 05:29 - foafxom/ 30-Jan-2004 21:41 - mailmag/ 23-May-2002 20:42 - ml/ 17-Sep-2001 17:51 - mod_perl_guide/ 01-Dec-2000 23:35 - p5ee/
http://www.postlbs.org/postlbs-cms/ja/geocoder オープンソースの GeoCoder。「ジオコーダーじゃ」と読むらしい。 これはすごいな。 早速使ってみた。 まずデータを揃えるのが結構大変。 ゆうびんホームページの郵便番号データと国土交通省から街区レベル位置参照情報のデータを取ってきて、Windows専用のデータ変換ツールでデータを構築する必要がある。 国土交通省のデータのダウンロードがすさまじくだるい・・・ 普通にクリックしていくと多分全部集めるのに200回ぐらいクリックしなきゃいけない。 FireBugで多少楽はしたけど大変だった。 このありえないインターフェースはなんとかならんのかなぁ。 で使ってみた感じは、検索は非常に速い。 精度はGoogleMapsのGeoCoderとかにはかなわないけど、それなりにいい感じ。 一番詳細なレベルではてな
名前¶ perltoot - トムによるPerlオブジェクト指向チュートリアル 概要¶ Object-oriented programming is a big seller these days. Some managers would rather have objects than sliced bread. Why is that? What's so special about an object? Just what is an object anyway? オブジェクト指向プログラミングは、昨今の、ビッグセラーです。 マネージャーには、薄切りパン(訳註：良い発明のこと)よりもむしろオブジェクトを持ちたがる人もいます。 どうしてでしょうか? オブジェクトの、何がそんなに特別なんでしょうか? そもそも、オブジェクトとは一体なんでしょうか? An object is nothing
エンコードの処理の基本 Perl 5.8 以降，テキストの処理が UTF-8 (Unicode の変換形式のひとつ) を軸におこなわれるようになりました。Shift JIS や EUC-JP での処理が一般的な日本語を Perl で扱う場合，エンコードを意識したプログラミングをおこなうことが必要になります。具体的には，Perl でエンコードを意識する必要のあるのは以下の箇所です。 スクリプト自体のエンコード ファイルの入出力 標準入出力 標準エラー出力 データベース，CGIなどプロセス間のインターフェース Perl 5.8 では内部処理が UTF-8 で行われますが，特にエンコードの指定がされない場合，テキストは文字単位ではなく，バイト単位で処理されます。バイト単位で Shift JIS などのテキストを処理することもある程度可能ですが，2バイトの文字が文字として認識されていませんから，正
2006年04月24日21:20 カテゴリLightweight Languages perl - 勝手に添削 - Hatena::API::Auth というわけで、好評につき続けます、勝手に添削のコーナー。 今回はハテナオヤ作、Hatena::API::Auth 0.02です。 以下、ソースの一部を抜き出したものです。 1: package Hatena::API::Auth; 2: use strict; 3: use warnings; 4: our $VERSION = 0.02; 5: 6: use base qw (Class::Accessor::Fast Class::ErrorHandler); 22: 23: __PACKAGE__->mk_accessors(qw(api_key secret)); 24: 67: sub login { 68: my $self =
Perl-Support is written to considerably speed up writing code in a consistent style, as well as to help with other often performed tasks: - insert various types of comments - insert complete but empty statements (e.g. 'if {} else {}' ) - insert often used code snippets (e.g. declarations, the opening of files, .. ) - insert the names of file tests, character classes, special Perl-variables and POS
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
http://labs.unoh.net/2006/08/vi_ctags.html Vimとctags の連携が紹介されていたので、ついでにこちらも紹介してみる。 Vimでは、デフォルトで「gf」のキーバインドに、カーソル下の単語をファイル名として開く機能が割り当てられている。 カレントディレクトリのファイル名なんかは何も設定なしで開ける。 pathオプションを設定しておけば、そのディレクトリ下のファイルも開ける。 UNIX系OSではデフォルトで set path=.,/usr/include,となっていることが多いようなので、たとえば #include <stdio.h>の「stdio.h」の上で「gf」を押すと、「/usr/include/stdio.h」がそのまま新規バッファで開く。 なので、PHPな人は set path+=/usr/local/lib/phpとかしておくと、re
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
OpenCVが1.0リリースされたのをきっかけにPerlモジュールを作ってて、APIの量が多すぎて放置気味だったんだけど、すこしやる気が出てきたので実装中。なんとなくガワはできてきた。 今のところこんな感じのことが出来る。かなり一部だけ紹介。 my $image = OpenCV->new( # 読み込み filename => 't/image/test.jpg', ) or die; my $clone = $image->CloneImage; # クローン $clone->Resize( # リサイズ width => 500, height => 156, ); $clone->CvtColor( # グレーに code => BGR2GRAY, color => 1, ); $clone->Erode; # 収縮 $clone->Dilate; # 膨張 $clone->Smo
12/21追記 ただ今通常の更新環境ではない*1ため、取り急ぎ状況のみ追記します。本件*2はGoogleの設定ミスで発生した事故であり、現状では、「まるごとPerl! Vol.1 」を含む14冊は閲覧できない状態に変更されているそうです。 また、以下の外部記事に状況が纏まっていますので事故の経緯を知るため目を通して頂ければと思います。 404 Blog Not Found:「まるごとPerl! Vol.1 」のGoogle Book Search全文公開は事故 Google ブック検索でインプレスの本の内容がぜんぶ見えていた件: That’s Life ”気になるニュースとブックレビュー” 「Googleブック検索」で書籍内容が100％すべて公開されてしまう事故発生！ :にゅーあきばどっとこむ 尚、本件に触発された内容については別エントリを書く予定です。 従来記事 -まるごとPerl! V
アカウントとってみた。 shibuya.pmで話していたFirefoxの拡張便利。 firefox.exe -chrome chrome://s3fox/content/s3foxWindow.xul とかで単独起動できる。 にはどうしたらいいのかなーとおもってTemplateのdocを眺めていたら my $tt = Template->new({ LOAD_TEMPLATES => [ Template::Provider->new( INCLUDE_PATH => '/path/to/myapp/templates' ), Template::Provider->new( INCLUDE_PATH => '/path/to/common/templates' ), ], PREFIX_MAP => { default => 0, common => 1, }, }); こんな感じでやれ
This distribution is up for adoption! If you're interested then please contact the PAUSE module admins via email. NAME Device::USB::MissileLauncher - interface to toy USB missile launchers SYNOPSIS use Device::USB::MissileLauncher; my $ml = Device::USB::MissileLauncher->new(); $ml->do('left'); $ml->do('up'); $ml->do('fire'); DESCRIPTION This implements a basic interface to the toy USB missile laun
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く