Steve Grazzini <[EMAIL PROTECTED]> writes:
> Ah, okay. But you'll need to make that into a real loop.
>
> use File::Spec::Functions;
> ...
>
> foreach (readdir(DIR)) {
> my $target = catfile($mnsd, $_);
> if (-l $target) {
>unlink $target or warn "unli
It doesn't look like you are setting the $_ variable anywhere. Maybe if you
put this line in after the opendir and before the first bracket:
foreach(readdir(DIR))
and closed the bracket
-Original Message-
From: Harry Putnam [mailto:[EMAIL PROTECTED]
Sent:
On Mon, Jul 07, 2003 at 12:59:27PM -0700, Harry Putnam wrote:
> I'm pretty sure there is a nifty thrifty way to do this rather than
> tying myself in knots like this:
>
> I want to unlink and symlinks that might be in a specific directory.
> A snipped from hack-a-thonic script:
>
> my $mnsd = "/t
