C
Craig M. Votava
Folks-
I'm trying to do something fairly that should be
fairly easy, and obvious:
------------------------------------------------
my %info = split(/magic/, `pkginfo -l SUNWarc`);
print $info{VERSION};
------------------------------------------------
My problem is: what magic will make this work?
Here's my closest solution (using arrays for debugging):
---------------------------------------------------------
use Data:umper;
my @info = split(/^\s+(\S+\s+/m, `pkginfo -l SUNWarc`);
print STDERR Dumper(\@info);
---------------------------------------------------------
In my environment, info[0] is null, all the rest of the
array is exactly what I would expect. WHERE IS THIS INITIAL
NULL COMING FROM!!! Grrrr, I'm frustrated.
Any help is very much appreciated!
Thanks
-Craig Votava
Lucent Technologies
(e-mail address removed)
I'm trying to do something fairly that should be
fairly easy, and obvious:
------------------------------------------------
my %info = split(/magic/, `pkginfo -l SUNWarc`);
print $info{VERSION};
------------------------------------------------
My problem is: what magic will make this work?
Here's my closest solution (using arrays for debugging):
---------------------------------------------------------
use Data:umper;
my @info = split(/^\s+(\S+\s+/m, `pkginfo -l SUNWarc`);
print STDERR Dumper(\@info);
---------------------------------------------------------
In my environment, info[0] is null, all the rest of the
array is exactly what I would expect. WHERE IS THIS INITIAL
NULL COMING FROM!!! Grrrr, I'm frustrated.
Any help is very much appreciated!
Thanks
-Craig Votava
Lucent Technologies
(e-mail address removed)