view release on metacpan or  search on metacpan

lib/Device/GPIB/Advantest/TR4131.pm  view on Meta::CPAN

# range is 70 to 470 full scale
# from screen of height 0 to 511
sub readData($)
{
    my ($self) = @_;

    my $data = $self->sendAndRead('OPTBW'); # Read 701 data points in 1402 bytes
    die "Could not read screen data" unless defined $data;
    my $length = length($data);
    die "Screen data wrong length $length" unless $length == 1402;
    my @decoded = unpack("n701", $data);
    return @decoded;
}

1;