Code is porn

Perl script using shell command to get(/grep) the lastest file on directory for download. Just Create .htaccess (DirectoryIndex .latest.cgi) for more automations, so to get the latest files, just point your download link to: "yoursite.com/files/"

#!/usr/bin/perl
#This is .latest.cgi
$|++; my @file = `ls -1 -t -p | grep -v -P '/'`; 
print "Location: $file[0]\n\n";
exit;

Label: bash, files, perl

#!/usr/bin/perl
#This is .latest.cgi
$|++; my @file = `ls -1 -t -p | grep -v -P '/'`; 
print "Location: $file[0]\n\n";
exit;

Label: files, perl

#!/usr/bin/perl
#
# untuk membersihkan file yang diakses terakhir $hari
# di directory $path
#
my $hari = 49;
my $path = $ARGV[1];
my $query = $ARGV[0];
if ((!$query) && (!$path)) { print "Sytanx: rdelete [pattern] [path]\n"; exit }

&destroy(`find $path -iname $query`);

sub destroy {
    my @filelist = @_;
    foreach $file(@filelist) {
        chomp($file);
        print "$file\n";
        unlink "$file";
    }
}

reset;
exit;

Label: files, perl