#!/usr/bin/perl use warnings; use strict; use Devel::Leak; my ($count,$last,$handle); $last=0; foreach (0..2000) { $count = Devel::Leak::NoteSV($handle); print "C01: " . $count ."\t"; print "C02: " . Devel::Leak::NoteSV($handle) . "\t"; print "Diff: " . ($count-$last) . "\n"; $last = $count; } print "Check memory usage.In my box is around 230mb,return to finish"; <>
In reply to Abnormal memory in some modules by piotr
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |