Discussion :

[Lennox]

Bonjour à tous,

J'ai un petit problème sur un script Perl, basé sur wpd2sxwbatch.pl :

Mon script doit convertir un paquet de fichiers d'un format wordperfect à openoffice, la conversion marche sans problème, tant que les fichiers cibles (qui doivent donc être convertis) ont la même extension, entrée en dur dans le script. (genre $ext_in = "wpd"

Mais c'est là que les choses se compliquent : les fichiers cibles ont des extensions numériques variables, genre .123 pour l'un, .108 pour le second etc. Quand je rajoute, en dur encore une fois, $ext_in = 108; par exemple ça marche, mais évidement que pour les fichiers .108.

Du coup, mon script doit prendre en compte la forme de ces extensions (3 chiffres aléatoires), pour ça j'ai modifié le script avec des expressions rationnelles :

Code :

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

1
2
3
4
5
6
7
8
9
10
use Getopt::Std;
 
## Variables
 
getopts('thvurd:o:');
 
$ext_in  = "wpd";
$ext_in  = "wpd" if $opt_t == 1;
 
$ext_in  =~ /\d+/;

en essayant tour à tour pour la dernière ligne :

$ext_in =~ /\d\d\d/;
$ext_in =~ /\d{3}/;
$ext_in =~ /\d+/;
$ext_in =~ /[0-9]+/
$ext_in =~ /[0-9]{3}/
$ext_in =~ /[0-9][0-9][0-9]/
etc.

Mais ça ne fonctionne pas, pourquoi et comment faire ?

[Philou67430]

Cette expression ne fait pas grand chose :

Code :

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

$ext_in  =~ /\d+/;

puisqu'elle vérifie que $ext_in contient des digits numériques, mais on ne fait rien du résultat.
Peux-tu expliquer plus clairement l'opération que tu veux réaliser... concrètement.

[Lennox]

je veux que mon script récupère toutes les extensions de type .xxx (où x sont des chiffres aléatoires) dans le dossier désigné au lancement, et qu'il se serve de ces extensions pour identifier les fichiers à convertir, puis les convertir.

La conversions fonctionne sur les fichiers dont l'extension est explicitement donnée, mais avec la regex, le script agit comme si il ne trouvait aucun fichier correspondant.

[Philou67430]

Mmmm, il faudrait que tu nous donnes la partie de script qui sélectionne les fichiers... mais je devine que ce que tu cherches à faire sera correctement réalisé en modifiant la ligne qui ne fait rien par celle-ci :

Code :

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

$ext_in  = qr/\d+/;

[Lennox]

Merci beaucoup Philou67430, ça marche exactement comme je voulai, à part un petit bug où il m'affiche une erreur de répertoire sans conséquence et sans importance

[djibril]

Pour récupérer l'extension du fichier, petite explication dans les sources.