use utf8での文字列のバイト数

perl

use utf8している時のlengthは文字数を数えてしまうけど、それ以外のときは、バイト数を数えるそうだ。ところで、以下のようにしたらutf8のバイト数が取れるんじゃないかと思うんだけど、あまりutf8文字列のバイト数に需要がないのか、ググっても例が出てこ…

2008-01-08

追記・文字コード

perl

いまいちわかりにくいかなと思ったのでもうちょっと解説。対象はMacのTerminalを想定。Terminal.appはウィンドウ設定を開いてプルダウンをディスプレイに変更すると、「文字セットエンコーディング」という設定項目があり、「Unicode(UTF-8)」に設定されて…

2008-01-07

文字コード

perl

スクリプトに渡すデータの文字コードスクリプトの文字コード(文字列リテラル) 出力の文字コード Encodeモジュールのエンコーディングオブジェクトのdecode関数は渡された文字列をutf8に変更し、その文字列にutf8フラグを付ける。文字列の合成や連結は、utf…

2007-11-02

Path::Classでも

perl

File::Findでやってたけど、こっちも良さげーーー #! /usr/bin/perl use strict; use warnings; use Path::Class; my $dir = shift or die "usage : $0 <dir>\n"; dir($dir)->recurse( callback => sub { my $file = shift; return unless -f $file; my $f = $fi</dir>…

2007-10-29

File::Findが便利

perl

今更なんですがねー。 use strict; use File::Find; my ($target_directory) = @ARGV; my $filter = sub{ /\.(?:gif|jpe?g|png)/ or return; printf qq{<img src="%s/%s" alt="%s">\n},$File::Find::dir,$_,$_; }; find($filter,$target_directory || '.');; 対象となるディレクトリ以…

2007-10-05

シュワルツ変換

perl

my @CSV = ( '1,kame,34', '2,usagi,120', '3,panda,80', ); # 3カラム目でソート map {$_->[0]} sort {$a->[3] <=> $b->[3]} map {[split ',',$_]} @CSV; CSVのデータ内に改行が入ってたらどうすんねんとか、ダブルクォートで囲まれた文字列内にコンマ入っ…

2007-10-05

List::Util

perl

このモジュールをuseすると使える関数の定義は、↓のようになってるんだけど、 sub sum (@) { reduce { $a + $b } @_ } sub min (@) { reduce { $a < $b ? $a : $b } @_ } sub max (@) { reduce { $a > $b ? $a : $b } @_ } sub minstr (@) { reduce { $a lt …

2007-07-20

DBIx::Class → DBIC

perl

DBIx::Classを使うことになって、ネットで情報をあつめてたんだけど、 DBICという風に略しているサイトが結構あることにビックリ。 http://nekokak.jf.land.to/wiki/wiki.cgi/sub?page=Perl%2FDBIC ↑がとても参考になって重宝しています。

2007-07-11

無限ループ

perl

http://b.hatena.ne.jp/entry/5241221 あはは↓文字コードutf8で保存して。 use utf8; $main::д = 1; for(;д;){ print "たすけてー\n"; }

2007-05-12

処理系の違いによる文字化けの簡単な対処

perl

perlで処理をする場合、外部ソースの文字コード perlスクリプト内の文字列リテラル(スクリプトの文字コード) 出力を表示する処理系の文字コードのそれぞれをチェックする必要がある。Windowsならテキストファイルは特に指定しない限りShiftJIS MacOSならUT…

2007-04-06

SQLite

DB Perl

SQLite3をインストール DBD::SQLiteをインストール DBをtest.dbという名前で作成 use DBI; my $db_name = 'test.db'; my $dbh = DBI->connect("dbi:SQLite:dbname=$db_name",'','',{AutoCommit=>0}); my $table_name = 'test_t'; #テーブル作成 { my $sth = …