Fhem Cul Schnittstelle

[hugo]

Hallo,

Problem mit USB-Schnittstellen.
Nach dem Start von Fhem funktioniert der I/R-Kopf zum Lesen des Stromzaehlers nicht mehr richtig!
Wo kann festgelegt werden, dass Fhem nur die Schnittstelle für den CUL verwendet
oder welche Einstellung muß ich treffen, damit beide Geräte ordentlich laufen.
Überwacht fhem die Schnittstellen bzw. modifiziert er diese?

Hardware:
Raspberry
I/R-Kopf http://wiki.volkszaehler.org/hardware/controllers/ir-schreib-lesekopf-usb-ausgang (/dev/ttyUSB0)
CUL CC1101-USB-Lite 868MHz (/dev/ACM0)

fhem.cfg:
define CUL_0 CUL /dev/ttyACM0@38400 1234
attr CUL_0 rfmode HomeMatic

lsusb:
Bus 001 Device 008: ID 10c4:ea60 Cygnal Integrated Products, Inc. CP210x UART Bridge / myAVR mySmartUSB light
Bus 001 Device 005: ID 05e3:0605 Genesys Logic, Inc. USB 2.0 Hub [ednet]
Bus 001 Device 006: ID 13fe:3600 Kingston Technology Company Inc.
Bus 001 Device 007: ID 03eb:204b Atmel Corp. LUFA USB to Serial Adapter Project


root@raspberrypi:~# /etc/init.d/fhem start
Starting fhem...
root@raspberrypi:/home/pi# perl auslese.pl
6 Bytes written
6.121                     <== bei jedem Ausführen unterschiedlich
)4W                        <== bei jedem Ausführen unterschiedlich
^C
root@raspberrypi:/home/pi# /etc/init.d/fhem stop
Stopping fhem...
root@raspberrypi:/home/pi# perl auslese.pl
6 Bytes written

/?!
/ACE\3k26V1.18
F.F()
C.1(112611529187)
C.5.()
1.8.(3488.3*kWh)
2.8.(5483.7*kWh)
^C

Perl-Script zum auslesen des Stromzaehlers "ace3000 typ 260 itron" mit I/R Kopf:
-------auslese.pl-------------------
my $PORT='/dev/ttyUSB0';
my $anforderungstelegramm = "\n/?!\r\n";

use warnings;
use strict;
use utf8;
use Device::SerialPort;

my $tty = new Device::SerialPort($PORT) || die "can't open $PORT: $!";
$tty->baudrate(300) || die 'fail setting baudrate';
$tty->databits(7) || die 'fail setting databits';
$tty->stopbits(1) || die 'fail setting stopbits';
$tty->parity("even") || die 'fail setting parity';
$tty->write_settings || die 'fail write settings';
#$tty->debug(1);

my $num_out = $tty->write($anforderungstelegramm);
die "write failed\n" unless ($num_out);
die "write inclomplete\n" unless ($num_out == length($anforderungstelegramm));
print "$num_out Bytes written\n";

my ($num_read, $s);
$tty->read_const_time(15);
while(1) {
($num_read, $s) = $tty->read(1);
print $s if $s;
};
$tty->close || die "can't close $PORT: $!";
-------------------------------------------