why does this not work

[Lowell Kirsh]

I'm trying to write a simple file-copy script on Windows and I can't
figure out why it's not working. Here's part of what I have:

my $fromDir = "C:\\Documents and Settings\\user\\Application
Data\\Mozilla\\Profiles\\default\\iw2wx3e0.slt\\";

my $fromFile = "\"${fromDir}bookmarks.html\"";

Now, at this point, '-r $fromFile' returns false, but I know the file is
there because in the same script I put in 'system "cat $fromFile"' and
this print the contents to screen, proving the file is really there.
What am I doing wrong?

Lowell

 

[John J. Trammell]

I'm trying to write a simple file-copy script on Windows and I can't
figure out why it's not working. Here's part of what I have:

my $fromDir = "C:\\Documents and Settings\\user\\Application
Data\\Mozilla\\Profiles\\default\\iw2wx3e0.slt\\";

my $fromFile = "\"${fromDir}bookmarks.html\"";

^^ ^^

Too many "s.

How about:

my $from_dir = "C:/Documents and Settings/user/whatever/.../";
my $from_file = $from_dir . "bookmarks.html";

 

[John Bokma]

I'm trying to write a simple file-copy script on Windows and I can't

You use the File:: module(s) for this?

 

[Lowell Kirsh]

yes

You use the File:: module(s) for this?

 

[A. Sinan Unur]

I'm trying to write a simple file-copy script on Windows and I can't
figure out why it's not working. Here's part of what I have:

my $fromDir = "C:\\Documents and Settings\\user\\Application
Data\\Mozilla\\Profiles\\default\\iw2wx3e0.slt\\";

use strict;
use warnings;

use File::Spec;

my $full_path = File::Spec->catfile(
$ENV{USERPROFILE}, 'Application Data', 'Mozilla',
'Profiles', 'default', 'iw2wx3e0.slt', 'bookmarks.html'
);

print qq{"$full_path"};

Reduces time spent escaping quotes, slashes etc.

 

[Lowell Kirsh]

It seems a bit verbose to be using in my throw-away scripts. Perhaps
it'd be useful for longer programs. Thanks.