I would like to add the Win32::API to the Perl which comes with get_iplayer. Is that possible?
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; } ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Thanks, David -- SatSignal Software - Quality software for you Web: https://www.satsignal.eu Email: david-tay...@blueyonder.co.uk Twitter: @gm8arv _______________________________________________ get_iplayer mailing list get_iplayer@lists.infradead.org http://lists.infradead.org/mailman/listinfo/get_iplayer
