You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
903 B
41 lines
903 B
5 years ago
|
#!perl
|
||
|
|
|
||
|
|
use File::Find;
|
||
|
|
|
||
|
|
# customize here
|
||
|
|
print "Running file size monitor\n";
|
||
|
|
|
||
|
|
LogDirectorySize("PC shader size", "../../../game/hl2/shaders","\.vcs","\.360\.vcs");
|
||
|
|
LogDirectorySize("PC Game Bin DLL size", "../../../game/bin/","\.dll","_360\.dll");
|
||
|
|
LogDirectorySize("360 shader size", "../../../game/hl2/shaders","\.360\.vcs");
|
||
|
|
LogDirectorySize("360 Game Bin DLL size", "../../../game/bin/","_360\.dll");
|
||
|
|
LogDirectorySize("tf texture size","../../../game/tf/materials/","\.vtf");
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
sub LogDirectorySize
|
||
|
|
{
|
||
|
|
my ($label, $basedir, $filepattern, $excludepattern ) = @_;
|
||
|
|
undef @FileList;
|
||
|
|
find(\&ProcessFile, $basedir);
|
||
|
|
my $total_size = 0;
|
||
|
|
foreach $_ (@FileList)
|
||
|
|
{
|
||
|
|
next if ( length($excludepattern) && ( /$excludepattern/i ) );
|
||
|
|
if (/$filepattern/i)
|
||
|
|
{
|
||
|
|
$total_size += (-s $_ );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print "$label := $total_size\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub ProcessFile
|
||
|
|
{
|
||
|
|
push @FileList, $File::Find::name;
|
||
|
|
}
|