mirror of
https://github.com/lm-sensors/lm-sensors
synced 2025-09-18 13:54:58 +00:00
949f5199c5
git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@491 7894878c-1315-0410-8ee3-d5d059ff63e0
33 lines
784 B
Perl
Executable File
33 lines
784 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# This is a simple perl script to display a 'screen'
|
|
# on a Matrix Orbital Display. In this case, this
|
|
# script will read the first four lines (up to 20
|
|
# chars a line) and display them on the display.
|
|
|
|
# Written and copywritten (C) by Philip Edelbrock, 1999.
|
|
|
|
|
|
# Turn off the blinking cursor
|
|
$temp=`echo "254 84" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
|
|
$linenum=1;
|
|
|
|
while (<STDIN>) {
|
|
# Reset the position of the cursor to the next line
|
|
$temp=`echo "254 71 1 $linenum" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
chop;
|
|
$_="$_ ";
|
|
if (/^(.{1,20})/) {
|
|
$_=$1;
|
|
$line="";
|
|
while (/(.)/gc) {
|
|
$temp=ord($1);
|
|
$line="$line $temp";
|
|
}
|
|
$temp=`echo "$line" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
}
|
|
$linenum+=1;
|
|
if ($linenum > 4) { exit; }
|
|
}
|