标签： perl samba smb nmap libsmbclient
我正在编写一个Perl脚本，当连接到所述网络时，该脚本将自动运行并自动访问网络上的共享SMB驱动器。到目前为止，我使用下面的代码做的是检查以确保网络上存在互联网连接，然后对端口139运行Nmap扫描。它是简单的代码，因此具有然而，显然是成功的，有什么方法可以自动获取端口139打开的每个IP地址，并将每个IP地址转换为变量，以便进一步使用smbclient命令？简单来说，我希望每个扫描的IP地址具有开放端口设置为$ IP1，$ IP2，$ IP3等。感谢任何帮助或反馈。
{{1}}