[MacPerl] Resource question

[Richard Christensen <richard@crl.com>]

I am helping our company to cope with the Y2K problem. I have decided to 
write a perl script that will print out the version of each application 
on the hard drive.  I went to the "Finder Interface" chapter to find out 
the information on "vers" resource.  But I still can't make perl return 
anything that looks familiar.

This is what I do:

OpenResFile($file);
$res=Get1Resource("vers",1);
($a, $b, $c, $d, $e, $f, $g) = unpack("I I I I I2 C256 C256",$res);
print "$a $b $c $d $e $f $g \n";

( According to Fig 7-30 on page 7-70)

I have tried H to see if I could see anything familiar, but it returned the 
same stuff no matter the version number.

Any ideas?

-- 
         /\                  /\       .       /\____
 _-_    /  \       _/\      /  \     /\      /      \        /\ 
/   \  /    \     /   \  /\/    \   /  \_/\_/   Y    \  /\/\/  \
  u  \/      \___/     \/        \ /                  \/        \
----------------------------------v--------------------------------
Richard Christensen                                          KC7JPQ     
Austin, TX
richard@crl.com


***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch