Rob, John, Bob, thanks for all your help and suggestions. I took Rob's suggestion and
copied all the contents onto my hard drive:
[EMAIL PROTECTED]:~/RapheTask$ mkdir cd
[EMAIL PROTECTED]:~/RapheTask$ cp -aRv /cdrom cd/
`/cdrom' -> `cd/cdrom'
`/cdrom/JPEG Covers' -> `cd/cdrom/JPEG Covers'
`/cdrom/JPEG Covers/PLUGA164.jpg' -> `cd/cdrom/JPEG Covers/PLUGA164.jpg'
`/cdrom/JPEG Covers/PLUGA333.jpg' -> `cd/cdrom/JPEG Covers/PLUGA333.jpg'
`/cdrom/JPEG Covers/PLUGA376.jpg' -> `cd/cdrom/JPEG Covers/PLUGA376.jpg'
`/cdrom/JPEG Covers/PLUGA403.jpg' -> `cd/cdrom/JPEG Covers/PLUGA403.jpg'
`/cdrom/PDF Docs' -> `cd/cdrom/PDF Docs'
`/cdrom/PDF Docs/PLUGA164.pdf' -> `cd/cdrom/PDF Docs/PLUGA164.pdf'
`/cdrom/PDF Docs/PLUGA306.pdf' -> `cd/cdrom/PDF Docs/PLUGA306.pdf'
`/cdrom/PDF Docs/PLUGA333.pdf' -> `cd/cdrom/PDF Docs/PLUGA333.pdf'
`/cdrom/PDF Docs/PLUGA369.pdf' -> `cd/cdrom/PDF Docs/PLUGA369.pdf'
`/cdrom/PDF Docs/PLUGA370.pdf' -> `cd/cdrom/PDF Docs/PLUGA370.pdf'
`/cdrom/PDF Docs/PLUGA376.pdf' -> `cd/cdrom/PDF Docs/PLUGA376.pdf'
`/cdrom/PDF Docs/PLUGA394.pdf' -> `cd/cdrom/PDF Docs/PLUGA394.pdf'
`/cdrom/PDF Docs/PLUGA395.pdf' -> `cd/cdrom/PDF Docs/PLUGA395.pdf'
`/cdrom/PDF Docs/PLUGA400.pdf' -> `cd/cdrom/PDF Docs/PLUGA400.pdf'
`/cdrom/PDF Docs/PLUGA401.pdf' -> `cd/cdrom/PDF Docs/PLUGA401.pdf'
`/cdrom/PDF Docs/PLUGA403.pdf' -> `cd/cdrom/PDF Docs/PLUGA403.pdf'
[EMAIL PROTECTED]:~/RapheTask$ ls -lR cd/
cd/:
total 4
dr-xr-xr-x 4 kevinz kevinz 4096 Dec 31 1969 cdrom
cd/cdrom:
total 8
dr-xr-xr-x 2 kevinz kevinz 4096 Jan 16 2003 JPEG Covers
dr-xr-xr-x 2 kevinz kevinz 4096 Jan 16 2003 PDF Docs
cd/cdrom/JPEG Covers:
total 3868
-r-xr-xr-x 1 kevinz kevinz 806801 Jan 16 2003 PLUGA164.jpg
-r-xr-xr-x 1 kevinz kevinz 1475140 Jan 16 2003 PLUGA333.jpg
-r-xr-xr-x 1 kevinz kevinz 516976 Jan 16 2003 PLUGA376.jpg
-r-xr-xr-x 1 kevinz kevinz 1138129 Jan 16 2003 PLUGA403.jpg
cd/cdrom/PDF Docs:
total 28756
-r-xr-xr-x 1 kevinz kevinz 1154227 Jan 16 2003 PLUGA164.pdf
-r-xr-xr-x 1 kevinz kevinz 3369769 Jan 16 2003 PLUGA306.pdf
-r-xr-xr-x 1 kevinz kevinz 1394922 Jan 16 2003 PLUGA333.pdf
-r-xr-xr-x 1 kevinz kevinz 3156595 Jan 16 2003 PLUGA369.pdf
-r-xr-xr-x 1 kevinz kevinz 3308012 Jan 16 2003 PLUGA370.pdf
-r-xr-xr-x 1 kevinz kevinz 6116464 Jan 16 2003 PLUGA376.pdf
-r-xr-xr-x 1 kevinz kevinz 2167484 Jan 16 2003 PLUGA394.pdf
-r-xr-xr-x 1 kevinz kevinz 2177885 Jan 16 2003 PLUGA395.pdf
-r-xr-xr-x 1 kevinz kevinz 2884660 Jan 16 2003 PLUGA400.pdf
-r-xr-xr-x 1 kevinz kevinz 3121413 Jan 16 2003 PLUGA401.pdf
-r-xr-xr-x 1 kevinz kevinz 519212 Jan 16 2003 PLUGA403.pdf
[EMAIL PROTECTED]:~/RapheTask$
Then, I edited, listed and ran the program:
[EMAIL PROTECTED]:~/RapheTask$ cat ./processAVimages.pl
#! /usr/bin/perl -w
use strict;
use File::Find;
sub process_file {
print "$File::Find::name\n";
#Other operations will go here
}
find(\&process_file, '/home/kevinz/RapheTask/cd/');
[EMAIL PROTECTED]:~/RapheTask$ ./processAVimages.pl
/home/kevinz/RapheTask/cd
/home/kevinz/RapheTask/cd/cdrom
/home/kevinz/RapheTask/cd/cdrom/PDF Docs
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA164.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA306.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA333.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA369.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA370.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA376.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA394.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA395.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA400.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA401.pdf
/home/kevinz/RapheTask/cd/cdrom/PDF Docs/PLUGA403.pdf
/home/kevinz/RapheTask/cd/cdrom/JPEG Covers
/home/kevinz/RapheTask/cd/cdrom/JPEG Covers/PLUGA164.jpg
/home/kevinz/RapheTask/cd/cdrom/JPEG Covers/PLUGA333.jpg
/home/kevinz/RapheTask/cd/cdrom/JPEG Covers/PLUGA376.jpg
/home/kevinz/RapheTask/cd/cdrom/JPEG Covers/PLUGA403.jpg
[EMAIL PROTECTED]:~/RapheTask$
This is just the output expected and desired. Still don't know why this wouldn't work
this way when reading straight from the CD-ROM. This is a local CD drive, on the host,
and is not using Samba. But, I really appreciate the suggestions on a work-around that
will let me continue to make progress on my project.
Thanks, again.
-Kevin
>>> Rob Dixon <[EMAIL PROTECTED]> 07/25/03 04:03PM >>>
Kevin Zembower wrote:
> Thanks, Rob, for your note. I tried this:
> [EMAIL PROTECTED]:~/RapheTask$ perl t
> /cdrom
> /cdrom/JPEG Covers
> /cdrom/PDF Docs
> [EMAIL PROTECTED]:~/RapheTask$ cat t
> use strict;
> use warnings;
>
> use File::Find;
>
> find (sub{ print "$File::Find::name\n" }, '/cdrom/' );
> [EMAIL PROTECTED]:~/RapheTask$
>
> I think the failure is due to the different ways spaces in file
> names are treated in Windows vs. Unix. In Window's, they're
> allowed, in Unix, a space is a delimiter between files in a list.
>
No. Unix is even more tolerantt of strange characters than Windows: the
latter needs you to put the entire filename in quotes if it is to believe
you.
My guess is that your CD server software is playing strange games. If you
try
copying the entire CD contents to a local drive and then running your Perl
script
I am sure it will be OK. It may well be that the CD server can be configured
differently to prevent your problem. You're not working over Samba are you?
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
