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.

Jul 17 '08 #1

eWish

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

--Kevin

Jul 17 '08 #2

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.

Expand|Select|Wrap|Line Numbers

1. #!/usr/bin/perl
2.  
3. my $dir_to_process = "/tmp";
4. opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";
5.  
6. while (my $name = readdir DIR) {
7.  
8. next if $name =~ /^\./;
9.  
10.  
11. if (-x $name)
12. {
13.  print "Do something";
14. }
15.  
16.  
17. }
18.  
19. closedir DIR;
20.  

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.

Jul 18 '08 #3

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:
- Nithin

Jul 18 '08 #4

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.

Jul 18 '08 #5

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?

Jul 18 '08 #6

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?

Expand|Select|Wrap|Line Numbers

1. #!/usr/bin/perl
2.  
3. my $dir_to_process = "/tmp";
4. opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";
5.  
6. while (my $name = readdir DIR) {
7. next if $name =~ /^\./;
8.  
9. $filename =  "/tmp/".$name."\n";
10.  
11. if (-x $filename)
12.  
13. {
14.  print "Do something";
15. }
16.  
17. }
18.  

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

Jul 18 '08 #7

31special

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

Jul 18 '08 #8

numberwhun

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

Expand|Select|Wrap|Line Numbers

1. #!/usr/bin/perl
2.  
3. my $dir_to_process = "/tmp";
4. opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!";
5.  
6. while (my $name = readdir DIR) {
7. next if $name =~ /^\./;
8.  
9. $filename =  "/tmp/".$name;
10.  
11. if (-x $filename) {
12.  
13. print "Do something";
14.  
15. }
16.  
17. }
18.  
19. closedir DIR;
20.  

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

Jul 18 '08 #9

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.

Jul 18 '08 #10

31special

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

Jul 18 '08 #11