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

Version imprimable

27/10/2011, 14h27
VassR

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

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.
27/10/2011, 15h03
djibril

Bonjour,

Il faut utiliser la fonction sort.

Qu'avez-vous fait comme programme ?

J'ai fait ce script en shell :
Code:

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.

Code:

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;

27/10/2011, 15h50
VassR

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 ;)
27/10/2011, 15h53
hauru

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é)
27/10/2011, 15h53
djibril

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.
27/10/2011, 16h30
VassR

Merci pour l'info ;)

J'utilisais pour ma part la variable $_ !

Bonne soirée.
27/10/2011, 16h46
djibril

Un tag résolu une si c'est réglé.