Blog Gallery Geek Travels Home Contact Archives Links

Geek : Recurses! Foiled again....

Recurses! Foiled again....

Friday April 5th, 2002

Need to operate on files contained within multiple levels of a given directory?
Here is a bit of code that works flawlessly. Using the File::Find Perl module, this script, when given a parent or ceiling directory to start from, will perform a function on all files under all directories contained within that ceiling directory.

#!/usr/bin/perl -w
use strict;
$|++;
use File::Find;
 
sub doFunction {
    my $currentFile=$File::Find::name;
    next if -d($currentFile)    # ignore directories
    doSomethingWith($currentFile);
}

sub doSomethingWith {
    # this is where you work on the files
}
 
my $targetdir='/target/directory';
find (&doFunction, $targetdir);
exit;

Posted by Jamie
Comments: 0

Your 2¢ (comments subject to approval)

Home > Geek > 111 > Travels


Thu November 20th 2008 9:00 am	Blog \| Gallery \| Geek \| Travels \| Home \| Contact \| Archives \| Links