Help for this page

Select Code to Download


  1. or download this
    find ./iso/ -type f -cmin '+11' -uid web -exec rm '{}' \;
  2. or download this
    find2perl ./iso/ -iname '*.xz' -user web -ctime 1 -exec rm '{}' \;
  3. or download this
    #! /usr/local/bin/perl -w
    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
...
    (int(-C _) == 1) &&
    (unlink($_) || warn "$name: $!\n");
}