1
0
mirror of https://github.com/imapsync/imapsync.git synced 2024-11-17 00:02:29 +01:00
imapsync/W/learn/splice_fetch
Nick Bebout c08a56e486 1.504
2012-09-02 19:08:57 -05:00

13 lines
146 B
Perl

#!/usr/bin/perl -w
$rt_big = [1..1000];
while (@t_small = splice(@$rt_big, 0, 33)) {
$rt_small = \@t_small;
print "@{$rt_small}", "\n";
}