Using perl Syntax Highlighting
- my $dir = "$tempDir/$imageDir"; # directorio en el cual están las imágenes
- my $oldname = '';
- my $renNo = 1;
- if(opendir(DIR,$dir)){ # abro el directorio
- foreach (readdir DIR){ # lo recorro
- $oldname = $_; # paso todo a la variable local
- if ( $oldname =~ /($name-fig-)(\d+|\d+[-]\d+).ppm/) { # regex para name-fig-0000001.ppm
- my $renNo = int($2); # parte entera [000001]=1, [000002]=2, [x]=natural
- my $newname="$1$renNo.ppm"; # en $1 está el nombre, en $2 [00001]
- rename("$dir/$oldname","$dir/$newname"); # renombro
- }
- }
- }
- closedir DIR;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
- name-fig-000001.ppm
- name-fig-000002.ppm
- name-fig-000003.ppm
- ...
- name-fig-00000n.ppm
Salu2
Pablo