>здраствуйте всем, помогите в следущем вопросе?:
>вывожу список файлов из папки(только ".sql")
>назвыние файлов имеют формат: 04-10-2004.sql..........05-11-2004.sql
>делаю:
> while($file = readdir FDIR)
> {
> next if $file !~ /\.sql$/;
>как мне вывести файлы которые кончаются на"11-2004.sql"( to esti toko odnogo meseta)
>?
[test@test perl]# ./0035.pl
05-11-2004.sql
[test@test perl]# cat 0035.pl
#!/usr/local/bin/perl -w
opendir FHDIR,"./perl";
while ($file=readdir FHDIR){
chomp $file;
print $file,"\n" if $file =~ /11-\d{4}\.sql$/;
}
close FHDIR;
[test@test perl]# ls *sql
05-10-2004.sql 05-11-2004.sql test.sql