菜鸟请教：shell或者perl脚本中如何切换用户

jinwh12

请教各位大拿：
如何在shell中或者perl中切换用户并执行某个命令呢？ 最近在搞informix的基线配置采集；informix是基于操作系统的用户；用informix登陆系统后，有一个基线配置需要查询
shadow文件，但是informix没有权限，如何切换到root下执行cat /etc/shadow 并得到输出呢？ 尝试了su 貌似不行，脚本语言比较菜，哪位大拿可以帮帮我呢？ 感激不尽。
（当然我自己也正在努力学习和查找资料）

expert1

sudo -u user Cmd ?

dn833

su - informix << EOF
command1
command2
commandn...
EOF

jinwh12

$informixdir = get_informix_dir();
sub get_informix_dir{
   $s = qx{su - informix  <<EOF
                                                env|grep -i INFORMIXDIR;
                                                EOF
                                        };                                       
        chomp $s;
        my @cols = split("=", $s);
        $informixdir = $cols[1];
}
if($informixdir eq ""{
        print "can't get informix directory\n";
         exit(0);
}else{
        print "informixdirinformixdir;\n";
}
执行结果，可以取到informixdir环境变量（换了种方式，使用的root用户登录，然后动态取informix用户下的内容）；但是执行后会有一个错误提示：
-bash: line 2: EOF: command not found
informixdir:/home/informix;

SecureCRT登录设备后执行：
#su - informix  <<EOF
>env|grep -i INFORMIXDIR;
>EOF
可以正常输入 informixdir环境变量，且没有上述的错误信息，这是什么原因呢？

wenhq

试下perl中的system()函数调用系统命令