Hmm, I've tried this but it doesn't seem to change the file permissions at
all on the backup file.  I checked into it, and my stat command or  $mode in
this case is equal to 33261.   Is that a normal output for the mode in the
stat command?  I'm on a Solaris 8 system.

Thanks,
Craig
(Sorry if the wording of this questions is horrible.   I'm just waking up)


> Here, this shows you the basics of retaining file permissions.
>
> #!/usr/bin/perl
> use warnings;
> use File::Copy;
> use strict;
> my $mode = (stat $ARGV[0])[2];
> copy( "$ARGV[0]", "$ARGV[0]\.bak" );
> chmod ($mode, "$ARGV[0]\.bak");
> print "Backup completed.\n";
> exit 0;
>
> --
> 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]

Reply via email to