Using perl Syntax Highlighting
- #!C:\perl\bin\perl.exe -w
- my @vec = (0,'');
- opendir(my $handle, $dir) || die;
- while ($archivo = readdir($handle)) {
- $fecha = (stat($archivo))[9];
- if ($fecha > $vec[0]) {
- @vec = ($fecha ,$archivo);
- }
- print "$archivo $vec[0]\n";
- }
- closedir $handle;
- <STDIN>;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El problema es que cuando lo ejecuto me muestra bien los datos que necesito, pero adicional me muestra el siguiente error:
Use of uninitialized value $fecha in numeric gt (>) at $dir
En vez de la variable $fecha también he usado $_ pero me saca el mismo error.
Muchas gracias por los aportes.
