danvics/R710-Fan-Control
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

don't try to add non-numbers (particularly since will break the

Browse source 
average calcualtion), but do warn about them.
This commit is contained in:
Tim Connors 2021-12-06 22:31:37 +11:00
parent a45d13b353
commit 11bd6fa398
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
R710-IPMI-TEMP/fan-speed-control.pl
View file

@ -42,6 +42,15 @@ my $lastfan;
my $print_stats = 1; my $print_stats = 1;
sub is_num {
my ($val) = @_;
if ( $val =~ /^[-+]?(\d*\.?\d+|\d+\.?\d*)+$/ ) {
return 1;
}
print "is_num($val)=0\n" if !$quiet;
return 0;
}
# returns undef if there are no inputs, and ignores inputs that are # returns undef if there are no inputs, and ignores inputs that are
# undef # undef
sub average { sub average {
@ -50,7 +59,7 @@ sub average {
my $div = 0; my $div = 0;
my $tot = 0; my $tot = 0;
foreach my $v (@v) { foreach my $v (@v) {
if (defined $v) { if (defined $v && is_num($v)) {
$tot += $v; $tot += $v;
$div++; $div++;
} }