Discussion :

[olivier1969]

Bonjour,

je récupère une "liste de fichiers" (une partie du nom en fait) , et cette liste m'arrive triée sur le nom d'origine du fichier , hors je voudrai la récupérer avec un tri par date de création du fichier .

Code :

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

1
2
3
4
5
6
7
8
9
my $extract = $debut_chaine . $jour . "*";
 
chdir "$path_EEC";
@liste = glob("$extract");
foreach my $ligne ( @liste ) { 
	$ligne = substr($ligne,$pos_seq ,$long_seq);
	++$nb ;
	print "$ligne\n"; 
	}

Exemple : les fichiers d'origines par date :
DC_SONUSS_123_494_B077D9D2_9999147
DC_SONUSS_123_493_8A385FCF_9999147

je voudrai donc au final avoir :
494
493

mais j'ai l'inverse , 493 puis 494 puisque les fichiers sont "triés" par nom avec glob
j'espère m'être fait comprendre

Merci pour votre aide

[Lolo78]

S'il te suffit d'avoir l'ordre inverse de celui retourné par glob, alors, tout simplement:

Code :

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

1
2
 
@liste = reverse glob("$extract");

Si cela ne suffit pas, alors il faut utiliser sort et trier sur la date. Demande si c'est cela qu'il te faut.

[olivier1969]

En fait dans ce dossier il y a plusieurs milliers de fichier commençant par DC_SONUSS_ , vient ensuite le quantième du jour 123 (pour aujourd'hui) puis le séquencement 494,493 , dans le cas présent ma variable $extract ="??????????123*" et dans ma table je ne conserve que la séquence.

Hors il arrive que la séquence soit dans le désordre , et de plus quand on arrive à 999 ça redémarre à 001 . C'est pourquoi j'ai absolument besoin de retrouver cette séquence dans l'ordre de création des fichier par exemple :

997 998 999 001 002 et non 001 002 997 998 999 (ce qui est mon cas)

J'espere avoir été assez clair.

[olivier1969]

Après plusieurs heures de recherche sur le web (merci Qwant.com) je pense avoir trouvé ma solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my $extract = $debut_chaine . $jour . "*";
 
chdir "$path_EEC";
@fichiers = glob("$extract");
 
$cache{$_} = -M for @fichiers;
    @out = sort { $cache{$a} <=> $cache{$b} } @fichiers;
 
foreach my $ligne ( @out ) { 
	$ligne = substr($ligne,$pos_seq ,$long_seq);
        ++$nb ;
	print "$ligne\n"; }

Je vais donc tester ça en prod. A suivre ...

[Lolo78]

Oui, à vue de nez, cette solution devrait fonctionner. En tous cas, c'est l'idée.

[olivier1969]

Impeccable , ça marche à merveille ....