AnsweredAssumed Answered

How to collect Trace on E4407B With Perl

Question asked by abishekm on Jan 13, 2012
Latest reply on Jan 24, 2012 by abishekm
Hi,

     I am trying to control E4407B with Perl and GPIB cable. I am confused with the following.

For trace collection I do the following :-

ibwrt($spa,":SWE:POIN 601;:FORM:TRAC:DATA REAL,32;:FORM:BORD SWAP;");
$lp = pack("f601", (0) x 601);
$lp=ibqry($ud,"*WAI;:TRAC:DATA? TRACE1;");
$lp=~s/^#\d+//;
@dec = unpack("f[601]",$lp);

Every thing works but the number of trace points collected are never 601. I do that by calculating the size of the @dec array and it keeps varying. the Max number is 61 points collected.

I would appreciate for a reply,

-Mann  

Outcomes