Re^4: perl and sudo basic question

On line 27 %$result should be %{ $result }.

Why?

$ perl -le '
> $h = {a => 1, b => 2};
> print for sort keys %$h;'
a
b
$
[download]

Cheers,

JohnGG

Comment on Re^4: perl and sudo basic question Download Code

Replies are listed 'Best First'.
Re^5: perl and sudo basic question by yelekeri (Novice) on Jul 10, 2007 at 14:54 UTC
I don't know how it happened, but the Sudo.pm is wrong, this code is wrong : `%ret = { 'error' => (sprintf 'Error: the sudo binary "%s" is not set t +o group id = 0',$sudo) }; return \%ret;` [download] So I changed manually the code to return the correct info like this: `$ret = { 'error' => (sprintf 'Error: the sudo binary "%s" is not set t +o group id = 0',$sudo) }; return $ret;` [download] Now it is giving me the correct error information. But the actual script seems to be not running. Here is the test.sh file info : `echo hello echo something >> /tmp/testfile` [download] I haven't seen hello in the display OR the file /tmp/testfile has not been created. The "result" code is 256, what does it mean.	[reply] [d/l] [select]
Re^6: perl and sudo basic question by Tomte (Priest) on Jul 11, 2007 at 07:54 UTC
I haven't seen hello in the display OR the file /tmp/testfile has not been created. The "result" code is 256, what does it mean. Normaly you would do `my $realexitcode = $exitcode >> 8;`, assuming that Sudo.pm uses system to execute sudo -- in this case this is `1`. Looking into `sudo`s man-page: RETURN VALUES Upon successful execution of a program, the return value from sudo will simply be the return value of the program that was executed. Otherwise, sudo quits with an exit value of 1 if there is a configuration/permission problem or if sudo cannot execute the given command. regards, tomte An intellectual is someone whose mind watches itself. -- Albert Camus	[reply] [d/l]