opendir (DH,"\\\\server\\path");
foreach (readdir <DH>){
if (/\.trn/){
unlink($_) or warn "file $_ not deleted $!\n";
}
}
Untested.
HTH
Paul
-----Original Message-----
From: Shirley Wiederholt [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 28, 2003 4:40 PM
To: [EMAIL PROTECTED]
Subject: new to perl
Hi,
This is my first email to beginner's Perl and sincerely hope I am
sending this message to the right place.
I want to delete some DB backup files using UNC pathing and perl. My
code segment, which does not work, is listed below. I do not get any
errors when I run this piece of code however, the files are not deleted
either. Does
anyone know what is wrong with the code? The file permissions are open
to
the world, the file was not in use, and I did try using
(<\\\\myserver\\e$\\LS_DbBackUp\\stdby30dev\\*.trn
<file:///\\myserver\e$\LS_DbBackUp\stdby30dev\*.trn> > ).
What I found out so far is that my code works with Perl version
5.005_03, binary build 522 but not with
ActivePerl-5.6.1-535-MSWin32-x86.msi or
ActivePerl-5.8.0.806-MSWin32-x86.msi. Has anyone else come across this
issue? What did you do to resolve it?
Code segment
foreach $file (<\\\\myserver\\e\\LS_DbBackUp\\stdby30dev\\*.trn
<file:///\\myserver\e\LS_DbBackUp\stdby30dev\*.trn> > ) {
unlink($file) || warn "file not deleted $file $!";
}
Thanks,
Shirley
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
