RSS | Module Info | Add a review of AI-Fuzzy
AI-Fuzzy
(0.05)
Very simple to use. My life is not fuzzy now.
To see the cpu demo, apply this patch.
Many thanks
----------------- BEGIN PATCH -----------------
--- cpu.pl 2002-10-14 16:18:41.000000000 +0200
+++ cpu.pl-new 2005-04-29 15:14:59.303835607 +0200
@@ -3,7 +3,7 @@
use warnings;
use AI::Fuzzy;
-my $f = new AI::Fuzzy::Label;
+my $f = new AI::Fuzzy::Axis;
$f->addlabel("completely idle", 99, 100, 101);
$f->addlabel("very idle", 90, 95, 100);
@@ -25,10 +25,10 @@
for (1 .. $count ) {
$cpu = <STAT>; # read data
- $cpu =~ s/.* (\d+)$/$1/;
+ $cpu =(split(" ", $cpu))[14];
chomp $cpu;
- print "the cpu is: $cpu " . $f->label($cpu) . "\n";
+ print "the cpu is: $cpu " . $f->labelvalue($cpu) . "\n";
}
close STAT;
sleep 1;
----------------- END PATCH -----------------
YPERL - 2005-04-29T06:18:48 (permalink)
Was this review helpful to you?
Yes
No

