#! perl -w
# Perlprocdata.pm by Rudif@bluemail.ch

use strict;

package Perlprocdata;


# uses Win32::IProcess by Amine Moulay Ramdane                
# from website: http://www.generation.net/~aminer/Perl/ 


use Win32::IProcess qw(
	PROCESS_QUERY_INFORMATION PROCESS_VM_READ INHERITED INHERITED DIGITAL NOPATH
);  


#----------------------------------------------------------
sub new {
    my ($class, %args) = @_;
    my $self = {};
    bless $self, $class;

	my $obj = $self->{obj} = new Win32::IProcess || die "Can not create an IProcess object..\n";

	my @EnumInfo;
	$obj->EnumProcesses(\@EnumInfo);

	my $size=scalar(@EnumInfo);

	for(my $j=0;$j<$size;$j++) {
		if ($EnumInfo[$j]->{ProcessName} =~ /perl/i) {
			$self->{EnumInfo} = $EnumInfo[$j];
			my $Info;
			$obj->GetProcessMemInfo($EnumInfo[$j]->{ProcessId},\$Info);
			$self->{Info} = $Info;
			my @data = (
				$EnumInfo[$j]->{ProcessName},
				$Info->{PageFaultCount},
				$Info->{PeakWorkingSetSize},
				$Info->{WorkingSetSize},
				$Info->{QuotaPagedPoolUsage},
				$Info->{QuotaNonPagedPoolUsage},
				$Info->{PagefileUsage});
		}
	}

    return $self;
}

#----------------------------------------------------------
sub getProcessMemInfo {
	my $self = shift;
	$self->{obj}->GetProcessMemInfo($self->{EnumInfo}{ProcessId},\$self->{Info});
}

#----------------------------------------------------------
sub printProcessMemInfoShort {
	my $self = shift;
	$self->getProcessMemInfo;
	printf("\n\n%17.15s%15.14s%12.11s%12.11s\n\n",
            "[Name]","[PageFaults/s]", "[PeakWS]","[WS]")
            unless $self->{printed}++;
	printf("%17.15s%15.14s%12.11s%12.11s\n",
		$self->{EnumInfo}{ProcessName},
		$self->{Info}{PageFaultCount},
		$self->{Info}{PeakWorkingSetSize},
		$self->{Info}{WorkingSetSize});
}

1;

__END__