Reading folder content and permissions

[31special]

I want to tweak a small program I'm creating. It will read a directory and if it finds a file inside the directory with executable permissions it should do something.

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {

next if $name =~ /^\./;


if (-x $name)
{
 print "Do something";
}


}

closedir DIR;

[eWish]

Have a look at File::Find or File::Find::Wan ted either one will make this task simple.

--Kevin

[KevinADC]

I want to tweak a small program I'm creating. It will read a directory and if it finds a file inside the directory with executable permissions it should do something.

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {

next if $name =~ /^\./;


if (-x $name)
{
 print "Do something";
}


}

closedir DIR;

OK, is there a problem with the code you have? Does it not work? Did you look up what the -x file test operator does? You also have this question on multiple forums, check them too.

[nithinpes]

Absolute filename is required for a file test like -x to pass. That means you should include the complete path of the file for the test to pass, not just the filename.
Change the code to:

#!/usr/bin/perl
 
my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";
 
while (my $name = readdir DIR) {
next if $name =~ /^\./;
$name = $dir_to_process.'/'.$name;  ##append the directory path 
if (-x $name)
{
 print "Do something";
}
 
}
 
closedir DIR;

- Nithin

[KevinADC]

Absolute filename is required for a file test like -x to pass

I suggested that on another forum where he posted this same question. The file test operator will work if the script is in the directory where the files are. If not he has to use the full path or chdir() into the directory where the files are.

[31special]

I uncluded the line $filename = "/tmp/".$name."\n "; to make the path absolute and is not detecting that is executable.

The -x should find out if the file is executable then it will perform the action inside the the braces?

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {
next if $name =~ /^\./;

$filename =  "/tmp/".$name."\n";

if (-x $filename)

{
 print "Do something";
}

}

[numberwhun]

I uncluded the line $filename = "/tmp/".$name."\n "; to make the path absolute and is not detecting that is executable.

The -x should find out if the file is executable then it will perform the action inside the the braces?

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {
next if $name =~ /^\./;

$filename =  "/tmp/".$name."\n";

if (-x $filename)

{
 print "Do something";
}

}

Why are you putting the "\n" newline in the path? In this context I believe it literally means "\n" and not a newline. You should remove it as you are setting the value of the variable $filename, not printing its value.

Regards,

Jeff

[31special]

The line print "Do something"; now prints 3 times but of the 3 files inside /tmp onle 1 of them is executable.

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {
next if $name =~ /^\./;

$filename =  "/tmp/".$name;

if (-x $filename) {

print "Do something";

}

}

closedir DIR;

[numberwhun]

The line print "Do something"; now prints 3 times but of the 3 files inside /tmp onle 1 of them is executable.

#!/usr/bin/perl

my $dir_to_process = "/tmp";
opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";

while (my $name = readdir DIR) {
next if $name =~ /^\./;

$filename =  "/tmp/".$name;

if (-x $filename) {

print "Do something";

}

}

closedir DIR;

Ah, interesting I haven't had anything to do the the -x test operator so I am guessing it was needed. Sorry about that.

Regards,

Jeff

[KevinADC]

I posted several questions for you to answer but you either ignored them or felt they were not worth answering for some reason. No sense in me trying to help if the questions I post are going to be ignored.

[31special]

I had to do it this because that test condition using the -x was not working for me.

#!/usr/bin/perl
my $dir_to_process = "/tmp";
my @files = split("\n", `find $dir_to_process -type f -perm -o+rx`);
foreach my $filename (@files) {
print "Do something on ($filename)\n";
}