[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] VCard - Seek and destroy script



On Thu, 10 Aug 2000 19:24:42 +0200, Bart Lateur wrote:

>        } elsif(/Eudora/i && /attach/i && /\.vcf($|\s+\d)/) {

Oops. I wanted an extra check that only files in a path containing the
strings "Eudora" and "attach", to make sure I didn't delete any files
anywhere else (namely, in the System Folder itself). However, the
regexes should have matched against $File::Find::name, not plain $_.

If you're sure you don't have any files with a name like containing
".vcf", you can remove that test.

Thanks to the "prune", it is pretty fast.

-- 
	Bart.

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