Ancora non riesco a capire esattamente.
Provo a riassumere quanto ho capito:
- Tu hai in un database (o una dir contenente file di database?) una serie di nomi del tipo NAME_XXX_20090811.xml dove le cifre rappresentano AAAAMMGG di una data
- Vuoi estrarre tutti i file/nomi in cui la stringa corrisponde al mese corrente (anche anno, oppure tutti i mesi uguali in tutti gli anni passati?)
Inizio a scrivere il procedimento Perl.
codice:
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $meseoggi = sprintf "%02d", ($mon+1); # converte in stringa di due cifre
my $annooggi = sprintf "%04d", ($year+1900); # se serve anche anno
... inizio loop {
legge il prossimo elemento da verificare
qui la RE per verificare se il le stringhe coincidono
se coincidono ...
se non coincidono, prosegui il loop
}