Question

Below is my code:

foreach my $node (@switch_list) { 
    chomp $node;
    print "$node \n";
    my $f3 = ">$node.txt";
    chmod 0755, $f3;
    open FILE3, "$f3" or die "Could not open file:$! \n";
}

Here I want to create many files with full permission but it seems that file created with
permission: 0640 and not 0755.

Answer 1

You are doing:

my $f3 = ">$node.txt";
chmod 0755, $f3;

So Perl looks for a file named >$node.txt.

Instead do:

my $f3 = "$node.txt";
chmod 0755, $f3;
open FILE3, ">", "$f3" or die "Could not open file:$! \n";