mirror of
https://github.com/imapsync/imapsync.git
synced 2025-07-23 18:55:55 +02:00
1.504
This commit is contained in:
parent
495d5a9526
commit
c08a56e486
277 changed files with 692 additions and 10803 deletions
12
W/learn/splice_fetch
Normal file
12
W/learn/splice_fetch
Normal file
|
@ -0,0 +1,12 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
|
||||
|
||||
$rt_big = [1..1000];
|
||||
|
||||
|
||||
while (@t_small = splice(@$rt_big, 0, 33)) {
|
||||
$rt_small = \@t_small;
|
||||
print "@{$rt_small}", "\n";
|
||||
|
||||
}
|
Loading…
Add table
Add a link
Reference in a new issue