File Perl

  1. Home
  2. Perl
  3. File
  4. Find out if theres a copy of the dir program on this computer
#!/usr/bin/perl
use warnings;
use strict;
use File::Spec::Functions;
foreach (path()) {
    my $test = catfile($_,"dir");
    print "Yes, dir is in the $_ directory.\n";
    exit;
}
print "dir was not found here.\n";