住所から緯度経度を取得する
2015年12月29日 (火) 09:13時点におけるimported>Webmasterによる版
my $file_name = $ARGV[0];
chomp($file_name);
$lines = 0;
open(FILE, $file_name) or die "Can't open `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;
print $lines;