住所から緯度経度を取得する

提供: dococo wiki
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;