1
0
mirror of https://github.com/imapsync/imapsync.git synced 2024-11-17 08:12:48 +01:00
imapsync/learn/splice_fetch
Nick Bebout 767b9a634c 1.164
2011-03-12 02:44:24 +00: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";
}