diff options
| -rw-r--r-- | libvxi11client/perlbits/Client.pm | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/libvxi11client/perlbits/Client.pm b/libvxi11client/perlbits/Client.pm index 3c24def..9405464 100644 --- a/libvxi11client/perlbits/Client.pm +++ b/libvxi11client/perlbits/Client.pm @@ -81,23 +81,25 @@ VXI11::Client - Perl extension for interfacing with VXI-11 networked instruments vxi_startinterruptserver(); - my $instr = vxi_open("myintrumentshostname", 0); + my $instr = vxi_open("192.168.0.62", 0); $instr->vxi_lock(0); - $instr->vxi_write("*IDN?", -1, 0, 0); - my ($bytes, $buff, $reason) = $instr->vxi_read(256, 0, 0, 0); - print "got " . $bytes . ";" . $buff . "\n"; + $instr->vxi_write("*idn?"); + my ($bytes, $buff, $reason) = $instr->vxi_read(); + print "got " . $bytes . ";" . $buff . " reason " . $reason ."\n"; my ($error, $statusbyte) = $instr->vxi_readstatusbyte(0); + printf "status byte is " . $statusbyte . "\n"; + $instr->vxi_create_intr_chan(); - $instr->vxi_enable_srq(1, "myhandle"); - vxi_wait_for_interrupt(); - $instr->vxi_enable_srq(0, ""); + $instr->vxi_enable_srq("myhandle"); + vxi_wait_for_interrupt(); + $instr->vxi_disable_srq(); $instr->vxi_destroy_intr_chan(); - $instr->vxi_abort(); - $instr->vxi_clear(0); + $instr->vxi_abort(); + $instr->vxi_clear(0); $instr->vxi_trigger(0); - $instr->vxi_local(0); + $instr->vxi_local(0); $instr->vxi_remote(0); $instr->vxi_unlock(); |