使用Perl脚本挂载远程分区

我正试图挂载远程服务器分区来放置备份。 我已经有了perl脚本来备份数据。 我试图在脚本中添加mount命令。 下面是脚本,请指导我如何做到这一点。

如果我在控制台上运行它,它和bash脚本一样工作。 如果我用perl运行它的show mount错误。

#!/usr/bin/perl system ("mount -t cifs //192.168.178.39/Backup/Data\ folders /mnt/Backup/ -o username=xyz.com/abc.admin,password=12345@0312"); 

您需要使用\\和@使用\@来转义反斜线(在这种情况下,不需要转义@ ,因为后面跟着一个数字,如果后面跟着一个字母,则会被视为数组) 。

 system ("mount -t cifs //192.168.178.39/Backup/Data\\ folders /mnt/Backup/ -o username=xyz.com/abc.admin,password=12345\@0312"); 

,或者使用单引号:

 system ('mount -t cifs //192.168.178.39/Backup/Data\ folders /mnt/Backup/ -o username=xyz.com/abc.admin,password=12345@0312');