Catalystみたいにqw/Plugin/とかで引数を処理したい場合は package Hoge; sub import { my ($class, @args) = @_; } 1; こんな感じでいける。

load_componentの中身が気になって追っていったら、「ensure_class_loaded」へたどり着いた。74行目でrequireしてる。 71 sub ensure_class_loaded { 72 my ($class, $f_class) = @_; 73 return if Class::Inspector->loaded($f_class); 74 eval "require $f…

for (1.10000000000000000000) { $hash{$_}; } とかやって実験しようとしたら Range iterator outside integer range ってしかられた。

ファイルの行数とか楽に知りたかったのでFile::Utilを使ってみた。 use File::Util; my $file = shift or die ; my $fh = File::Util->new; print $fh->line_count( $file ); http://search.cpan.org/dist/File-Util-3.18/Util.pod#line_count

存在を忘れてた orzhttp://flex.ee.uec.ac.jp/texi/perl/perl_19.html

perl で「ファイルやデバイスをメモリにマップ/アンマップする 」というmmapをやってみた。 4 use Cache::Mmap; 5 use Data::Dumper; 6 7 my $filename = shift; 8 9 my $cache = Cache::Mmap->new($filename); 10 11 my $key = 'hoge'; 12 13 $cache->write…

無言で処理が途切れてて、何も出てこんとか・・。 まじめに考えよう、 http://d.hatena.ne.jp/hakobe932/20061215/1166199482 http://68user.blog27.fc2.com/blog-entry-5.html

perl の 出力のデフォルトファイルハンドルを変更するというselect関数を使ってみた。 5 6 open(FILE, ">$file") or die $!; 7 8 print "hoge\n"; 9 10 select(FILE); 11 12 print "hoge\n"; 13 んな感じに切り替えてくれる。 [hoge] perl select.pl aaa.txt…

ackをローカルにこんな感じでいれてみた。 perl Makefile.PL PREFIX=~/hoge \ LIB=~/hoge/lib \ INST_SCRIPT=~/hoge/scripts \ INST_BIN=~/hoge/bin \ INSTALLMAN3DIR=~/hoge/man/man3make make install File::Nextのバージョンが古いと文句言われた orz

該当リビジョンのファイルリストが見たかった。 svn log -r 1000 -v でいけた。http://subversion.bluegate.org/doc/ch03s06.html#svn.tour.history.log

こんなん入れてみた。 perl_synwrite.vim perl.vim ruby.vim tt2.vim tt2html.vim http://www.vim.org/scripts/index.php

_BEGIN _AUTO _ACTIONの順番なのね。 13 __PACKAGE__->_dispatch_steps( [qw/_BEGIN _AUTO _ACTION/] ); 17 20 21 sub _DISPATCH : Private { 22 my ( $self, $c ) = @_; 23 24 foreach my $disp ( @{ $self->_dispatch_steps } ) { 25 last unless $c->forw…

perlで書いてるときに「#」のコメントごと貼り付けたりすると、その後も全部#つきになるのがうざ かったから、調べてみた。 :set fo-=r で解決しました。http://www.google.co.jp/search?q=%E3%82%B3%E3%83%A1%E3%83%B3%E3%83%88%E8%A1%8C%E3%81%A7%E6%94%B9…

セッション名を変更したかった。 C^a : でコマンド入力状態にして sessionname 名前 と打ち込んでやれば変更できる。下記のサイトのPDFが参考になりました。http://www.google.co.jp/url?sa=t&ct=res&cd=1&url=http%3A%2F%2Fwww.gcd.org%2Fsengoku%2Fdocs%2F…

Ctrl + a , Alt + a で昇順ソートが出来ることを今知った。orzhttp://sakura-editor.sourceforge.net/

RPC::XMLを~/perlへかやってインストールしようとしたら Expat.c:1997: error: expected ';'...... んな感じでエラーが起きた。XML::Parserでエラー起こしてるらしい。で、expatをDLしてきてREADME読んでインストールしたらちゃっかり入ってくれました。http…

OSを入れるときにがっり入れるコマンドが欲しい。 #!/bin/sh for pkg in zsh ..... do aptitude -y install $pkg done perlだとコンナンニなるのかね。モジュールなんも入ってない前提だしなあ。 #!/usr/bin/perl use strict; while( my $pkg = <DATA>) { chomp($p</data>…

こんなエラーが・・ DESTROY created new reference to dead object そうか、死んでんのね。参照するなと。http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/lib/Pod/perldiag.html

vim に色をつけるのをメモ。とりあえず、vim onlineから必要なファイルをDLColorSamplerPack.zip http://www.vim.org/scripts/script.php?script_id=625 # mkdir .vim # unzip ColorSamplerPack.zipplugin colors あとは、.vimrcへこんな感じで設定 colorsch…

boot methodが変わっていた。インストール時にguiが選択できるようになってた。 あと、インストール最中の画面がかっこよくて、ログイン画面もいけてる。 install installgui expert expertgui http://cdimage.debian.org/cdimage/weekly-builds/i386/iso-cd/

便利な変換君。 use String::CamelCase qw/camelize/; warn camelize("soi_ya_soi_ya"); こんな感じ。 SoiYaSoiYa http://search.cpan.org/~hio/String-CamelCase-0.01/lib/String/CamelCase.pm

こんなかんじで、配列初期化ができたのか。 struct hoge table[] = { { 1, "hoge" }, { 2, "hoge" }, }; http://www9.plala.or.jp/sgwr-t/c/sec15.html