Trier des fichiers sur serveur unix par date de création

**VassR** · 27/10/2011, 14h27

Bonjour,

Je dois trier des fichiers par date de création décroissante commençant par "toto" (exemple : toto, toto2, toto3...) qui sont sur un serveur Unix puis les concaténer pour n'avoir plus qu'un seul fichier final.

Mon principal soucis est le tri par date de création.

Pouvez-vous m'aider ?

Cordialement.

**djibril** · 27/10/2011, 15h03

Bonjour,

Il faut utiliser la fonction sort.

Qu'avez-vous fait comme programme ?

**VassR** · 27/10/2011, 15h05

J'ai fait ce script en shell :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#! /bin/sh
 
i=1
for file in $(ls -tr toto*)
do
if [ $i == 1 ] 
then	
	i=2	
	cat $file > concatenation_fichier.txt	
else	
	tail -n +2 $file >> concatenation_fichier.txt	
fi
done

Mais il me faudrait ça en PERL. Sinon je peux faire un appel PERL à ce script tout simplement.

**djibril** · 27/10/2011, 15h42

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl 
use strict;
use warnings;
 
# Ton répertoire
my $repertoire = 'TON/REPERTOIRE';
 
# Ton motif
my $motif = 'toto';
 
# Ton motif
my $fichier_concat = 'FINAL.txt';
 
opendir my $fh_rep, $repertoire or die "Impossible de lire le repertoire $repertoire ";
my @fichier_repertoires;
foreach my $fichier ( grep { !/^\.\.?$/ and /^$motif/i } readdir $fh_rep ) {
  next unless -f "$repertoire/$fichier";
  push @fichier_repertoires, "$repertoire/$fichier";
}
closedir $fh_rep;
 
open my $fh, '>>', $fichier_concat or die "Impossible d'ecrire dans $fichier_concat\n";
foreach my $fichier ( sort { -M $a <=> -M $b } @fichier_repertoires ) {
  print "$fichier\n";
  open FILE, '<', $fichier or die "Impossible de lire $fichier\n";
  while (<FILE>) { print {$fh} $_; }
  close FILE;
}
close $fh;

**VassR** · 27/10/2011, 15h50

Tout d'abord, merci de votre aide.

La double allocation de la variable $fichier dans vos foreach ne posera pas de soucis ?

Je testerai votre code dès que possible

**hauru** · 27/10/2011, 15h53

foreach my $fichier permet de n'avoir $fichier que dans la boucle.

En dehors ce cette-ci, la variable n'existe pas. Il n'y a donc pas de soucis.

Cela permet en plus d'eviter le nom de variable $_ qui est defini par defaut (on a ainsi une meilleur lisibilité)

**djibril** · 27/10/2011, 15h53

Il n 'y a pas de double allocation car leur portée est limitée au foreach (grâce à la déclaration my). Néanmoins, pour être plus rigoureux, on peut les nommer différemment.