Find out if there's a copy of the dir program on this computer : File « File « Perl






  1. Perl
  2. File
  3. File

Find out if there's 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";








Related examples in the same category

1.Copy files
2.Copying a file using the File::Copy
3.Create a directory tree
4.Determine the contents of a directory tree?
5.File finder and callback
6.File size with FIELDS
7.Find file
8.File find closure
9.Using a Callback
10.Extracting file names from paths
11.$File::Find::prune = 1 if /dir1/;