> > This is what I'm using to find the file. .I still can't delete the > file or replace it with the file I created. > > Help pls Thanx > > se strict; > use File::Find; > use CGI qw(:standard); > my $query = param("Toetsss"); > undef $/; > > find( sub > { > return if($_ =~ /^\./); > return unless($_ =~ /Toetsss.txt/i); > stat $File::Find::name; > return if -d; > return unless -r; > > open(FILE, "< $File::Find::name") or return; my $string = > <FILE>; close (FILE); > > > print "$File::Find::name\n"; > > }, > 'c:\Documents and Settings');
I don't seen anywhere in this script where you actually attempt to delete or rename anything Did I miss something? and why are you trying to open the file, if you are just trying to delete or rename it? perldoc -f unlink perldoc -f rename Thanks, Jim --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.772 / Virus Database: 519 - Release Date: 10/1/2004 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>