にひりずむ::しんぷる - PerlIO::encodingでのfallback
id:tokuhiromさんにコメントで教えてもらいました！！ ドキュメントのバグっぽくて、s/FB_//gすれば正常に動きました。id:tokuhiromさんありがとうございます！！ ちなみにEncode2.10あたりから仕様が変わったとのうわさも・・・ あと、関数リファレンスでもなんかほげる。 use strict; use warnings; use utf8; use PerlIO::encoding; $PerlIO::encoding::fallback = sub { sprintf "<U+%04X>", shift }; binmode STDOUT => ':encoding(ascii)'; print "Hello, 世界！！\n"; Hello, <U+4E16><U+754C><U+FF01><U+FF01> Hello, <U+4E16><U+754C><U+
encode/decode より find_encoding のが速いのは知ってたけどここまでか - だるろぐ
今更ネタが続く。 くりかえしdecode()とencode()する場合には、OOインターフェースを使った方が高速です。なぜなら(de|en)codeが文字コード名を解決する手間がなくなるからです。 404 Blog Not Found:perl - Encode 入門 と言われているのは知ってたけど実際は毎回 decode('euc-jp', $str) とかしてて実際どんくらい違うのかなーとふと思って use strict; use warnings; use Benchmark qw/:all/; use Encode qw/find_encoding encode decode/; my $euc = find_encoding('euc-jp'); my $utf = find_encoding('utf-8'); open my $fh, "<", "euc.txt"; my @
Encode 日本語などのマルチバイト文字列を適切に処理する - Perl入門〜サンプルコードによるPerl入門〜
Perl › モジュール › here 日本語などのマルチバイト文字をPerlで適切に扱うにはEncodeモジュールを使用します。次の3つのことを覚えておけば多くの場合適切に日本語を扱うことができます。 外部から入力された文字列はEncodeモジュールのdecode関数でデコードする 外部へ出力する文字列はEncodeモジュールのencode関数でエンコードする ソースコードはUTF-8で保存しutf8プラグマを有効にする この解説での用語 この解説では外部から入力された文字列のことを「バイト文字列」と呼ぶことにします。Perlの内部表現に変換された文字列を「内部文字列」と呼ぶことにします。また「バイト文字列」が特定の文字コードで記述されている場合は「UTF-8バイト文字列」「Shift_JISバイト文字列」などと呼ぶことにします。 プログラミングで日本語を扱う場合にその文字列がバイト文字
Perlによる日本語コード変換のメモ（第二版）
Perlによる日本語コード変換のメモ（第二版） hikoboshi.home / Perlによる日本語コード変換のメモ（第二版） 前に書いたときと時代背景も知識も大幅に違うので、書き直してみることにしました。Perl 5.8以降を前提として考えます。 この文章で書く（つもりの）こと use utf8環境での、文字セットの考え方 発生しがちな文字化けとその原因 解決のヒント jcode.pl時代の文字セットの扱い まずは、jcode.plなどが全盛だった時代を思い出してみます。jcode.plの時代は、Unicodeはほぼ使われておらず、JIS, Shift_JIS, EUC_JPあたりの変換を行う事が主でした。実際のコードを見て、扱われ方を考察してみましょう。 #!/usr/bin/perl # jcode.plを用いたコード変換 require 'jcode.pl'; open my $
Encode.pmの使い方軽いまとめ
ホーム ＞ HTMLに役立つヒント ＞perlのいろんなルーチン入れ perlのいろんなルーチン入れ 自分でperlを書いていて、しょっちゅう使いそうなもの、作るのに苦労したルーチン、引っかかったことなどを書きためている。ま、自分用の備忘録です。使う場合はオウンリスクでどうぞ。何せ初心者ですから間違いがあるかも。 ■■ 目次 ■■ mac/UNIX ▲ページトップ ▲▲HTMLに役立つヒント ●MACとUNIXの違いでよく使うルーチン # OSがUNIXなら0、macなら1。 $pc = "0"; # mac/UNIXの区切りをセット if ( $pc == 1) { # 1はマック $partition = ":"; # home:name:等の区切り $partition_down = ":"; # 相対パスで下がる時 $partition_up = "::"; # 相対パスであがる時
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
今日のCPANモジュール（跡地） 目次