Y si no, haz la prueba:
Using perl Syntax Highlighting
- #!/usr/bin/env perl
- my %fecha = (
- 20120904 => 'archivo',
- );
- my $br = '20120904';
- my $DirAct = 'C:/carpeta/carpeta';
- my $file = $DirAct . "/Archivo_$fecha{$br}.xls";
- print "Archivo: [$file]\n"; # Archivo: [C:/carpeta/carpeta/Archivo_archivo.xls]
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4