From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stefan Schantl To: development@lists.ipfire.org Subject: [PATCH 04/19] general-functions.pl: Add formatBytes() function. Date: Mon, 13 Apr 2020 09:45:35 +0200 Message-ID: <20200413074550.2735-4-stefan.schantl@ipfire.org> In-Reply-To: <20200413074550.2735-1-stefan.schantl@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============9191321100417727147==" List-Id: --===============9191321100417727147== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable This function can be used to convert an amount of bytes to a humand-readable format. For example "3221225472" will become "3MB". Signed-off-by: Stefan Schantl --- config/cfgroot/general-functions.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-fun= ctions.pl index 41a0eac2d..692e072c2 100644 --- a/config/cfgroot/general-functions.pl +++ b/config/cfgroot/general-functions.pl @@ -1261,4 +1261,29 @@ sub get_nameservers () { return &uniq(@nameservers); } =20 +# Function to format a string containing the amount of bytes to +# something human-readable.=20 +sub formatBytes { + # Private array which contains the units. + my @units =3D qw(B KB MB GB TB PB); + + my $bytes =3D shift; + my $unit; + + # Loop through the array of units. + foreach my $element (@units) { + # Break loop if the bytes are less than the next unit. + last if $bytes < 1024; + + # Divide bytes amount with 1024. + $bytes /=3D 1024; + + # Assign current processed element to unit. + $unit =3D $element; + } + + # Return the divided and rounded bytes count and the unit. + return sprintf("%.2f %s", $bytes, $unit); +} + 1; --=20 2.26.0 --===============9191321100417727147==--