mirror of
https://bitbucket.org/swgmasters/client-tools.git
synced 2026-07-14 05:01:37 -04:00
16 lines
221 B
Raku
16 lines
221 B
Raku
# 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";
|