mirror of
https://bitbucket.org/theswgsource/client-tools-1.2.git
synced 2026-01-16 23:04:40 -05: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";
|