Serieel naar Mysql

[Henk ....]

Hoi,

Ik heb een applicatie draaien aan mijn server en die lever Serieel via
comport 1 platte text aan en deze text wil ik een mysql database stoppen.is
er iemand die mij kan vertellen hoe ik dat kan realiseren of moet ik daar
een programmaatje voor (laten)maken
De outputstring van de seriële poort is komma gescheiden

wie kan mij op weg helpen

Henk....

[Erik Hensema]

On Fri, 2 Jun 2006 09:59:30 +0200, Henk .... (henkvanhellum@versatel.nl) wrote:
> Ik heb een applicatie draaien aan mijn server en die lever Serieel via
> comport 1 platte text aan en deze text wil ik een mysql database stoppen.is
> er iemand die mij kan vertellen hoe ik dat kan realiseren of moet ik daar
> een programmaatje voor (laten)maken
> De outputstring van de seriële poort is komma gescheiden
>
> wie kan mij op weg helpen

Klinkt als een mooi klusje voor perl.

use DBI;

my $db = new DBI(...);

open COM, "/dev/ttyS0" || die "kan compoort niet openen: $!";

$query = $db->prepare(q/
INSERT INTO table SET
veld1 = ?,
veld2 = ?,
veld3 = ?
/);

while(<COM>) {
chomp;
($veld1, $veld2, $veld3) = split /,/;

$query->execute($veld1, $veld2, $veld3);
}

simple as that :-)

naja, het is niet helemaal correcte code natuurlijk, maar veel
moeilijker hoef je het niet te maken.

--
Erik Hensema (erik@hensema.net)
Please note that my From: field is spamtrapped.

[Henk ....]

"Erik Hensema" <usenet@smac.hensema.net> schreef in bericht
news:slrne80os7.e70.usenet@bender.home.hensema.net ...
> On Fri, 2 Jun 2006 09:59:30 +0200, Henk .... (henkvanhellum@versatel.nl)
> wrote:
>> Ik heb een applicatie draaien aan mijn server en die lever Serieel via
>> comport 1 platte text aan en deze text wil ik een mysql database
>> stoppen.is
>> er iemand die mij kan vertellen hoe ik dat kan realiseren of moet ik daar
>> een programmaatje voor (laten)maken
>> De outputstring van de seriële poort is komma gescheiden
>>
>> wie kan mij op weg helpen
>
> Klinkt als een mooi klusje voor perl.
>
> use DBI;
>
> my $db = new DBI(...);
>
> open COM, "/dev/ttyS0" || die "kan compoort niet openen: $!";
>
> $query = $db->prepare(q/
> INSERT INTO table SET
> veld1 = ?,
> veld2 = ?,
> veld3 = ?
> /);
>
> while(<COM>) {
> chomp;
> ($veld1, $veld2, $veld3) = split /,/;
>
> $query->execute($veld1, $veld2, $veld3);
> }
>
> simple as that :-)
>
> naja, het is niet helemaal correcte code natuurlijk, maar veel
> moeilijker hoef je het niet te maken.

perl zegt mij nix maar ik zal me er eens in verdiepen

Henk