- or download this
#!/usr/bin/perl -w
use Memory::Usage;
...
close($EXT);
$muse->record('After file read');
$muse->dump();
- or download this
$ perl test_read.pl
time vsz ( diff) rss ( diff) shared ( diff) code ( diff)
+ data ( diff)
0 78300 ( 78300) 2120 ( 2120) 1412 ( 1412) 12 ( 12)
+ 1164 ( 1164) Begin
12 4538324 ( 4460024) 4373332 ( 4371212) 1428 ( 16) 12
+( 0) 4461188 ( 4460024) After file read
- or download this
$ perl test_read.pl
time vsz ( diff) rss ( diff) shared ( diff) code ( diff)
+ data ( diff)
0 78300 ( 78300) 2116 ( 2116) 1412 ( 1412) 12 ( 12)
+ 1164 ( 1164) Begin
17 6461328 ( 6383028) 6296400 ( 6294284) 1428 ( 16) 12
+( 0) 6384192 ( 6383028) After file read