mirror of
https://github.com/SWG-Source/swg-main.git
synced 2026-01-16 20:04:18 -05:00
16 lines
221 B
Raku
Executable File
16 lines
221 B
Raku
Executable File
# Perl script to sum up the size of files.
|
|
|
|
$sum = 0;
|
|
$entries = 0;
|
|
|
|
while (<>)
|
|
{
|
|
if (/^TF.+size=([0-9]+)\]$/)
|
|
{
|
|
$sum += $1;
|
|
$entries++;
|
|
}
|
|
}
|
|
|
|
print "Sum of size lines: $sum (from $entries contributing entries)\n";
|