tux242 has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to resolve a permissions issue with either a touch from the shell side in an if then equality clause like if file is not present then create file in the script below so i do not have to chmod every 5 seconds through the iteration, any suggestions for this fix using Perl

#! /usr/bin/perl
use strict;
use warnings;

my @SERVERS = ('server','server2','server3');
my $path = "/home/backup/nightly";

foreach my $this_server ( @SERVERS ) {
    #`if $this_server eq 0 then touch $this_server`;
 `chmod 775 *`;
 `cp $path/$this_server/etc_passwd ./passwds.$this_server`;
 `chmod 775 *`;
 
}

[download]

Thanks in advance.

Replies are listed 'Best First'.
Re: chmod permission issues
by Roy Johnson (Monsignor) on Nov 20, 2003 at 20:44 UTC
    chmod is a builtin function in Perl. However, you should be able to preserve permissions with the -p option to cp.
[reply]
Re: chmod permission issues
by asarih (Hermit) on Nov 20, 2003 at 23:24 UTC
    I think you want to look at umask.

    But a bigger question is: Why do you want to use perl for this? When you have so many backticks, you should question if perl is the right tool at all.

    It is much simpler in shell. For example, in ksh: 

    umask 002
set -A SERVERS server server2 server3
path="/home/backup/nightly"

while (( $i < ${#SERVERS[*]} )); do
  cp ${path}/${i}/etc_passwd passwds.${i}
  (( i = i + 1 ))
done

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom