#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;

# change the below to dlt - dl30    
my $logfile = "/script_logs/30DyDlt.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");
my $logmsg = $date/$dir/$file;

    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        print LOGFILE $logmsg, "\n";

    }



}
close LOGFILE;
[download]

#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;

# change the below to dlt - 

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);



foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");

    if ($stat[9] < ($now - 2592000))

    {

        #print "Deleting $dir/$file...";

        unlink("$dir/$file");

        #print "Done.\n";

    }



}
[download]

So compile error says that it doesn't like print LOGFILE $logmsg, "\n";The actual trouble may be with this: my $logmsg = $date/$dir/$file; because that looks like a division arithmetic expression. I would suggest changing:

my $logmsg = "$date/$dir/$file";
print LOGFILE "$logmsg \n";
[download]

Update:
I looked again and you've got open LOGFILE, ">> $logmsg " or die ".." I think you meant: open LOGFILE, ">>$logfile" or ... ?

I don't see any problem with the logging idea. Opening a file for append is a very normal thing to do. If you are the only user of this file, this approach will work great. Nothing fancy needed. Get the code to compile and run, then report the run-time errors.

splain

Global symbol "$logmsg" requires explicit package name at
        /oven_script/tst/dlt30day-oven1d-j2.pl line 21.  (#1)
    (F) You've said "use strict vars", which indicates that all variab
+les
    must either be lexically scoped (using "my"), declared beforehand 
+using
    "our", or explicitly qualified to say which package the global var
+iable
    is in (using "::").
[download]

well it still did not compile /usr/bin/perl /oven_script/tst/dlt30day-oven1d-j3.pl Global symbol "$file" requires explicit package name at /oven_script/tst/dlt30day-oven1d-j3.pl line 14. Execution of /oven_script/tst/dlt30day-oven1d-j3.pl aborted due to compilation errors. so it hates $file

#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;

# change the below to dlt - dl30    
my $logfile = "/script_logs/30DyDlt.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
my $logmsg = "$date/$dir/$file";

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");


    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        print LOGFILE "$logmsg \n";


    }



}
close LOGFILE;
[download]

so - i ( just for fun ) tried a my $file = "aaa" thinking explictedly declare it a value and later it gets the real fileNames -- or i was curious what wod happen...

#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;

# change the below to dlt - dl30    
my $logfile = "/script_logs/30DyDlt.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';
my $file = "aaa"

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
my $logmsg = "$date/$dir/$file";

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");


    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        print LOGFILE "$logmsg \n";


    }



}
close LOGFILE;
[download]

well that blew up in the following manner ::: /usr/bin/perl /oven_script/tst/dlt30day-oven1d-j3.pl "my" variable $file masks earlier declaration in same scope at /oven_script/tst/dlt30day-oven1d-j3.pl line 20. syntax error at /oven_script/tst/dlt30day-oven1d-j3.pl line 11, near "opendir" Execution of /oven_script/tst/dlt30day-oven1d-j3.pl aborted due to compilation errors. hummmmm