- Installation on Windows
- Installation on Linux
- Testing the installation
- COPYRIGHT AND LICENCE
Lab::VISA::Installation - Installation guide for Lab::VISA
Install a 32-bit version of Strawberry Perl. Note that version 5.22 is not supported (see the comments below).
Install NI-VISA and the drivers required for your instruments. E.g. for GPIB you need the NI IEEE-488.2 driver.
Build and install with
On 64-bit windows one needs a 32-bit version of perl with GNU binutils version <= 2.24. Otherwise linking with the NI-VISA library will fail. The reason for this are the following bugs in the GNU binutils:
These are fixed in the most recent version of the binutils. Once this version (2.26) is included in Strawberry Perl, it should be possible to use a 64-bit version of perl.
It is not possible to use either 32-bit or 64-bit versions of Strawberry Perl 5.22 as this version uses binutils 2.25.
As a Linux user you will probably be able to figure out things yourself. Here is a rough outline:
Before you start, you must have the VISA library by National Instrument installed. If you plan to use GPIB connections (which is very likely), you must also have the necessary drivers (NI-488.2) for your GPIB adapter card installed. Refer to National Instruments' very good documentation for additional information:
Makefile.PLadapt the LIBS and INC settings according to your installation. This is what worked for me:
'LIBS' => ['-lvisa'], 'INC' => '-I/usr/local/vxipnp/linux/include/',
Then do the usual
perl Makefile.PL make make install
Here is a quick test program that you can run with perl -Mblib test.pl:
#!/usr/bin/perl use Lab::VISA; my ($status, $sesn) = Lab::VISA::viOpenDefaultRM(); printf "status: %x (%s)\n", $status, (($status == $Lab::VISA::VI_SUCCESS) ? "success" : "no success"); print "sesn: $sesn\n"; my ($status, $findList, $retcnt, $instrDesc) = Lab::VISA::viFindRsrc($sesn, "ASRL1::INSTR"); printf "status: %x (%s)\n", $status, (($status == $Lab::VISA::VI_SUCCESS) ? "success" : "no success"); print "findList: $findList\n"; print "retcnt: $retcnt\n"; print "instrDesc: $instrDesc\n"; __END__
(c) 2010,2011 Daniel Schröer, Andreas K. Hüttel, Daniela Taubert, and others. 2012 Andreas K. Hüttel 2016 Simon Reinhardt, Andreas K. Hüttel