30 lines
587 B
Perl
30 lines
587 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use locale;
|
|
|
|
our ($directory, $destination_file) = @ARGV;
|
|
|
|
opendir(IMD, $directory);
|
|
my @files = readdir(IMD);
|
|
closedir(IMD);
|
|
|
|
my %recettes;
|
|
|
|
foreach my $file (@files) {
|
|
next if ($file eq ".." || $file eq ".");
|
|
open(FILE, $directory . "/" . $file);
|
|
my $line = <FILE>;
|
|
close(FILE);
|
|
$line =~ m/.*{recipe}{(.*?)}/;
|
|
$recettes{$1} = $directory . "/" . $file;
|
|
}
|
|
|
|
open (DEST, ">".$destination_file);
|
|
|
|
foreach my $recette (sort {lc($a) cmp lc($b)} keys %recettes) {
|
|
open(FILE, $recettes{$recette});
|
|
print DEST <FILE>;
|
|
}
|
|
|
|
close(DEST);
|