Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
  grep { /(\d{8})/ && $1 >= $from && $1 <= $to } readdir DIR;

print "@files\n";
  2. or download this
    > ls
date.pl           file20001105.txt  file20010101.txt
...
> ./date.pl 20010101-20010228
file20010101.txt file20010215.txt
>