Hello Tirthankar,
Tuesday, December 04, 2001, Tirthankar C. Patnaik <[EMAIL PROTECTED]> wrote:
TCP> You might want to check the permissions of those files.
TCP> The command works fine here.
TCP> But I guess the mistake is that you're working on Windows, and there you have
TCP> a back-slash ( \ ) instead of a slash ( / ).
TCP> Try this:
TCP> my ($_path) = "c:\EventLogs";
TCP> unlink <$_path/*> if -r $_path;
TCP> This should work.
no :) you forgot to escape backslash. but there is no difference
between \ and / slashes in path names in perl for windows.
second, unlink <$_path/*> does not works.
can be
my $_path = "c:/EventLogs";
if( -d $_path )
{
chdir $_path;
unlink <*> or die $!;
}
Best wishes,
Maxim mailto:[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
