You don't have to open files you are trying to delete. See unlink

open(FILE,"/cgi and perl");
[download]

1. You didn't test for a die condition.
2. You are opening a directory for no real reason
3. What you are trying for is done by opendir and readdir

   while(<FILE>){
[download]

1. This will read FILE line by line (except that it's a directory), and put the line in $_ (which would never be used anyway)

       unlink(<*.txt>);
[download]

I know I put the script in the directory below the PERL directory, that way I could open it with the script and then delete the files. Wheres merlyn when ya need him? ;-]

Well I tried that before but it didn't work...Oh well Ill try it again..

and i get this... Insecure dependency in unlink while running with -T switch at c:\windows\TEMP\DzTemp.pl line 3

Your data is tainted :) If you're just trying to delete files, I'd either remove the -T, or use chdir, opendir, readdir, unlink in combo to delete the list of files.

With Perl, you don't open a directory like you would a normal file. Use the opendir command instead. Also, at least on my Unixy machine, that will attempt to read a file in the root directory -- no guarantee what it will do on Windows.

Obviously, if the directory open fails, reading from the filehandle won't work. So the while line doesn't do anything -- which is good, considering what happens next.

The unlink line will probably do the trick (depending on how well globbing is implemented in your version of Perl). Unfortunately, it returns a list of all of the files ending in '.txt' in the current directory, which is hardly what you want. You'll either need to chdir to the directory you want to work on, or prepend that directory name to each of the files you want to remove.

Add the requisite error checking, too. I'd code it with readdir and grep as someone already posted.

Dunno why you've got open in there, the following ought to do what you want

chdir "/directory/with/files/to/kibosh";
unlink <*.txt>;
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

#!/usr/bin/perl -w
opendir(DIR, "../test") or die "Can't open ../test: $!";
my @f = readdir DIR;
@f = map { unlink $_; $_ }
     grep { /\.txt$/i } @f;
[download]

my @f = <*.txt>;
@f = map { unlink $_; $_ }
     grep { /\.txt$/i } @f;
[download]

    $create_date = stat($_)->ctime;
    if ($create_date < ($current_date - $set_time)) {
        if (unlink ($_)) {

            open(LOG, ">>$logfile") or warn "discarding logfile output
+\n";
            print LOG "FIle: $_ - has been deleted.\n";
            close (LOG) or warn "Can't close $logfile: $!";    

        } else {

            open(ERRLOG, ">>$errorlog") or warn "scrapping error outpu
+t\n";
            eval { die "($!)"; };
            if ($@) { print ERRLOG "Cannot delete file $_ : $@!\n"; }
        }

    } else {

        open(LOG, ">>$logfile2") or warn "discarding logfile output\n"
+;
        print LOG "The file $_ is newer than 30 days.\n";
        close(LOG) or warn "Can't close $logfile2: $!";
    }
[download]

If your Perl script doesn't have its first line set with something that ends in, say -T or -wT, I would check your Windows file associations for the .pl extension. It's possible that whatever mechanism you used to install Perl associated all .pl extensions with "perl -T", just to be "safe".