如何检查在本地网络中的IP地址是否有一个共享的网络文件夹。 Perl如何实现这一点？

Question

如何检查在本地网络中的IP地址是否有一个共享的网络文件夹。 这怎么可能用Perl？

Answer 1

require IPC::System::Simple; 
use autodie qw(:all); 
system qw(smbclient -L 192.168.0.1);