Well, TMTOWTDI, but I can't say that this will keep me from shying away from
/.{0,3}sh/ scripts! Here's one Perl way to do it, courtesy of the
Cookbook:
#!/usr/bin/perl -w
use File::Find;
find(\&wanted, shift || '.');
sub wanted {
-l and not -e and print "bogus link: $File::Find::name\n";
}
-- Frag.
--
"Just remember what ol' Jack Burton does when the earth quakes, the poison arrows fall from the sky, and the pillars of Heaven shake. Yeah, Jack Burton just looks that big old storm right in the eye and says, "Give me your best shot. I can take it."