Tri correct sur les accents, espace correct lors d'un saut de page
This commit is contained in:
parent
c5ce831132
commit
9e7ec6c59a
2 changed files with 4 additions and 2 deletions
|
@ -13,7 +13,7 @@
|
|||
|
||||
\newsavebox\recipebox
|
||||
\newlength\recipebreaklength
|
||||
\setlength\recipebreaklength{1.1\textheight}
|
||||
\setlength\recipebreaklength{1.2\textheight}
|
||||
\NewEnviron{recipe}[3]{%
|
||||
\savebox{\recipebox}{\parbox{\linewidth}{%
|
||||
\begin{recipe2}{#1}{#2}{#3}
|
||||
|
@ -26,6 +26,7 @@
|
|||
\begin{recipe2}{#1}{#2}{#3}
|
||||
\BODY
|
||||
\end{recipe2}%
|
||||
\clearpage
|
||||
\else
|
||||
\par\noindent\usebox\recipebox
|
||||
\fi
|
||||
|
|
3
tri.pl
3
tri.pl
|
@ -1,6 +1,7 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use locale;
|
||||
|
||||
our ($directory, $destination_file) = @ARGV;
|
||||
|
||||
|
@ -21,7 +22,7 @@ foreach my $file (@files) {
|
|||
|
||||
open (DEST, ">".$destination_file);
|
||||
|
||||
foreach my $recette (sort {uc($a) cmp uc($b)} keys %recettes) {
|
||||
foreach my $recette (sort {lc($a) cmp lc($b)} keys %recettes) {
|
||||
open(FILE, $recettes{$recette});
|
||||
print DEST <FILE>;
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue