#!/usr/local/bin/perl #==================================================== # Find specified files upward from . to $HOME # Default file name is .sliderc #==================================================== $fname=($ARGV[0] eq "" ? ".sliderc" : $ARGV[0] ); $file= "$fname"; #print $file , "\n" if ( -r "$file" ) ; push (@FILE, $file) if ( -r "$file" ) ; $dir='..'; while ( -w "$dir" ) { $file= $dir . "/$fname"; #print $file , "\n" if ( -r "$file" ) ; push (@FILE, $file) if ( -r "$file" ) ; $dir = "../" . $dir ; } while ( $file = pop (@FILE) ) { print $file , "\n"; }