Help for this page

Select Code to Download


  1. or download this
    opendir(CacheDir,$Cache) || die "Couldn't open the directory $Cache: $
+!\n";
                @filelist=grep { /[0-9]{5}/ } readdir(CacheDir);
...
                    if ($filename)
                    {
                      open(ITEM,"$Cache/$filename");
  2. or download this
    opendir(CacheDir,$Cache) || die "Couldn't open the directory $Cache: $
+!\n";
                @filelist=grep { /[0-9]{5}/ } readdir(CacheDir);
...
                    if ($filename)
                    {
                      open(ITEM,"$Cache/$filename");