Discussion :

[bennyben87]

Bonjour,
J'ai une question concernant concernant le langage perl.
J'ai une centaine de fichiers ayant tous le même a non a la différence d'un numéro qui les identifient.
ex: blabla_sw172
blabla_sw173
.....
Je souhaiterais en fait faire une boucle pour récupèrer juste le numéro de tous ces fichiers.
Si vous aviez des idées, ou un ex de code se serais génial.
En vous remerciant par avance.

[Jedai]

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; use warnings;
 
my $path = '/le/chemin';
my @nums;
while( my $filename = glob("$path/blabla_sw*") ) {
  push @nums, $1 if $filename =~ m/blabla_sw(\d+)$/;
}
 
# fais ce que tu veux avec @nums
 
__END__

--
Jedaï

[bennyben87]

OK génial. Merci bien.