здраствуйте всем, помогите в следущем вопросе?:
вывожу список файлов из папки(только ".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) ?

• содержимое папки,Brainbug, 12:28 , 05-Ноя-04

>здраствуйте всем, помогите в следущем вопросе?:
>вывожу список файлов из папки(только ".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