myfinderのブックマーク - はてなブックマーク

Perlで数値文字参照を文字列に変換 - 徒書
HTML Numeric character references リンクされて気付いたのですが、Perlで文字列をHTML数値文字参照に変換とは逆の、数値文字参照を文字列に変換する方法が述べられてました。しかしこの方法だと動作がややオーバーになるような気がします。 perl -MEncode -p -i -e ' s/\&#(x)?([a-f0-9]{1,5});/ my $tmpstr = ($1) ? pack( "H*", sprintf( "%08s", "$2" ) ) : pack( "N*", $2 ); Encode::encode( "iso-2022-jp", Encode::decode( "UTF-32BE", $tmpstr ) ); /eig; ' < engadget.xml 焼 とか 焼 のような文字参照からUnicodeのコー
myfinder 2009/10/19
perl

文字参照
リンク
tieでSTDOUTをつかまえる - 徒書
STDIN/STDOUT を使うテスト - tsucchiの日記はてなブックマーク - kiririmodeのブックマーク「tie 使えばいけるんじゃないかなー．」を読んで、tieを使ってSTDOUTへの出力を変数に入れておくようなことを、perltie(日本語訳)を参照しつつ書いてみました。 use strict; use warnings; { # 出力を変数に溜めるためのクラス package POOL; use overload ( q{""} => sub { ${$_[0]} } ); sub TIEHANDLE { my $str; bless \$str, $_[0]; } sub PRINT { my $self = shift; $$self .= $_ for @_; } } # テスト対象のサブルーチン sub add { my $total = 0; $to
myfinder 2009/07/15
perl
リンク
1

はてなブックマーク