Mega Code Archive

 

Categories / Perl / File

 

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";