Regex et extention de fichiers
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:
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 ?
