Process all files in a directory using Mojo::File! Четене и обработка на всички файлове в дадена папка с Mojo::File!

process_files.pl

#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib/perl5";
use Mojo::Base -strict;
use Mojo::DOM;
use Mojo::File qw (path);

Mojo::Util::getopt \@ARGV,
  '--input_folder|i=s' => \(my $in_folder = ''),
  '--output_file|o=s'  => \my $out_file,
  '--help|h'           => \my $help;

usage() and exit if ($in_folder !~ m{[\w/]+} || $help);

my $out = '';
path($in_folder)->list_tree->sort->each(sub { $out .= process_file(shift) });
$out_file ? (path($out_file)->spurt($out)) : (say $out);

sub usage {
  say "Usage..."
}
sub process_file {my $file = path(shift);
  return '' unless $file =~ /\.xml/;
  my $xml      = Mojo::DOM->new('<?xml version="1.0"?>' . $file->slurp);
  my $image_id = $xml->find('image')->first->{id};
  my $out = qq|\n.$image_id|;
  #... get other nodes and get information from them and add to the output
  return $out;
}