Re: and this or that


The stupid question is the question not asked
	PerlMonks

Re: and this or that

by dws (Chancellor)

on Feb 05, 2001 at 23:40 UTC ( [id://56485]=note: print w/replies, xml )

Need Help??

in reply to and this or that

Your precedence problem goes away with a little untangling. Move the error handling for opendir() in closer to the call, rather than out past the readdir(). Here's I'd code it.

for my $next (@ARGV){
  opendir(PWD, "$next") or die "$next: $!";
  my @files = readdir(PWD) or die "$next: $!";
  closedir(PWD);

  print join("\n", @files), "\n";
}
[download]

(Updated to add error handling after readdir(), too.)

Or, if you really want to use precedence, and if you want to ignore non-directories in @ARGV, consider

for my $next (@ARGV) {
    opendir(PWD, "$next") and do {
        my @files = readdir(PWD) or die "$next: $!";
        closedir(PWD);
        print join("\n", @files), "\n";
    }
}
[download]

Comment on Re: and this or that Select or Download Code

Replies are listed 'Best First'.

Re: Re: and this or that
by Fastolfe (Vicar) on Feb 06, 2001 at 01:01 UTC

for my $next (@ARGV) { opendir(PWD, "$next") and do { my @files = readdir(PWD) or die "$next: $!"; closedir(PWD); print join("\n", @files), "\n"; } }
[download]

foreach my $next (@ARGV) {    
   if (opendir(PWD, "$next")) {
      my @files = readdir(PWD) or die "$next: $!";
      closedir(PWD);
      print join("\n", @files), "\n";    
   }
}
[download]

and

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom