Zahl:: Bytes:: Mensch ist eine Perl-Baugruppe, die Byteanzahl in für den Menschen lesbares Format konvertieren kann.

SYNOPSE

Gebrauch Zahl:: Bytes:: Menschliches qw (format_bytes);
$size = format_bytes (0); # 0
$size = format_bytes (2*1024); # 2.0K

$size = format_bytes (1_234_890, BS => 1000); # 1.3M
$size = format_bytes (1E9, BS => 1000); # 1.0G

# die OO Methode
$human = Zahl:: Bytes:: Human->new (BS => 1000, si => 1);
$size = $human->format (1E7); # 10MB
$human->set_options (null=> -);
$size = $human->format (0); # -

DIESES IST ALPHAsoftware: DIE UNTERLAGEN UND DER CODE ERLEIDEN ÄNDERUNGEN EINES TAGES (DANK, GOTT!).

Diese Baugruppe liefert einen Formatierer, der Byteanzahl zum üblichen lesbaren Format, wie 2.0K, 3.1G dreht, 100B. Sie wurde in der - h-Option der Unix-Hilfsprogramme wie DU, DF und ls für „für den Menschen lesbaren“ Ausgang angespornt.

Von der FreeBSD Mannseite von DF: http://www.freebsd.org/cgi/man.cgi?query=df

„Für den Menschen lesbarer“ Ausgang. Gerätensuffixe verwenden: Byte, Kilobyte,
Megabyte, Gigabyte, Terabyte und Petabyte zwecks verringern
Zahl der Digits bis vier oder weniger using Unterseite 2 für Größen.

Byte B
Kilobyte K = 2 ** 10 B = B 1024
Megabyte M = 2 ** 20 B = B 1024 * 1024
Gigabyte G = 2 ** 30 B = B 1024 * 1024 * 1024
Terabyte T = 2 ** 40 B = 1024 * B 1024 * 1024 * 1024

petabyte P = 2 ** 50 B = B 1024 * 1024 * 1024 * 1024 * 1024
exabyte E = 2 ** 60 B = 1024 * 1024 * 1024 * B 1024 * 1024 * 1024
zettabyte Z = 2 ** 70 B = B 1024 * 1024 * 1024 * 1024 * 1024 * 1024 * 1024
yottabyte O = 2 ** 80 B = 1024 * 1024 * 1024 * 1024 * 1024 * B 1024 * 1024 * 1024

Ich habe dieses Link gefunden, um ziemlich nützlich zu sein:

http://www.t1shopper.com/tools/calculate/

Wenn Sie wie sich fühlen, Hersteller, Sie hart-fahren kann Bytes, durch Leistungen von 1000 zu zählen beginnen (anstelle von großzügigen 1024). BS => 1000 einfach verwenden.

Aber wenn Sie ein Diskettehersteller sind und in den Geräten, von 1024000 zu zählen beginnen möchten (für Ihre „Platten MB-1.44“)? BS => 1_024_000 dann verwenden.

Wenn Sie wie ein Purist Academic sich fühlen, können Sie den Gebrauch von metrischen Vorzeichen entsprechend dem Dezember 1998standard durch den Iec erzwingen. Um die Geräte für Unterseite 1000 nie sich kümmern sind (B, kB, MB, GB, TB, PB, EB, ZB, YB) und, sogar falscher, sind die für Unterseite 1024 (B, KiB, MIB, Nachstelleisten, TiB, PiB, EIB, ZiB, YiB) mit den schrecklichen Namen: Bytes, kibibytes, mebibytes, usw. Alles, das Sie tun müssen, ist, si => 1. Aint zu verwenden dieses schöne das SI-System? Gelesen über es:

http://physics.nist.gov/cuu/Units/binary.html

Sie können ein reines Perl „ls versuchen - li.“ - angespornter Befehl mit dem Einzeiler, äh, Zweizwischenlage:

$-Perl - MNumber:: Bytes:: Human=format_bytes
- e printf „%5s %sn“, format_bytes (- s), $ _ für @ARGV *

Warum man solch eine Baugruppe schreibt? Weil, wenn Leute solche Sachen in C schreiben können, sie viel einfacheres in Perl geschrieben werden und dann wiederverwendet werden kann, refactored, mißbraucht worden. Und dann, wenn sie viel verbessert wird, kann etwas tapfere Seele sie zurück zu C an den Port anschließen (wenn nur für das warme Gefühl der schmerzlichen Programmierung).