1 #! /usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use Quancom;

     6 use Data::Dumper;

     7 # use blib;

     8 

     9 MAIN: {

    10     my $q = new Quancom $ARGV[0];

    11 

    12     my $r;

    13 

    14     # switch on/off all lights on the first relais

    15     $r = $q->cmd("WB0100FF");

    16     print $r->ok ? $r->data : $r->error, "\n";

    17 

    18     sleep 1;

    19     $r = $q->cmd("WB010000");

    20     print $r->ok ? $r->data : $r->error, "\n";

    21 

    22     sleep 1;

    23     $r = $q->cmd("WB010001");	# 1 bit setzen

    24     print $r->ok ? $r->data : $r->error, "\n";

    25 

    26     sleep 1;

    27     $r = $q->cmd("WB010055");	# 0101|0101

    28     print $r->ok ? $r->data : $r->error, "\n";

    29 

    30     sleep 1;

    31     $r = $q->cmd("WB0100AA");	# 1010|1010

    32     print $r->ok ? $r->data : $r->error, "\n";

    33 

    34     sleep 1;

    35     $r = $q->cmd("SL010000000055");	# + 0101|0101

    36     print $r->ok ? $r->data : $r->error, "\n";

    37 }

    38