Consulta eliminacion de multiples archivos con misma cabecera

[Agus211]

Hola, queria consultarles como puedo hacer lo siguiente. Tengo una carpeta con archivos, como por ejemplo:

SISTEMA07-03-23-15:09:07.GIF
SISTEMA07-03-23-15:09:19.GIF
DESARROLLO07-03-23-15:01:39.GIF
DESARROLLO07-03-23-15:04:59.GIF

Fijense que el nombre es UNA CABECERA, FECHA ACTUAL y HORA ACTUAL.

Como hago para que el unlink me borre todos los archivos de esa carpeta que por ejemplo comiencen con SISTEMA?.

[monoswim]

deverías hacer un bucle, que valla uno por uno verificando (mediante una simple expresión regular) si el archivo empieza con X, si es posirivo que lo borre, sino que siga con el siguiente archivo...Te improviso un código

Código:

opendir...
my @files = readdir...
closedir...

foreach my $file (@files){
   if ($file =~ /SYSTEMA/){
      unlink ($file);
   }
}

Con ese simple script eliminarás todos los archivos que tengan la palabra SYSTEMA, para más info sobre expresiones regulares checeka la sección de tutoriales de www.perlenespanol.com

Espero que te sirva

Saludos

[Agus211]

Hola, gracias por responder rapido, yo estoy trabajando en linux, los archivos a eliminar se encuentran en una subcarpeta llamada tmp de donde se ubica el pl. Seria asi el opendir?, pq lo pruebo y no me funciona!

opendir(DIRTEMP, './tmp');
my @archivos = readdir DIRTEMP;
closedir DIRTEMP;

foreach my $borrar (@archivos){
if ($borrar =~ /sistema/){
unlink ($borrar);
}
}

Otra pregunta, los archivos tienen que tener algun permiso en especial para ser eliminados?.

[monoswim]

opendir(DIRTEMP, 'tmp');

Prueba así, saludos

[Agus211]

Funciono de maravillas!, gracias por la ayuda y por responder tan rapido, la verdad que me sacan de apuros de inmediato...Saludos!.

[jferrero]

http://perldoc.perl.org/functions/unlink.html

Código:

unlink <SISTEMA*>;

[monoswim]

ups, me había olvidado de esa opción...Es que nunca la uso, la leí hace muuuccho...:S