use Cwd;
my $docroot = '/www/stage/sites/MyCompany/docs';
my $cfgdir  = $docroot;
my $dir = getcwd;
$dir =~ s{^$docroot/}{};
my (@dirs) = split '/', $dir;
while (not -e "$cfgdir/filename.cfg" and @dirs) {
    $cfgdir .= '/' . shift(@dirs);
}
[download]

There are many ways you can go about this. A very quick way is to use the find2perl command to create a script that you can the modify to your heart's content to do exactly what you want it to do.

For instnace I run:

unixprompt> mydir=/www/stage/sites/MyCompany/docs/systems/foo/document
+ation
unixprompt> find2perl $mydir -depth -type d -print > myscript
[download]

Now you will have a script called "myscript" that looks like:

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell
 
use strict;
use File::Find ();
 
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
 
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;
 
sub wanted;
 
 
 
# Traverse desired filesystems
File::Find::finddepth({wanted => \&wanted}, '/www/stage/sites/MyCompan
+y/docs/systems/foo/documentation');
exit;
 
 
sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);
 
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -d _ &&
    print("$name\n");
}
[download]

Now you can take and modify where it says "print" under the sub "wanted" and make it do whatever you want.

You could also handroll all this instead of cheating and using find2perl....

use File::Find;

$source = '/somedir';
$somefile = 'somefile.txt';

traverse();

sub traverse {
    my %opts = (  wanted       =>    \&eval_files,
    );

    finddepth(\%opts, $source);
}

sub eval_files {
      if (-f && $_ eq $somefile) {
          print 'Got ', $_,"\n";
      }
}
[download]

For each item within a directory, File::Find will invoke the sub &eval_files. eval_files() does blissfully throw away items that aren't files and will shriek if the the file matches the given filename. $_ contains magically the name of the current item (dir / file).

use strict;
use warnings;
use File::Spec::Functions qw/ canonpath /;


my $fullpath = '/www/stage/sites/MyCompany/docs/systems/./foo/../docum
+entation///';
my $sitedoc = '/www/stage/sites/MyCompany/docs/..';
my $want = 'config.cfg';


print find_file($fullpath, $sitedoc, $want) ? "found" : "not found";


sub find_file
{
    my ($path, $root, $want) = @_;

    $path = canonpath($path);
    $root = canonpath("$root/..");

    my $found;
    while ($path ne $root) {
        $found = 1, last if -f "$path/$want";
        $path =~ s!\\[^\\]+$!!;
    }

    return $found;
}
[download]

Update: It is not. move along folks, nothing to see here...

Joost

No, it's the canonical answer to a more common question that resembles this one. This one only wants to check the components of the path of the current working directory, between a higher level and the current depth.

---

The PerlMonk tr/// Advocate

You are correct.

That should teach me not to drink before answering questions :-)

Joost.

"What should it profit a man, if he should win a flame war, yet lose his cool?"