Discussion :

[Arnaud62]

Bonjour,

Je n'ai pas trouvé réponse en recherchant sur substr dans le forum.

Mon problème est :

J'ai des chaines de caractères, genre "123456.jpg" ou "987654321.eps" et je souhaiterais comparer les chiffres, donc la chaine avant les extensions.
Je souhaiterais récupérer 123456 et 987654321 pour faire mes tests.

J'espère avoir était clair.

Le travail global porte en fait sur une comparaison de deux dossiers comportant des images.
L'un des images_HD (haute qualité) et l'autre des images_BD (basse qualité).
Hors les images_HD peuvent être au format eps ou jpg contrairement au images_BD qui ne sont que en jpg.
Et au final, si mon image HD n'est pas présente dans le dossier image BD, je la compresse et la met dans images BD.

Et là en expliquant la globalité du travail j'ai embrouillé tout le monde ;-)

Merci.

[djibril]

Pourquoi ne pas faire une expression régulière dessus.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
 
my @MesChaines = ("123456.jpg", "987654321.eps");
foreach my $Fichier ( @MesChaines ) {
  if ( $Fichier =~ m{(.+)\.\w+$} ) {
    print "Nom fichier : $1\n";
  } 
}

[Arnaud62]

Ça réponds à ce que je voulais.
Merci.

Pourrais-je avoir une explication sur la syntaxe utilisée ?
Je rencontre ça depuis un moment mais n'y comprends rien.
Désolé, je suis novice !

Merci.

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
# Déclaration d'un tableau contenant mes fichiers
my @MesChaines = ("123456.jpg", "987654321.eps");
 
# Parcours du tableau case par case
foreach my $Fichier ( @MesChaines ) {
  # Si l'expression match, je rentre dans le if
  # motif  (.+)\.\w+ = n'importe quoi au moins une fois suivi d'un point se terminant par au moins un caractère alphanumérique ou un underscore
  if ( $Fichier =~ m{(.+)\.\w+$} ) {
    print "Nom fichier : $1\n"; # $1 récupère ce qui est capté entre parenthèse
  } 
}

Pour plus d'explication, lit la FAQ rédigée par nos soins, c'est un bon début pour apprendre le langage

[Arnaud62]

Merci.

Mais ça utilise une variable intermédiaire sans modifier le contenu du tableau.
Donc je suis embêté si je dois le réutiliser.

Je dois tester si $image_HD = $image_BD
Mais sans l'extension.
Comment inclure l'expression régulière directement dans mon if ?