CLIX - Fazer Clix Custa Nix/CLIX-CD.cdr/mac/lib/env/env.rsrc/TEXT_128_!.txt

Text File | 1999-10-07 | 566 b | 42 lines

print "Environment: (%ENV)\n";
print %ENV;
print "\n";

while( ($key,$val) = each %ENV)
   {
   print "key=\"$key\"    val=\"$val\"\n";
   }

print "\nIncludes: (@INC)\n";

foreach $key (@INC)
   {
   print "key=\"$key\"\n";
   }

print "\nVolumes:\n";
@VOL = &MacPerl'Volumes();

foreach $key (@VOL)
   {
   print "key=\"$key\"\n";
   }

$hd = $VOL[0];
$hdf = $hd;
$hdf =~ s/:([^:]*)$//;
$hdf = $1;

print "HD <$hd> HDF <$hdf>\n";

print "Open File\n";
open(IN,"<:File:Copy.pm");
while(<IN>)
   {
print "OK :File:Copy.pm <$_>\n";
last;
   }
close(IN);

print "\n";