Changeset 490

Show
Ignore:
Timestamp:
06/18/99 06:51:16 (14 years ago)
Author:
phil
Message:

(Phil) Improved the speed by a lot.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lm-sensors/trunk/prog/matorb/displayit.pl

    r483 r490  
    1515$temp=`echo  "254 84" > /proc/sys/dev/sensors/matorb*/disp`; 
    1616 
    17 $line=1; 
     17$linenum=1; 
    1818 
    1919while (<STDIN>) { 
    2020# Reset the position of the cursor to the next line 
    21 $temp=`echo "254 71 1 $line" > /proc/sys/dev/sensors/matorb*/disp`; 
     21$temp=`echo "254 71 1 $linenum" > /proc/sys/dev/sensors/matorb*/disp`; 
    2222 if (/^(.{1,20})/) { 
    2323  $_=$1; 
     24  $line=""; 
    2425  while (/(.)/gc) { 
    2526   $temp=ord($1); 
    26    $temp=`echo "$temp" > /proc/sys/dev/sensors/matorb*/disp`; 
     27   $line="$line $temp"; 
    2728  } 
     29  $temp=`echo "$line" > /proc/sys/dev/sensors/matorb*/disp`; 
    2830 } 
    29  $line= $line + 1; 
    30  if ($line > 4) { exit; } 
     31 $linenum+=1; 
     32 if ($linenum > 4) { exit; } 
    3133}