2007年12月アーカイブ

glibtoolize --copy (glibtoolizeなのはとりあえずmacだから) aclocal -I . autoheader automake --add-missing -coy autoconf

configure --with-mysql=/path/to/mysql-5.1.22-rc --lib-dir=/usr/local/mysql-5.1/lib make make install

mysqladmin -u root create mq mysql -u root mq

CREATE TABLE mq ( id TEXT NOT NULL, data BLOB, inserted_on TIMESTAMP NOT NULL ) ENGINE=queue;

use strict; use Time::HiRes qw(time); use Digest::MD5 qw(md5_hex); use DBI; my $dbh = DBI->connect('dbi:mysql:dbname=mq', 'root', undef, {AutoCommit => 1, RaiseError => 1}); my $sth = $dbh->prepare("INSERT INTO mq (id, data) VALUES (?, ?)"); foreach my $i (1..20) { $sth->execute(md5_hex(time(), {}, $$, rand()), $i); } $dbh->disconnect;

mysql> delete from mq;ERROR 2013 (HY000): Lost connection to MySQL server during query mysql> delete from mq; ERROR 2006 (HY000): MySQL server has gone away No connection. Trying to reconnect... Connection id: 2 Current database: mq ERROR 2013 (HY000): Lost connection to MySQL server during query mysql>

./Configure -d make make test sudo make install

daisuke@beefcake ~$ sudo perl -eshell -MCPAN CPAN: File::HomeDir loaded ok (v0.67) Can't locate Mac/Files.pm in @INC (@INC contains: /usr/local/lib/perl5/5.10.0/darwin-2level /usr/local/lib/perl5/5.10.0 /usr/local/lib/perl5/site_perl/5.10.0/darwin-2level /usr/local/lib/perl5/site_perl/5.10.0 /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /Users/daisuke) at /usr/local/lib/perl5/site_perl/5.8.8/File/HomeDir/Darwin.pm line 54.

In order to ease the process of upgrading, this version of perl can be configured to use modules built and installed with earlier versions of perl that were installed under /usr/local. Specify here the list of earlier versions that this version of perl should check. If Configure detected no earlier versions of perl installed under /usr/local, then the list will be empty. Answer 'none' to tell perl to not search earlier versions. The default should almost always be sensible, so if you're not sure, just accept the default. List of earlier versions to include in @INC? [5.8.8] none

t/07smerge-anchor..................Name "swig_runtime_data::type_pointer2" used only once: possible typo at /usr/local/lib/perl5/5.10.0/darwin-2level/DynaLoader.pm line 230. Attempt to free unreferenced scalar: SV 0xc7bfc0 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/XD.pm line 856. Attempt to free unreferenced scalar: SV 0xc7bd70 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/XD.pm line 856. Attempt to free unreferenced scalar: SV 0xc96b30 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/XD.pm line 1371. Attempt to free unreferenced scalar: SV 0xc9c8f0 at /usr/local/lib/perl5/site_perl/5.10.0/darwin-2level/SVN/Core.pm line 417. Attempt to free unreferenced scalar: SV 0xc96d30 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/Command/Commit.pm line 555. Attempt to free unreferenced scalar: SV 0xc96ae0 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/XD.pm line 856. Attempt to free unreferenced scalar: SV 0xcbce90 at /Users/daisuke/.cpan/build/SVK-v2.0.2-KO48hW/blib/lib/SVK/Inspector/Root.pm line 82.

use B; sub SV_isPV { my $x = shift; my $flags = B::svref_2object(\$x)->FLAGS;; return (! ( $flags & 0x00010000 ) ) && ( $flags & 0x00040000 ); }

sub SvTRUE { my $x = shift; if (! defined $x) { return (); } if (!ref $x && $x =~ /\D/) { return length($x) > 1 || substr($x, 0, 1) ne '0'; } else { return $x; } }

0 1 "0E0" "0" '' {} undef Hoge->new(0) Hoge->new(1)

package Hoge; use overload bool => \&hoge_bool, '""' => \&hoge_string, fallback => 1 ; sub new { bless { val => $_[1] }, $_[0] } sub hoge_bool { ! shift->{val} } # opposite sub hoge_string { "Hoge(val=$_[0]->{val})" }

my @list = ( 0, 1, "0E0", "0", '', {}, undef, Hoge->new(0), Hoge->new(1) ); foreach my $v (@list) { print defined $v ? $v : 'undef', " is ", SvTRUE($v) ? "true" : "false", "\n"; } 0 is false 1 is true 0E0 is true 0 is false is false HASH(0x800168) is true undef is false Hoge(val=0) is true Hoge(val=1) is false