Linux sh52.ich-4.com 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64
LiteSpeed
Server IP : 198.143.147.58 & Your IP : 216.73.217.21
Domains :
Cant Read [ /etc/named.conf ]
User : actualbuzz
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
vendor_perl /
PCP /
Delete
Unzip
Name
Size
Permission
Date
Action
LogSummary.pm
2.71
KB
-r--r--r--
2023-11-16 06:51
exceldemo.pl
3.48
KB
-r--r--r--
2023-11-16 06:51
extract.pl
563
B
-r-xr-xr-x
2023-11-16 06:51
Save
Rename
#!/usr/bin/perl use strict; use warnings; use PCP::LogSummary; my $archive = 't/db/20081125'; my @metrics = ( 'kernel.all.cpu.user', 'kernel.all.cpu.idle', 'kernel.all.cpu.intr', 'kernel.all.cpu.sys' ); my $results = PCP::LogSummary->new($archive, \@metrics, '@09:00', '@17:00'); #my $results = PCP::LogSummary->new($archive, \@metrics); foreach my $metric ( keys %$results ) { my $summary = $$results{$metric}; print "metric=", $metric, "\n"; print " average=", $$summary{'average'}, "\n"; print " samples=", $$summary{'samples'}, "\n"; }