SBSPSS/tools/Perl/pl/REP.PL

121 lines
1.9 KiB
Plaintext
Raw Normal View History

2000-08-29 18:26:01 +02:00
# main
#{
($ReportFile,$OldFile)=@ARGV;
if ($OldFile ne "")
{
ReadOldFile($OldFile);
}
&FindStuff($ReportFile);
#}
sub ReadOldFile
{
local ($INFILE)=@_;
open(INFILE) || die "Can't open in file $INFILE; $!";
while (<INFILE>)
{
chop $_;
next if ($_ eq "");
if (/^Reporting Section (\w+)\s/)
{
local($Section)=$1;
while (<INFILE>)
{
chop $_;
last if ($_ eq "");
if (/^(\w+)\s+(\d+)/)
{
local ($FileName)=$1;
local ($Size)=$2;
local ($SecFile)="$Section:$FileName";
$OldSecFileToSize{$SecFile}=$2;
}
}
}
else
{
die "Expection section got $_";
}
}
}
sub FindStuff
{
local ($INFILE)=@_;
open(INFILE) || die "Can't open in file $INFILE; $!";
while (<INFILE>)
{
chop $_;
last if (/^Program/);
if (/^\s[A-Z0-9]+\s[A-Z0-9]+\s([A-Z0-9]+)\s[A-Z0-9]+\s(\w+)+\s+\.(\w+)_.*/)
{
$Size=$1;
$Section=$2;
$File=$3;
push (@AllSecs,$Section) if (!$SecSeen{$Section}++);
$SecToRec{$Section}.="!" if ($SecToRec{$Section} ne "");
$SecToRec{$Section}.="$File:$Size";
}
}
close(INFILE);
foreach $Sec (@AllSecs)
{
local(@Recs)=split(/!/,$SecToRec{$Sec});
local(%SizeToFile);
local ($SizeInAll)=0;
foreach $DatRec (@Recs)
{
($File,$Size)= split(/:/,$DatRec);
$Size=hex($Size);
$SizeInAll+=$Size;
$SizeToFile{$Size}.=":" if ($SizeToFile{$Size} ne "");
$SizeToFile{$Size}.=$File;
}
$SizeK=$SizeInAll/1024;
print "\nReporting Section $Sec ($SizeK $SizeInAll)\n";
foreach $Num (sort numerically keys(%SizeToFile))
{
local(@Files)=split(/:/,$SizeToFile{$Num});
foreach $LastFile (@Files)
{
print "$LastFile\t$Num";
local($SecFile)="$Sec:$LastFile";
if ($OldSecFileToSize{$SecFile})
{
local($Changed)=$Num-$OldSecFileToSize{$SecFile};
print"\t$Changed";
# print"was $OldSecFileToSize{$SecFile}";
}
print "\n";
}
}
}
}
sub numerically { $b <=> $a;}