編集後記付録：perl

Perlメモより

ページのトップへ

ディレクトリ(フォルダ)サイズを求める

use File::Find;

find(sub {$size += -s if -f}, $dir);
print $size, "bytes
";

URIエスケープ・アンエスケープする

$str =~ s/(\W)/'%' . unpack('H2', $1)/eg;

$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;

改行コードを統一する

s/\x0D\x0A|\x0D|\x0A/
/g;

Jcode

ページのトップへ

• Jcode - 日本語文字集合ハンドラ

#通常
$sjis = Jcode -> new($str) -> h2z -> sjis;

 Jcode -> new(\$str) -> h2z -> jis;
#$strが変換される。

$sjis = Jcode($str) -> sjis;
#これでもいい?　
#eucからsjisへ
$sjis = Jcode -> new($str, 'euc') -> sjis;
$sjis = Jcode($str, 'euc') -> sjis;

#文字数
$length = $jcode -> jlength();

#tr
$j -> tr($from, $to); #$from, $toは、euc-jpで。

#文字コード表記
ascii, binary, euc, sjis, jis, utf2, utf8

CGI::Lite

ページのトップへ

• Perlモジュール/CGI::Lite