「住所から緯度経度を取得する」の版間の差分

提供: dococo wiki
ナビゲーションに移動 検索に移動
imported>Webmaster
imported>Webmaster
1行目: 1行目:
<syntaxhighlight>
+
<syntaxhighlight lang="perl">
 
     my $file_name = $ARGV[0];
 
     my $file_name = $ARGV[0];
     chomp($file_name);
+
     chomp($file_name);//あああああ
 
      
 
      
 
     $lines = 0;
 
     $lines = 0;

2015年12月29日 (火) 09:14時点における版

    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;