Thread Parameterübergabe mittels system("abc.pl", "arg") (22 answers)
Opened by Oliver at 2014-08-28 13:42

Gast Oliver
 2014-08-29 19:03
#177044 #177044
Danke, Danke, Danke!!!
Diese Antwort habe ich gebraucht!!!

Entschuldigung:
Sollte ich hier jemandem auf den Schlipps getreten sein, so tut mir das leid! In keinster Weise wollte ich jemanden beleidigen oder mich undankbar für eure Antworten zeigen! Ich bin natürlich dankbar für jeden Beitrag, so er denn zum Thema und zur gestellten Frage / Problemstellung passt. (Wenn jemand nach Äpfeln fragt sollte man ihm keine Birnen anbieten....)

Ich mag nicht der Super-Perlprogrammierer sein. Meine Stärken bei diesem Projekt liegen eher in der Entwicklung der Elektronik, der einzelnen Steuerungen/Sensoren und der progammierung des uC's (die es in einer Vielzahl bei diesem Projekt gibt). Allerdings: "Erfolg gibt recht". Fragt man 5 Programmierer nach DER Lösung gibt es 10 Antworten. Hier hat halt jeder seinen Stil. Ja, sicherlich, es gibt schlechte Lösungen/Ansätze. Egal....

Nochmal:
Ich wollt' nicht böse sein! Suchte Aber nach einer Lösung des Problems und das hatte nichts mit dem RS232-port zu tun....

So, was haltet ihr von der Lösung über
Code: (dl )
1
2
3
4
5
use LWP::Simple;
my $query = new CGI;

my $script = "http://Benutzername:Kennwort\@192.168.0.2/cgi-bin/".$query->param('script');
getprint($script);


Und wieso ist der Ansatz der RS232-Schnittstelle so nicht zu bevorzugen?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use Device::SerialPort;
my $query = new CGI;

my $port = new Device::SerialPort("/dev/ttyUSB0");
$port->baudrate(9600);
$port->parity("none");
$port->databits(8);
$port->stopbits(1);
$port->handshake("xoff");
$port->write_settings;
$port->stty_echo("off");
$port->lookclear;
$port->purge_rx;
$port->write($query->param('befehl'));
$port->write(";");

Grüße
Last edited: 2014-08-29 19:05:41 +0200 (CEST)

View full thread Parameterübergabe mittels system("abc.pl", "arg")