Re: your mail

• To: Jason Burks <Jason.Burks@xxxxxxxx>
• Subject: Re: your mail
• From: Robb Kambic <rkambic@xxxxxxxxxxxxxxxx>
• Date: Tue, 9 May 2000 10:02:51 -0600 (MDT)

On 8 May 2000, Jason Burks wrote:

     Robb,

I have some code that can be used to decode the strings read out of the netcdf files in a slightly different manner than your example on the support archives. This method uses the pack command. Just thought I would send you the code: This example reads out the station name into @statName list which is decoded in the for loop and pushed into the @nameid list, an entry for each station. $length is the max length of the string. ######################################################################

     NetCDF::varget($ncid,$varidName,\@start,\@count,\@statName);

for ($counter=0; $counter<$#statName; $counter=$counter+$length-1) {

         push @nameid, pack("C*",@statName[$counter..$counter+$length-1]);
     }
     ######################################################################

Jason,

Yes, the pack code is a much cleaner solution.  Never thought of using it
until lately.  Will keep the code on-hand for future reference.


Thanks,

Robb...

Thought you might be interested in this. This is an alternative to the code below: for( $i = 0; $i <= $#STNS; $i += 4 ) {

             for( $j = $i; $j < ( $i + $stn_name_len ); $j++ ) {
                      $station .= chr( $STNS[ $j ] ) ;
             }
             print "Station = $station\n" ;
             undef( $station ) ;
        }

Jason

==============================================================================
Robb Kambic                                Unidata Program Center
Software Engineer III                      Univ. Corp for Atmospheric Research
rkambic@xxxxxxxxxxxxxxxx                   WWW: http://www.unidata.ucar.edu/
==============================================================================