Help for this page

Select Code to Download


  1. or download this
    # $d as data
# $mbc as ModBusControl
# $r as response
my ( $d, $mbc, $r )=( shift, MBclient->new(), undef );
  2. or download this
    my $data = shift;
my $mod_bus_control = MBClient->new;
my $response = undef;
  3. or download this
    $mbc->host    ( $d->{ip}   );
$mbc->port    ( $d->{port} );
$mbc->unit_id ( 0 );
  4. or download this
    $mbc->host( $d->{ip} );
$mbc->port( $d->{port} );
$mbc->unit_id( 0 );