Die NSLU2 Community****wenns ums speichern und streamen geht****

Source code

# Pragmas
use strict;

# Modules
use Device::SerialPort;

# Objekt fuer serielle Schnittstelle mu? vor dem Signalhandler bekannt sein !
my $portObj;

# Porteinstellungen

my %COM =  (
             'port'       => '/dev/ttyUSB0',  # kann auch USB1 sein -> probieren
             'baudrate'   => 9600,
             'parity'     => 'none',
             'databits'   => 8,
             'stopbit'    => 1,

             # Modembefehle -> passen fuer waterkotte -> anpassen
             'initstring' => 'AT&F',  # Initialisierung
             'praefix'    => 'ATDT',  # Waehlpraefix
             'reset'      => 'AT&F3'  # Zuruecksetzen
           );



# Objekt fuer serielle Schnittstelle erzeugen
$portObj = new Device::SerialPort ( $COM{'port'} )
              || die "Kann den Port nicht oeffnen: $^E\n";

# debugging-level -> kann hilfreich sein, später einfach weglassen
$portObj->debug(1);

# 9600 Baud / 8 Bit / 1 Stop / Parity none
$portObj->baudrate( $COM{'baudrate'} );
$portObj->databits( $COM{'databits'} );
$portObj->parity(   $COM{'parity'}   );
$portObj->stopbits( $COM{'stopbit'} );

# Buffer leeren
$portObj->lookclear();

# Modem initialisieren
$portObj->write( $COM{'initstring'}."\r" );

# fflush einstellen
$| = 1;

# request zusammenbauen -> hier sollte Dein initialisierungsstring stehen
# Also Deine Anfrage an die Heizung
my $request = 'xyz';

# Endlosschleife beginnen
while(1)
  {
    # Beginne mit Schreiben ...
    my $req_count = $portObj->write( $request );

    # Warten vor dem Einlesen -> Heizungen sind nicht so schnell ;-)
    sleep(2);

    # Antwort einlesen -> laenge fuer deine Heizungssteuerung anpassen.
    my $LEN = 315;
    my $in = $LEN + 10 + 20;  # 10 mehr wegen Offset und nochwas drauf wegen redundanter 0x10
                              # Probier, was Du brauchst
    my ( $count_in, $response ) = $portObj->read($in);

    # ab hier stehen die Daten in $response zur Verfügung
    # $count_in sagt Dir, wieviel Bytes von der Heizung geliefert wurden.


    sleep( 20 );  # Wartezeit bis zum nächsten Auslesen
  }  # while ...

# Bis hierher kommt man nicht !


$portObj->close();
$db->disconnect();
exit(0);

__END__