Vérifier le fichier et le traiter, existence du script de lancement de fichier - perl

Question

Comment puis-je écrire un programme Perl qui attendra la création d'un fichier d'entrée, puis traiter le contenu de ce fichier? Idéalement, cela devrait être une solution multiplateforme plutôt que de dépendre des caractéristiques d'un système d'exploitation donné.

Notez que le fichier peut exister dès que le script est démarré ou qu'il peut être créé ultérieurement. Une fois le fichier d'entrée traité, le programme Perl peut quitter.

[Notez qu'il s'agit d'une version substantiellement modifiée de la question d'origine. L'affiche originale devrait être libre de faire des modifications supplémentaires si je n'ai pas bien compris la question.]

Answer 1

Jetez un oeil à File::Monitor. Il vous informera de toutes sortes d'événements de système de fichiers. Ce programme montre comment surveiller la création de fichiers dans un répertoire spécifique et traiter tous les nouveaux fichiers XML.

use strict; 
use warnings; 
use 5.010; 

use File::Monitor; 

my $monitor = File::Monitor->new; 

$monitor->watch({ 
    name  => 'E:\Perl\source', 
    files  => 1, 
    callback => { files_created => \&files_created } 
}); 

while() { 
    my @new = $monitor->scan; 
    sleep 1; 
} 

sub files_created { 
    my ($name, $event, $change) = @_; 
    for my $file ($change->files_created) { 
    process_xml($file) if $file =~ /\.xml$/i; 
    } 
} 

sub process_xml { 
    my ($file) = @_; 
    say $file; 
}