Perl中fork一个新的进程并通过管道和该进程交互的问题

forestwind forestwind 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我需要使用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这句能为我输入密码。
结果未能如愿。
我这样做有何不对? 恳请指导
...全文

相关推荐

评论
收藏 已收藏
分享
返回顶部
forestwind
脚本语言 37,737 成员 34,208 内容