| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/CanBeispiel.pm |
use DivBasicF::CanSignals;
my $can_handle = DivBasicF::CanSignals->new("can_in.db","can_out.db",
{
0x34f => [3, "SIGNAL_AB=3", "SIGNAL_XY=4"],
0xd35 => [3, "CAN_SIG1=1", "ABC_VV=4"],
}
);
$can_handle->message("SIGNAL_AB=6");
my $stack = "";
my $time0 = time();
while (length($stack) < 100000 and (time() - $time0 < 100000)) {
$stack = $stack . join("\n",$can_handle->fetch(5));
if ($stack =~ /SIGNAL_AB=7(.*)ABC_VV=13/s) {
print "Bedingung erfuellt\n"; exit;
}
sleep 1;
}