Re: Allocated memory to Script

I added Memory::Usage to BrowserUk's script. Using it is simple. To start recording, do

$mu->record($your message here);
[download]

To stop, do

$mu->record->($msg here);
[download]

To insert the results at the end, there are a couple of ways that I like. I prefer "state()" which returns an arrayref.

#! perl -sl

use strict;
use warnings;
use Memory::Usage;
use Data::Dump qw(dump);

my $mu = Memory::Usage->new();
$mu->record('start =>');
open FH, '<', $ARGV[0] or die "file not found";

my $line = 0;
my %hash
;
while( <FH> ) {
    $hash{ $line } = undef;
    $line++;
}
close FH;
$mu->record('end   =>');
print dump($mu->state());
[download]

Comment on Re: Allocated memory to Script Select or Download Code

Replies are listed 'Best First'.
Re^2: Allocated memory to Script by BrowserUk (Patriarch) on Jul 08, 2011 at 12:42 UTC
I added Memory::Usage to BrowserUk's script That's all very well, but as the module doesn't work on Windows, it is entirely useless.	[reply]
Re^3: Allocated memory to Script by Khen1950fx (Canon) on Jul 08, 2011 at 13:30 UTC
According to this, it does work on Windows.	[reply]
Re^4: Allocated memory to Script by BrowserUk (Patriarch) on Jul 08, 2011 at 13:38 UTC
cygwin != Windows. `# Returns # (vsize, rss, shared pages, code pages, data+stack pages) # in kilobytes. Precision is to nearest 4k page. # TODO: Proc::ProcessTable so that we can support non-Linux? my $page_size_in_kb = 4; sub _get_mem_data { my ($class, $pid) = @_; sysopen(my $fh, "/proc/$pid/statm", 0) or die $!; sysread($fh, my $line, 255) or die $!;` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re^5: Allocated memory to Script by Anonymous Monk on Jul 08, 2011 at 13:41 UTC
Re^6: Allocated memory to Script by BrowserUk (Patriarch) on Jul 08, 2011 at 13:47 UTC
Re^4: Allocated memory to Script by Anonymous Monk on Jul 08, 2011 at 13:35 UTC
According to http://cpansearch.perl.org/src/DONEILL/Memory-Usage-0.201/lib/Memory/Usage.pm it doesnt `sysopen(my $fh, "/proc/$pid/statm", 0) or die $!;` [download] win32 doesn't have a /proc/	[reply] [d/l]