>
>#!/usr/local/bin/perl
>
>eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
> if $running_under_some_shell;
>
>require "find.pl";
>
># Traverse desired filesystems
>
>&find('/afs/es.net');
>
>exit;
>
>sub wanted {
> (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
> -d _ &&
> system( "/usr/afsws/bin/fs lsmount -dir $name" );
>}
Geez, that looks horribly complex. Any reason you simply can't use the
find command itself? It doesn't appear that perl is buying you anything.
find /afs/cellname -type d -exec fs lsm {} \; > redirect_file
(I'm running under SunOS 4.1.x)
-Tom
------------------------------------------------------------------------
- Thomas J. Orban U S WEST Advanced Technologies -
- [EMAIL PROTECTED] 4001 Discovery Drive -
- (303) 541-6620 Boulder, CO 80303 -
------------------------------------------------------------------------
