Perl
と ミルキィホームズ
が好きです※個人の感想です
実は結構簡単なのに、異常な努力をしてしまう
事は結構あります。my @values = split(qr/,/, $input);
これで本当に大丈夫?
CSV の仕様は意外と複雑(だし、標準もない)。じゃあどうすれば?
my @ids = ... #処理したい10万件くらいのデータ
my $ceil = ceil(@ids/1000) - 1;
foreach my $i ( 0..$ceil ) {
my $start_index = $i * 1000;
my $end_index = $i != $ceil ? (($i + 1) * 1000 - 1) : $#ids;
my @sub_ids = @ids[$start_index..$end_index];
# @sub_ids が小配列なので、これ使って処理
}
my @ids = ... #10万件のidの配列
while ( my @sub_ids = splice(@ids, 0, 1000) ) {
# @sub_ids が小配列なので、これ使って処理
}
Use a spacebar or arrow keys to navigate