perl中如何执行多条shell命令

jinwh12

在某些时候需要执行多条shell命令，比如：(因为可能某些情况下，只能进入指定目录才能做文件操作)
cd /etc/ssh
cat sshd_config

那么这种情况下该如何写perl脚本？ 单条命令我写的是：
$s =qx{cat /etc/passwd};

虽然chdir是可以实现，如：
        $pwd=`pwd`;
        chomp $pwd;
        chdir '/etc/ssh';
        $temp=`cat sshd_config 2>err.txt`;
        chdir $pwd;

但是需要实现的是传入的命令就是：
cd /etc/ssh
cat sshd_config
这种情况，如何来写perl？

mcshell

open FH,"/etc/ssh/sshd_confg";
print while <FH>;
close FH;

其实我还是没有看懂你意思。。用Perl内部的文件句柄不就可以读取文件吗？  为啥还要调用shell.

laputa73

`cat /etc/ssh/sshd_config`
`cd /etc/ssh;cat sshd_config;`

jinwh12

可能我的例子举的不好，我的意思是在特定的时候，必须要cd 到指定目录，才能执行后续的命令；
cd是shell的内部命令（还有很多的内部命令，如： help, history, jobs, kill, let, local, logout），那么在perl中如何执行这些shell 内部命令，并取得执行结果？

laputa73

需求提得太不清晰.
没法理解.
my @ret=`cd /var/log;cat message `; ?