FileIOの仕方で処理速度改善

Perl

遅い方法

open IN XXXX;
while ( ) {
XXXX;
}

masa:~/work/access/bin sakuramasteo$ time ./logInitDB.sh
logfile
real 13m42.614s
user 11m43.880s
sys 0m26.760s

早い方法

open IN XXXX;
chomp( my @list = );
foreach (@list) {
XXXX;
}
masa:~/work/access/bin sakuramateo$ time ./logInitDB.sh
logfile

malloc: vm_allocate(size=8421376) failed (error code=3)
malloc[583]: error: Can't allocate region

Out of memory!

あ。ファイルが大きすぎた。
残念。。