【紧急求助】关于perl中自动转换用户

noexcuse

在一个小的perl程序中，我需要find 一个目录，目录的权限已经是777
但是只能用特定的用户来执行find

手动来做的话
先从root用户  sudo su - user1（直接转换用户，无需密码）
                     find . -name
是可以的

但是我在perl中用
sudo su - user1 find . -mtime -14 -type f
它却需要我输入密码

该怎么办，才能自动转换呢？
谢谢大家

cxfcxf

1. 
   
2. use Sudo;
   
3.   my $su;
   
4.   
   
5.   $su = Sudo->new(
   
6.                   {
   
7.                    sudo         => '/usr/bin/sudo',
   
8.                    sudo_args    => '...',                                 
   
9.                    username     => $name,
   
10.                    password     => $pass,
    
11.                    program      => '/path/to/binary',
    
12.                    program_args => '...'
    
13.                   }
    
14.                  );
    
15.    
    
16.   $result = $su->sudo_run();
    
17.   if (exists($result->{error}))
    
18.      {
    
19.        &handle_error($result);
    
20.      }
    
21.     else
    
22.      {
    
23.        printf "STDOUT: %s\n",$result->{stdout};
    
24.        printf "STDERR: %s\n",$result->{stderr};
    
25.        printf "return: %s\n",$result->{rc};
    
26.      }
    

复制代码

简单么....
cpan装个sudo就好了-_-

churchmice

root用户还要敲sudo么？

cxfcxf

你执行脚本的话 就要敲passwd

among29

runuser - user1 -c "find .xxxx";

jiannma

su -c "command " user   也可以啊....