小编Whi*_*ite的帖子

我有这个代码的问题.它匹配目录.,..但不匹配其他目录.你能解释一下为什么吗？

my $Checked_directory = $Tested_directory . '\Sources';

opendir(Checked_directory, $Checked_directory)
    or print STDOUT "\n 101 - Cant open $Checked_directory: $!\n";

@files = readdir(Checked_directory);    #etablished the list of file in the checked folder

foreach my $fileToTest (@files) {

  print $fileToTest . "\n";    #debug

  if ($fileToTest =~ m/.jpg$/) {
    print 'file...  ' . $fileToTest . "\n";
    $Localisation_file = $Tested_directory . '\Sources\\' . $fileToTest;    #file to test
  }
  elsif (-d $fileToTest) {
    print ">>>>" . $fileToTest . "\n";
  }
} …