Re: getatt in netcdf-perl

• To: Rorik Peterson <rorik@xxxxxxxxxxxxx>
• Subject: Re: getatt in netcdf-perl
• From: Jessica Thomale <jthomale@xxxxxx>
• Date: Fri, 5 Apr 2002 23:12:29 +0000

Rorik,

I think this is what you want to know.

You can use pack, so it would be

$unit = pack("C*",@var_att);
print $unit;

Hopefully, I got the syntax right,

Jessica


On Friday, April 5, 2002, at 10:04 PM, Rorik Peterson wrote:

I am new to the perl interface for netCDF and I'm using the test.pl
script in the distribution to learn from.  I want to get a variable's
attribute that is a string.  I only see a way to get it as an ASCII
array.  Currently I loop through the array with perl's chr to fix it,
but there must be a better way.  What am I missing? Transcript follow.

rorik@stickley$ ncdump sample.nc
netcdf sample {
dimensions:
     x = 2 ;
variables:
     int x(x) ;
             x:units = "meters" ;
data:

 x = 1, 2 ;
 }

rorik@stickley$ cat test.pl
#!/usr/bin/perl -w

use NetCDF;

my $ncid = NetCDF::open("sample.nc", NOWRITE);
my $varid = NetCDF::varid($ncid, "x");
NetCDF::attget($ncid, $varid, "units", \@var_att) == 0 or die;
print "@var_att\n";
foreach(@var_att) { print chr $_; }
print "\n";
rorik@stickley$ ./test.pl
109 101 116 101 114 115
meters

--
Rorik Peterson
Research Engineer

• References:
  • getatt in netcdf-perl
    • From: Rorik Peterson