mirror of
https://github.com/lm-sensors/lm-sensors.git
synced 2026-11-02 13:30:30 +00:00
Philip Edelbrock
e9c1b45a44
the results to the display. Only the first four lines are read, and only the first 20 chars of each line are displayed. Example use: echo -e "hi\nthere,\nhow are\nyou?" | displayit.pl Displays this on the display: hi there, how are you? It doesn't get much simpler than this! TODO: The code isn't very efficient and goes slow for what it is doing. It assumes that the display is 20x4 (easily changable). And, it assumes that there is only one display. This is really more of a simple example than a feature-rich app. git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@483 7894878c-1315-0410-8ee3-d5d059ff63e0
32 lines
787 B
Perl
Executable File
32 lines
787 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.
|
|
|
|
|
|
# Clear the screen
|
|
$temp=`echo "254 88" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
|
|
# Turn off the blinking cursor
|
|
$temp=`echo "254 84" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
|
|
$line=1;
|
|
|
|
while (<STDIN>) {
|
|
# Reset the position of the cursor to the next line
|
|
$temp=`echo "254 71 1 $line" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
if (/^(.{1,20})/) {
|
|
$_=$1;
|
|
while (/(.)/gc) {
|
|
$temp=ord($1);
|
|
$temp=`echo "$temp" > /proc/sys/dev/sensors/matorb*/disp`;
|
|
}
|
|
}
|
|
$line= $line + 1;
|
|
if ($line > 4) { exit; }
|
|
}
|