Re: File::Find question


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: File::Find question

by pfaut (Priest)

on Feb 23, 2003 at 05:29 UTC ( [id://237860]=note: print w/replies, xml )

Need Help??

in reply to File::Find question

File::Find is a perl implementation of the unix find utility. It is useful for cases when you need to find files to process with perl.

Since what you want to do is delete files which you can do with the unix rm utility, why not just use find and rm? To delete all files named *.b from under /path/to/directory, use this:

find /path/to/directory -name '*.b' -exec rm {} \;

If you need to delete these files as part of processing being done by an existing perl script, then File::Find is the answer. Something like this (untested):

use File::Find;
find(sub { $_ =~ /\.b\z/ && unlink $_ }, '/path/to/directory' );
[download]

---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';
[download]

Comment on Re: File::Find question Select or Download Code

Replies are listed 'Best First'.

Re: Re: File::Find question
by coolmichael (Deacon) on Feb 23, 2003 at 07:30 UTC

find2perl

File::Find

[michael]$ find2perl /path/to/directory -name '*.b' -exec rm {} \;
[download]

#! /usr/bin/perl -w

use strict;
use File::Find ();

sub wanted {
    /^.*\.b\z/s &&
    (unlink($_) || warn "$name: $!\n");
}

# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/path/to/directory');
exit;
[download]

negativespace.net

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom