scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 18:58:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

Utils: adds expand_unit_str()

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-23 20:25:42 -07:00
parent fff56c0a10
commit e3f670abe3
1 changed files with 31 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
LANforge/Utils.pm
View File

@@ -1080,6 +1080,37 @@ sub hunks_to_hashes {
return $rh;
}
sub expand_unit_str {
my ($self, $string) = @_;
die("Utils::expand_unit_str expects string to parse")
if (!(defined $string) || ("" eq $string));
return 0 if ($string =~ /^0+\s*\w+$/);
my ($num, $suf) = $string =~ /^(\d+)\s*(\w*)$/;
if (!(defined $num) || ("" eq $num)) {
die("Utils::expand_unit_str exects something like 33Mbps or '33 Mbps', not $string");
}
my $multiplier = 1;
if (!(defined $suf) || ("" eq $suf)) {
$multiplier = 1;
print STDERR "Utils::expand_unit_str saw no suffix in [$string]\n";
}
elsif ($suf =~ /^bps$/i) {
$multiplier = 1;
}
elsif ($suf =~ /^kbps$/i) {
$multiplier = 1000;
}
elsif ($suf =~ /^mbps$/i) {
$multiplier = 1000 * 1000;
}
elsif ($suf =~ /^gbps$/i) {
$multiplier = 1000 * 1000 * 1000;
}
return int($num) * $multiplier;
}
####
1;
__END__