On 07/12/2021 06:39, David Taylor wrote:
I would like to add the Win32::API to the Perl which comes with
get_iplayer.
Is that possible?
Surely, on a Windows machine, all the necessary Win32::* should be
installed already? What does the following command sequence give for
you, my output is as below:
>cpan
cpan> m Win32::API
Module id = Win32::API
CPAN_USERID BULKDD (Daniel Dragan <bul...@cpan.org>)
CPAN_VERSION 0.84
CPAN_FILE B/BU/BULKDD/Win32/Win32-API-0.84.tar.gz
MANPAGE Win32::API - Perl Win32 API Import Facility
INST_FILE C:\Programs\Perl\lib\Win32\API.pm
INST_VERSION 0.84
cpan> q
Lockfile removed.
More generally, if you want to see all the modules beginning with
'win32', you can substitute the following for the cpan command:
cpan> m /^win32.*/
Here is the script I'm trying to run. It analyses two directories for
their
total size and returns an output in a format suitable for MRTG. Perhaps I
should just substitute Win64 for Win32? I've only used Win32 before.
Here's the script in case it clarifies things...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# From: http://www.perlmonks.org/?node_id=2311
# and: https://rt.cpan.org/Public/Bug/Display.html?id=61520
# Note that Windows Vista/Server 2008 or later is required for
GetTickCount64.
# This version returns bytes, not MB.
use strict;
use Win32::API;
use Sys::Hostname;
my $GetTickCount;
$GetTickCount = Win32::API->new("kernel32", "int GetTickCount64()");
my $uptime;
my $dir1 = '.';
my $dir2 = '.';
if (@ARGV[0] ne "") {
$dir1 = @ARGV[0];
}
if (@ARGV[1] ne "") {
$dir2 = @ARGV[1];
}
print &dir_tree_size($dir1) . "\n";
print &dir_tree_size($dir2) . "\n";
$uptime = $GetTickCount->Call() / 1000;
printf "%d day(s) %dh %dm\n", int($uptime/86400),
int(($uptime/3600)%24),
int(($uptime%3600)/60);
print "PC " . hostname . "\n";
exit 0;
sub dir_tree_size {
my $dir = shift;
my ($i,$total, $f);
$total = 0;
opendir DIR, $dir;
my @files = grep !/^\.\.?$/, readdir DIR;
for $i (@files) {
$f = "$dir/$i";
if(-d $f) {
$total += dir_tree_size($f) }
else {
$total += -s $f}
}
return $total;
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Although I've written one quite complicated script in Perl, to call
GetIPlayer as it happens, I don't program in it often enough to class
myself as expert enough to help with the above, but perhaps this helps,
it shells out to DOS:
https://bytes.com/topic/perl/answers/852485-directory-size-windows-activeperl
_______________________________________________
get_iplayer mailing list
get_iplayer@lists.infradead.org
http://lists.infradead.org/mailman/listinfo/get_iplayer
