[B! perl][utf8] ishideoのブックマーク

perl - use utf8; : 404 Blog Not Found

2007年05月10日19:00 カテゴリLightweight Languages perl - use utf8; 添削というより、ちょうどutf8 pragmaを説明するのにいい例題なので。はこべにっき# - Web::Scraper便利! my $left = decode_utf8('『'); my $right = decode_utf8('』'); スクリプトがUTF-8で書かれている場合は、わざわざdecode_utf8('リテラル');とするより、最初にuse utf8;としておくのが吉。この点を明らかにするために、以下のcode snippetを示す。 #!/usr/local/bin/perl use strict; use warnings; use Encode (); use Devel::Peek; { use utf8; my $name = '小飼弾'

ishideo 2007/05/11

リンク

はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知

はてなグループの終了日を2020年1月31日(金)に決定しました以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記はてなグループ日記のエクスポートデータは2020年2月28

ishideo 2007/05/01

リンク

テンプレート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でできるわけです。

ishideo 2007/04/20

リンク

Perlメモ/日本語の扱い - Walrus, Digit.

Perlで日本語を使用するとき、正しく動かなくなる代表的なケースは次の2点です。日本語を扱う時、文字コードを意識していない。正規表現で、日本語の文字列を使うとエラーが出る。日本語を扱う時には、文字コードを意識する必要があります。代表的な文字コードには「7ビットJIS」「SJIS（シフトJIS）」「EUC（日本語EUC）」「UTF8（Unicode）」があります。厄介なのは、同じ言葉でも、文字コードによってコンピューター内部での表現が違うことです。例えば、WebブラウザからSJISで送られてきた「塚本」という言葉と、EUCコードのスクリプト中で設定した「塚本」という言葉を比較すると「別物だよ」という結果が出ます。こうした問題が起きないように、普通は、以下のことに気をつけてスクリプトを作ります。スクリプトを書くときに、どの文字コードを使うか決めておく。データの入出力(CGIの

ishideo 2007/04/10

リンク

[を] Perl 標準入力と utf8

Perl 標準入力と utf8 2007-02-07-1 [Programming] 自戒を込めた自分用メモ。基本レベルの話だろうけど、はずかしながらちょっとはまってたので。 test.pl : #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; while (<>) { print if (/[ぁ-ん]/); } というコードを書いた。しかし、 test.pl は行けるが、 test.pl utf8.txt はだめ。で、こうした。 #!/usr/bin/perl use strict; use warnings; use Encode; use utf8; binmode STDOUT, "

ishideo 2007/02/08

リンク

それ use open - odz buffer

しかし、 test.pl < utf8.txtは行けるが、 test.pl utf8.txtはだめ。前にも書いたけど、引数を指定した場合、<> は STDIN じゃないですから当然ですね。とりあえず use open IN => ':utf8'; とするほうが、スマートといえばスマートか？や、Encode::decode を使うのが駄目ってことはないと思うけど。追記 dankogai さんから Trackback が飛んできて気づいたのだが、書き方が分かりにくいな。ここでは、 use strict; use warnings; use utf8; use open IN => ':utf8'; binmode STDOUT, ':utf8'; while (<>) { print if /[ぁ-ん]/; } とするのではなくて、山下さんの元のプログラムに対して use open を追

ishideo 2007/02/08

リンク

perl - PerlIO vs. <> : 404 Blog Not Found

2007年02月08日03:00 カテゴリLightweight Languages perl - PerlIO vs. <> これ、Perl 5 Porterとしてちょっと申し訳ないケース。 [を] Perl 標準入力と utf8 しかし、 test.pl < utf8.txt は行けるが、 test.pl utf8.txt はだめ。ここで問題になっているのは、<>でファイルを指定した場合も標準入力の場合のどちらの場合もPerlIO Layerを指定する方法。先に答を書いてしまうと、 use open ':utf8'; binmode STDIN, ':utf8'; binmode STDOUT, ':utf8'; ということになる。 odz buffer - それ use open とりあえず use open IN => ':utf8'; とするほうが、スマートといえばスマートか？