Re: [MacPerl] VCard - Seek and destroy script

[Bart Lateur <bart.lateur@skynet.be>]

On Fri, 11 Aug 2000 11:58:14 -0400, Chris Nandor wrote (quoting me):

>    sub exterminate{
>        if(-d) {
>           $File::Find::prune = 1 unless /Eudora/i;
>        } elsif(/Eudora/i && /attach/i && /\.vcf($|\s+\d)/) {
>            unlink $_;
>        }
>    }

As I wrote: the regex for the path should test $File::Find::name. 

    sub exterminate {
        if(-d) {
           $File::Find::prune = 1 unless /Eudora/i; # only Eudora folder
        } elsif(/\.vcf($|\s+\d)/) {
            unlink $_ if $File::Find::name =~ /Eudora.*attach/i;
        }
    }

-- 
	Bart.

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org