File size distribution: Difference between revisions

m
→‎{{header|Perl}}: made output match code
m (→‎{{header|REXX}}: updated some output.)
m (→‎{{header|Perl}}: made output match code)
Line 285:
$total += $size while (undef,$size) = each %fsize;
 
push @res,print "File size distribution in bytes for directory: $dir\n";
for (0 .. max(keys %fsize)) {
printf "# files @ %4sb %8s: %s\n", $_ ? '10e'.($_-1) : 0, $fsize{$_} // 0,
Line 304:
sub log10 { my($s) = @_; $s ? int log($s)/log(10) : 0 }</lang>
{{out}}
<pre>File size distribution in bytes for directory: .
<pre># files @ 0b 5:
# files @ 10e0b 46455: ████████████████████████████████████████████████████████████████████████████████
# files @ 10e1b 26146: ████████████████████████████████████████▋
2,392

edits