「住所から緯度経度を取得する」の版間の差分
ナビゲーションに移動
検索に移動
imported>Webmaster |
imported>Webmaster |
||
| 1行目: | 1行目: | ||
| − | <syntaxhighlight | + | <syntaxhighlight> |
| − | + | 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; | ||
| + | |||
</syntaxhighlight> | </syntaxhighlight> | ||
---- | ---- | ||
<!-- カテゴリに追加するページ名を記入 --> | <!-- カテゴリに追加するページ名を記入 --> | ||
[[Category:Perl|じゅうしょからいどけいどをしゅとくする]] | [[Category:Perl|じゅうしょからいどけいどをしゅとくする]] | ||
2015年12月29日 (火) 09:13時点における版
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;