37 lines
744 B
Perl
37 lines
744 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
our ($directory, $out_dir) = @ARGV;
|
|
|
|
opendir(IMD, $directory);
|
|
my @files = readdir(IMD);
|
|
closedir(IMD);
|
|
|
|
foreach my $file (@files) {
|
|
next if ($file eq ".." || $file eq ".");
|
|
open(FILE, $directory . "/" . $file);
|
|
open (DEST, ">".$out_dir."/".$file);
|
|
print DEST '\documentclass{article}
|
|
\usepackage[a5paper]{geometry}
|
|
\usepackage[cm]{fullpage}
|
|
\usepackage[french]{babel}
|
|
\usepackage[nostepnumber]{cuisine2}
|
|
\usepackage{graphicx}
|
|
\usepackage{makeidx}
|
|
\usepackage[utf8]{inputenc}
|
|
\usepackage{environ}
|
|
\NewEnviron{recipe}[3]{%
|
|
\begin{recipe2}{#1}{#2}{#3}
|
|
\BODY
|
|
\end{recipe2}%
|
|
}%
|
|
\begin{document}
|
|
';
|
|
print DEST <FILE>;
|
|
print DEST '
|
|
\end{document}
|
|
';
|
|
close(DEST);
|
|
close(FILE);
|
|
}
|