Shell Programming and Scripting

Hi All,

Im having a file named logserver.txt. I want a perl script to take a backup of that file, along with the datestamp; move the file to a different location or empty the contents of the file after backup.

Remember, the file gets generated when the related service starts. My condition is that I should not stop the service to delete the file.

I have attached a perl script that I used for the above said. It takes a backup but not moving the file. Immediate help will be highly appreciated.

thanks,
Gobi

"I should not stop the service to delete the file".

I'm not sure that's really possible, unless the service supports some kind of re-start mode. At any rate, if it DOES work, then instead of your "echo" line, try this one:

Code:

            $emptyfile=system("copy NUL: \"\" > \"$_\"");

In the UNIX shell, you'd do it in one of the following ways:

Code:

$ cat </dev/null >$outfile
$ dd if=/dev/null of=$outfile

Otherwise, I would like to empty the contents of the file instead of deleting the file. Is it possible?

Try the copy NUL: line.

Its not working. Any other suggestion would be highly appreciated.

Er, what part isn't working??

I used copy nul as per the above reply and also tried system("echo.> logserver.txt"); Nothing works.