[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Reading PC formated disks



Hi again,

I'm still having trouble reading PC formated disks. The suggestion of Bart
Lateur fixes one problem, but not all. I still get error #002 when I run
the following script as a droplet:

#!/usr/bin/perl -w

$folder_name = "@ARGV";
$folder_name =~ s/:^//;
print "$folder_name\n";

opendir(FOLDER,$folder_name) || die "Could not open $folder_name: $!";
@allfiles = readdir(FOLDER);

foreach $file (@allfiles){
    print "$file\n";
}

Thank You for any help you can give me.

Doug Spore