File::Copy

[Larry Guest]

Anyone know how to get File::Copy module to keep file permissions when
it copies from one location to another?

Thanks

[Wiggins D'Anconia]

Larry Guest wrote:

> Anyone know how to get File::Copy module to keep file permissions when
> it copies from one location to another?
>
> Thanks
>
>

"File::Copy also provides the "syscopy" routine, which copies the file
specified in the first parameter to the file specified in the second
parameter, preserving OS-specific attributes and file structure. For
Unix systems, this is equivalent to the simple "copy" routine, which
doesn’t preserve OS-specific attributes."

I suspect that means it can't... but wrapping it in your own routine
using 'stat' and 'chmod' to reset the permissions should be sufficient.

perldoc -f stat
perldoc -f chmod

Be sure to catch the part in the stat page about masking off the
filetype....

[url]http://danconia.org[/url]

[Tim Johnson]

Of course if it is using a system copy and you are using
NT/2000/XP/2003, then standard rules apply, i.e. copying from one device
to another won't necessarily copy the permissions, etc.

-----Original Message-----
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:David.Wagner@freight.fedex.com]
Sent: Tuesday, January 20, 2004 4:46 PM
To: [email]larry@opsource.net[/email]; [email]beginners@perl.org[/email]
Subject: RE: File::Copy

------------->SNIP<------------------

So if you are on any of the three systems above andyou are NOT
doing file handles, then the files should have the same file
permissions. If you are on something else, then someone on the list may
have what you need.

Wags ;)

[Jeff 'Japhy' Pinyan]

On Jan 21, zentara said:

>copy( "$ARGV[0]", "$ARGV[0]\.bak" );
>chmod ($mode, "$ARGV[0]\.bak");
>print "Backup completed.\n";

Why do you backslash the . in "$ARGV[0]\.bak" but not in "completed.\n"?

Long story short, you don't need to \ the . in either case, and you don't
need quotes around $ARGV[0] as the first argument to copy().

copy($ARGV[0] => "$ARGV[0].bak");

--
Jeff "japhy" Pinyan [email]japhy@pobox.com[/email] [url]http://www.pobox.com/~japhy/[/url]
RPI Acacia brother #734 [url]http://www.perlmonks.org/[/url] [url]http://www.cpan.org/[/url]
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]