Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^7: Need help with Modbus

by olibo (Initiate)
on Aug 20, 2013 at 19:28 UTC ( #1050229=note: print w/ replies, xml ) Need Help??


in reply to Re^6: Need help with Modbus
in thread Need help with Modbus

With Modbus 0.9 -> see http://search.cpan.org/~cosimo/Protocol-Modbus/lib/Protocol/Modbus/Transaction.pm ---

use Protocol::Modbus; # Initialize protocol object my $proto = Protocol::Modbus->new( driver=>'TCP' ); # Get a request object my $req = $proto->request( function => Protocol::Modbus::FUNC_READ_COILS, # or 0x01 address => 4016, # Register dispavgVpv from MidNight Charger quantity => 1, ); # Init transaction and execute it, obtaining a response my $trn = Protocol::Modbus::Transaction->new( request=>$req ); my $res = $trn->execute(); # Pretty-print response on stdout print $res . "\n"; # Modbus Response PDU(......)
##############################################
or you can use MBClient -> https://github.com/sourceperl/MBclient
use strict; use MBclient; my $m = MBclient->new(); # define server target $m->host("localhost"); $m->unit_id(1); # read 16 bits register from ad 0 to 9 my $words = $m->read_holding_registers(4100, 40); # First 40 Register +of MidNight Charger # print words foreach my $word (@$words) { print $word."\n"; } # clean exit $m->close(); exit 0;


Comment on Re^7: Need help with Modbus
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1050229]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2014-09-23 03:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (210 votes), past polls