Perl中fork一个新的进程并通过管道和该进程交互的问题
我需要使用sshfs连接n个服务器。
连接的命令存储在/etc/sfs.conf里,格式如下:
sudo sshfs myname@mydomain.utk.edu: /mnt/5021 -o allow_other -p 5021
连接需要密码。处于某种原因我不能使用别的办法,必须输入密码。
我的代码如下:
open CFG, "/etc/sfs.conf";
while(<CFG>)
{
defined(my $pid = fork) or die "fork";
unless ($pid)
{
open CMD, "|$_" or die "cannot pipe to $_\n";
print CMD "password";
close CMD;
}
}
我期待print这句能为我输入密码。
结果未能如愿。
我这样做有何不对? 恳请指导