Code:
#!/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";
}
31special
Last Activity: Jul 18 '08, 06:49 PM
Joined: Jul 17 '08
Location:
-
I had to do it this because that test condition using the -x was not working for me.
-
The line print "Do something"; now prints 3 times but of the 3 files inside /tmp onle 1 of them is executable.
...Code:#!/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)Leave a comment:
-
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?
...Code:#!/usr/bin/perl my $dir_to_process = "/tmp"; opendir (DIR, $dir_to_process) || $dir or die "Cannot open $dir: $!"; while
Leave a comment:
-
Reading folder content and permissions
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.
...Code:#!/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
No activity results to display
Leave a comment: