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