Help for this page

Select Code to Download


  1. or download this
    /opt/app/bin/.../*
/opt/app/config/.../.../*
/opt/app/log/.../.../.../*
/opt/app/tmp/*
  2. or download this
    #!/usr/bin/perl

...
  rename("${dir}${tmpFile}","${dir}${permFile}") or die "Cannot rename
+ file ${dir}${tmpFile}, $!";

}
  3. or download this
    sub wanted {
  my @dirStats = stat($File::Find::name);
...
  print(WWFILE "$File::Find::name\n");

}