Shaunn
You should have no need of the additional quotation marks in your strings.
The spaces are unambiguous in this context.
my $dest='/i/Depression Management/Mailing/test_dir';
my $source='/i/Depression Management/Mailing/Dec2002';
Cheers,
Rob
----- Original Message -----
From: "Johnson, Shaunn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, December 17, 2002 5:26 PM
Subject: names with spaces
> Howdy:
>
> I thought that this worked, but, I have a script where
> I try to get a list of file names that have spaces
> and do something with those files (in this example,
> I'm making ISO images out of them).
>
> The problem is, the first step is to create a sub-directory
> in a path that have spaces in the names.
>
> I thought I fixed it, but, it seems that the script
> fails one way or the other (building the sub-directory
> or the creation of the files).
>
> Can someone tell me why this is not working?
>
> [snip script]
>
> #!/usr/bin/perl -w
> #use strict;
> use diagnostics;
>
> # created on 10 Dec 02
>
> #==================================================================
> # makeiso
> # featuring options for viewing from MS Windows OS
> #==================================================================
>
>
> ** errors here? **
>
> # where should the ISO images go?
> my $dest='/i/"Depression Management"/Mailing/test_dir';
>
> ** errors here, too? **
>
> # Where is data coming from?
> my $source='/i/"Depression Management"/Mailing/Dec2002';
>
>
> #------CREATE DIRECTORIES FOR EACH REGION OFR ISO IMAGES-------------
> mkdir "$dest", 0777 unless -d "$dest"; #create the /i/Depression
> Management/Mailing/
> #dec2002_iso_images
> directory
>
> foreach my $region qw(03 04 05 06) #qw=quote word equivalent to
> splitting
> # a single quoted string on white
> space
> {
> mkdir "$dest/$region",0777 unless -d "$dest/$region"; #create the
> /i/Depression Management/
>
> #Mailing/dec2002_iso_images\03...04...05...06 $directories
> print "$dest/$region \n";
> }
>
> #-------------------- BUILD ISO IMAGES --------------------
> # finally works ... test only one BU ...
> foreach my $group ( `ls -d1 $source/0*/*`) {
> ($bu, $pcgname)=($group =~ m/\/(0\d)\/(.*)/i);
> #`/usr/bin/mkisofs -o $dest/$bu/"$pcgname".iso -r
> $source/$bu/"$pcgname" `;
> ** i have to change the above again because "$<var_name>" no longer works
**
> `/usr/bin/mkisofs -graft-points -f -J -r -V 'Depression' -v -o
> $dest/$bu/"$pcgname.iso" $source/$bu/"$pcgname" `;
> }
>
> [/snip script]
>
> Is there an alternative to this? Like devise a BASE path and just
> mess with the images ...?
>
> Thanks!
>
> -X
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
