In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED] wrote:
> #!perl
>
> use strict;
> use warnings;
>
> my ($folder,$x,$file,$path);
> my @files;
>
> $folder = ":pdf:";
This won't work in Mac OS X. You must use Unix paths.
> opendir(PDF, "$folder") || die "$!";
> @files = readdir(PDF);
> close(PDF);
>
> for $x (0..$#files) {
> $file = $files[$x];
> $path = $folder . $file;
> if (-f $path) {
> MacPerl::SetFileInfo('CARO', 'PDF', $path);
> } # END FOR
You can use the MacPerl module under Mac OS X, if you install it. Use the
CPAN shell:
% perl -MCPAN -e shell
cpan> install MacPerl
See man perlmodinstall for more information.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
