/Library/Perl/5.10.0/DBIx/Skinny.pm 400+ if (my $terms = $opt->{group_by}) { 401+ my @groups; 402+ for my $term (@{$terms}) { 403+ push @groups, { column => $term }; 404+ } 405+ $rs->group(\@groups); 406+ } usage: my $result = $self->model…

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use LWP::Simple; use Encode::Detect::Detector; use Mac::Glue; my $itunes = new Mac::Glue 'iTunes'; #print Dumper($itunes); my $library = $itunes->obj(library_playlist => 1); #prin…

gluemacを動かそうとすると、以下のようなエラーが出ていた。 $ gluemac Can't load '/Library/Perl/5.10.0/darwin-thread-multi-2level/auto/MacPerl/MacPerl.bundle' for module MacPerl: /Library/Perl/5.10.0/darwin-thread-multi-2level/auto/MacPerl/M…

$ httpd -L これで、設定可能な変数とか一覧で表示されます。 こんな風にべらーーーーっと！ , or , or , or , or , or , or and in .htaccess when AllowOverride includes AuthConfig AuthName (core.c) The authentication realm (e.g. "Members Only") A…

1/24にあった仮面ライダー40周年映画のエキストラに参加した感想。 朝の行動履歴 05:00 起床 05:20 家を出発 05:30 マックで朝食 05:45 電車にのるも、間違えて池袋行きに乗る 06:02 池袋から大手町方面にのる 06:14 後楽園→春日へ乗り換え 06:23 新御徒町か…

Macでは上手くセッション持ち回ってたのに、 CentOSだと何故か動かないーって思ってたんだけど、 理由はPlack::Handler::Apache2が毎回コンパイルされている？ぽかったのが理由。 startup.plに設定を逃がして、PerlRequireすればちゃんと動いた。 いつも良く…

普通にやる場合、Tie::IxHashを使うのが楽ですが、 今回は自前実装してみました。 package Sorauta::Util::Iterator; use 5.010000; use strict; use warnings; use Carp qw/croak/; our($YES, $NO) = qw/1 0/; #===================== # #=================…