| … | |
… | |
| 101 | ), "\n"; |
101 | ), "\n"; |
| 102 | |
102 | |
| 103 | $count++ & 4095 or warn time . " $count"; |
103 | $count++ & 4095 or warn time . " $count"; |
| 104 | |
104 | |
| 105 | if ($count == 20_000_000) { |
105 | if ($count == 20_000_000) { |
|
|
106 | while (%cache) { |
| 106 | warn "copying cache to db...\n"; |
107 | warn "copying cache to db...\n"; |
| 107 | %cache2 = %cache; |
108 | while (my ($k, $v) = each %cache) { |
|
|
109 | $cache2{$k} = delete $cache{$k}; |
|
|
110 | } |
|
|
111 | } |
| 108 | warn "nuking mem cache...\n"; |
112 | warn "nuking mem cache...\n"; |
| 109 | undef %cache; |
113 | undef %cache; |
| 110 | warn "assigning db cache...\n"; |
114 | warn "assigning db cache...\n"; |
| 111 | *cache = \%cache2; |
115 | *cache = \%cache2; |
| 112 | } |
116 | } |
