Help for this page

Select Code to Download


  1. or download this
    use File::Find;

...
  },
  '/var/log/HOSTS'
);
  2. or download this
      $File::Find::name
    =~ m{^/var/log/HOSTS/([^/]+)/([^/]+)/(\d+)/(\d+)/(\d+)$}
      and push, @dirs, $File::Find::name;