Help for this page

Select Code to Download


  1. or download this
            #!/bin/perl
    open(goners,"find . -mtime +14 -print|");
...
        chop;
        unlink;
    }
  2. or download this
    #!/usr/bin/perl

...
       wanted => sub { unlink if -f -M > 14 } }, '.';

__END__
  3. or download this
        #!/bin/perl

...
        chop;
        unlink;
    }
  4. or download this
    #!/usr/bin/perl

...
       wanted => sub { unlink if -f -M > $days } }, $dir;

__END__