Discussion :

[6ril23]

Bonjour, je récupère une liste de fichiers avec la commande

Code :

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

my @Liste_fichiers = `ls -1t *_blabla_??????*.log`

je récupère donc par exemple les éléments suivants:

Code :

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

1
2
3
4
5
6
path_file/A_blabla_20131218.log
path_file/B_blabla_20131218.log
path_file/C_blabla_20131218.log
path_file/A_blabla_20131217.log
path_file/B_blabla_20131217.log
path_file/C_blabla_20131217.log

Je souhaiterais ne garder que la 1ère occurrence de A, B et C (sachant que pour le moment il n'y en a que 3 mais que ce nombre peut évoluer et doit être pris en compte pour éviter un redéveloppement)

Auriez-vous une solution beaucoup moins moche que de faire une vérification élément par élément en ne gardant que la 1ère fois où on trouve le fichier commencant par A,B C...

D'avance je vous remercie pour votre aide

[Philou67430]

Par 1er élément, tu veux dire que l'ordre à prendre en compte :
1- est l'ordre dans le tableau après récupération de la sortie de ls
2- est l'ordre alphabétique des fichiers ? (qui peut différer si la commande ls est modifiée pour retourner les fichiers dans un autre ordre).

Une solution est d'utiliser un hash rempli avec la partie du nom qui exclue la partie variable (la date).

Avec une version de perl 5.10 :
Si c'est 1 :

Code :

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

1
2
3
4
5
6
7
use strict;
use warnings;
use feature qw(:5.10);
 
my @Liste_fichiers = qx(ls -1t *_blabla_??????*.log);
my %f;
say $_ foreach grep !$f{s/_(\d{8})\./\./r}++, @Liste_fichiers;

Si c'est 2 :

Code :

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

1
2
3
4
5
6
7
use strict;
use warnings;
use feature qw(:5.10);
 
my @Liste_fichiers = qx(ls -1t *_blabla_??????*.log);
my %f;
say $_ foreach grep !$f{s/_(\d{8})\./\./r}++, sort @Liste_fichiers;

[Lolo78]

Une solution est d'utiliser un hash rempli avec la partie du nom qui exclue la partie variable (la date).

++, même avis.

[6ril23]

merci Philou je vais tester

par contre, j'ai pas mis les contraintes techniques:
- perl v5.8.4
- je dois faire avec les fonctions/packages/modules de base de perl

simple non?

[Lolo78]

A priori, le seule changement imposé par ta version de Perl est que la fonction say n'existe pas en 5.8 et que tu dois la remplacer par un print avec éventuellement l'ajout d'un "\n".

[Philou67430]

Non, il faut aussi supprimer le modificateur /r dans l'expression régulière, et du coup, à la place de :

Code :

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

say $_ foreach grep !$f{s/_(\d{8})\./\./r}++, sort @Liste_fichiers;

écrire :

Code :

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

print "$_\n" foreach grep { my ($root = $_) =~ s/_(\d{8})\./\./; !$f{$root}++ } sort @Liste_fichiers;

La contrainte de n'utiliser que les modules du Core n'est pas impactante.

[6ril23]

oui j'avais fait le changement du say et enlevé le 'r'

Philou ta dernière proposition ne fonctionne pas

Code :

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

Can't use global $_ in "my" at ./bin/tq_XXX.pl line 116, near "= $_"

[Philou67430]

Désolé, j'ai pas testé avant de poster :

Code :

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

print "$_\n" foreach grep { (my $root = $_) =~ s/_(\d{8})\./\./; !$f{$root}++ } sort @Liste_fichiers;

[6ril23]

ok merci

[Lolo78]

Non, il faut aussi supprimer le modificateur /r dans l'expression régulière ...

Ah oui, je n'avais pas fait gaffe. En plus je pensais que le modificateur /r avait été introduit plus tard (au hasard, j'aurais dit 5.12 ou 5.14).

[Philou67430]

Tu as raison, /r introduit en 5.14 (perldoc perl5140delta)

[Lolo78]

Et ça marche avec 'use feature qw(:5.10);' ?