Using perl Syntax Highlighting
- my $dir = "$tempDir/$imageDir" ;
- opendir (DIR, "$dir/");
- my @FILES = <"$dir/$name-fig-*.pdf">;
- closedir (DIR);
- if (@FILES) { # si hay algún archivo .pdf,
- unlink @FILES; # les borro
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Si está correcto lo que escribí, puedo decir que entiendo un poquito más este poderoso lenguaje.