#!/usr/local/bin/perl
use Benchmark;

# お暇がありましたら、
# http://www.aleph.co.jp/~fujiwara/
# ↑ここ（Photo Gallery)も見てくださいな :-)

$datafile = $ARGV[0];
$count = $ARGV[1];

@t = timethese($count , {
	'ALL' => '&all;',
	'ARRAY' => '&array;',
	'STEP' => '&step;',
	'WC' => '&wc;',
});
exit;

sub array{
	my(@data);
	open (DATA, "< ./$datafile");
	@data = <DATA>;
	$lines = scalar @data;
	close DATA;
}
sub all{
	my(@data, $lines, $buf);
	open (DATA, "< ./$datafile");
	read(DATA, $buf, -s  "./$datafile");
	$lines = ($buf =~ tr/\n/\n/);
	close DATA;
}
sub step{
	my($lines);
	open (DATA, "< ./$datafile");
	while(<DATA>){
		$lines ++;
	}
#	print $lines;
	close DATA;
}

sub wc{
	my($lines);
	$lines = `wc --lines ./$datafile`;
}