File creation script

[ibaboom]

Good day. I have a file, I want to create directories only on a new file system with the same owners and group names.

so I have a input file that looks like:

____________________
# file: /filename/
# owner: me
# group: group
user::rwx
ser:uid:rwx
group::r--

# file: /filename/
# owner: you
# group: yourgroup
user::rwx
ser:uid:rwx
group::r--
__________________

I have figured out how to print directories and in reading the Cammel book 'Programming Perl' it says to put all of the variables into an array to save from making a lot of threads to the mkdir call. Not really sure how to do something like that. Thanks a lot A

[pc88mxer]

According to the setacl man page you can put the acl specification in a file, and its syntax is exactly what getacl produces. So, try this:

local($/) = "\n\n";

while (<>) {
  # read one acl stanza at a time

  open(TEMP, ">/tmp/acl");
  print TEMP;
  close(TEMP);

  # Determine $filename from $_

  if (m/^# file:\s*(.*)/m) {
    my $filename = $1;
    system("setacl", "-f", "/tmp/acl", "-r", "-s", $filename);
  } else {
    warn "unable to determine target filename in:\n$_\n";
  }
}

[jethro]

If I get you right, you want to find out whether a file is a directory or just a file.

That is quite easy:

if (-d $filename) { ... }

More info about file tests like -d can be found in the perlfunc man page around line 147, at the beginning of the alphabetical listing of the functions

[jethro]

You should have looked at the preview of your question. As it stands it needs too much time to comprehend (for me at least).

Could you please post your question again, better formatted this time. Please use the code-tag. Please read the helpfull information on the posting page.

[apl]

In addition to what jethro said, could you give an example of what ti is you wish to see as the result? I don't understand what how can I make the program ommit actual file names means.