Sortie prématurée du fichier Perl :: Find

Question

En Perl, nous effectuons généralement une traversée de répertoire récursive en utilisant File::Find et nous utilisons souvent du code similaire à ci-dessous pour trouver certains fichiers basés sur un modèle. Ceci est généralement assez flexible, mais il y a certains moments où nous voulons sortir prématurément de la découverte. Existe-t-il une méthode définie dans Perl pour le faire?

Answer 1

Essayez si cette possibilité pourrait travailler pour vous:

die intérieur find fonction et entourer l'appel dans une fonction eval pour piéger l'exception et poursuivre l'exécution de votre programme.

eval { find(\&filter, $somepath) }; 
print "After premature exit of find...\n"; 

Et à l'intérieur filter fonction:

sub filter { 
    my $srcfile = $_; 
    if -f $srcfile && $srcfile =~ /<CERTAIN PATTERN>/ { 
     die "Premature exit"; 
    } 
} 

Answer 2

Vous pourriez faire:

#!/usr/bin/env perl 
use strict; 
use warnings; 
use File::Find; 
my $somepath = q(.); 
my $earlyexit; 

find(\&filter, $somepath); 
sub filter { 
    my $srcfile = $_; 

    $File::Find::prune = 1 if $earlyexit; #...skip descending directories 

    return if $earlyexit;     #...we have what we wanted 

    if ( -f $srcfile && $srcfile =~ /<CERTAIN PATTERN>/) { 
    #...<Some Processing which requires premature exit> 
    # ... 
     $earlyexit = 1; 
    } 
}