Hi,
I am facing problems while trying to clean a log file(Means making its file Size zero).
I am not the owner of this file. From the command line, I can clean it by becoming a Sudo. (">logfilename").
I want to automate it using perl. But inside a script, sudo somehow doesnt seem to work.
Since I have to do this operation several times in the programs, its inconvenient to the the "Sudo" package provided by Perl as I need to set all the values of the Sudo structure everytime with different parameters.
The Sudo package is like this:
use Sudo;
my $su;
$su = Sudo->new(
{
sudo => '/usr/bin/sudo',
sudo_args => '...',
username => $name,
password => $pass,
program => '/path/to/binary',
program_args => '...'
}
);
$result = $su->sudo_run();
So, setting the atrributes of Sudo object everytime is inconvenient.
Is there any work around for it? I am using a BSD box and using bash as my shell.
Thanks,
Jyoti