用PERL 能否实现从共享服务器中拷贝文件到本地

i57110403

在Windows下我写了一个BAT，
net use z: \\"ip address"\sharefolder  password  /user:username   #实现连接共享服务器，并在本地生产一个Z盘符
copy  z:\file.txt  c:\.       #拷贝Z盘下的file.txt 到C盘

在Linux下我写了个SHELL，
mount -t cifs -o username="username",password="password" //ip address/sharefolder/  /mnt/    #实现连接共享服务器，将共享文件夹mount到/mnt目录下
cp /mnt/file.txt  /root/file.txt       #拷贝/mnt 下的file.txt 到/root 下

但就不知道用PERL如何实现他，请知道的指点一下。另外不知道能不能用一个PERL脚本在WINDOWS与LINUX下都能使用。

兰花仙子

这是一个应用协议的实现问题，与Perl无关，大不了你一路system。

zlj2208

这种问题shell最简单，老老实实的用shell吧。

在Windows下我写了一个BAT，
net use z: \\"ip address"\sharefolder  password  /user:username   #实现连接共享服务器，并在本地生产一个Z盘符
copy  z:\file.txt  c:\.       #拷贝Z盘下的file.txt 到C盘

在Linux下我写了个SHELL，
mount -t cifs -o username="username",password="password" //ip address/sharefolder/  /mnt/    #实现连接共享服务器，将共享文件夹mount到/mnt目录下
cp /mnt/file.txt  /root/file.txt       #拷贝/mnt 下的file.txt 到/root 下

但就不知道用PERL如何实现他，请知道的指点一下。另外不知道能不能用一个PERL脚本在WINDOWS与LINUX下都能使用。

i57110403

如果用system()，就没啥意义了，
PERL真的不能实现吗？
还有个问题是用PERL脚本能配置固定IP吗？

dugu072_cu

受不了 lz 了，你这个配 IP 一个帖子搞不定，又开一个来问！
喜欢刨根问底是好事，但是不经过大脑的刨根问底，就太浪费这个版面了！

Shell、bat 这种东西是干什么的？说他们不是语言都不为过，因为他们也只是系统提供的一些接口而已，copy \\ip\xx xx, 看起来很爽，这又不是 bat 的能力，这只是 Windows 解析了 bat 后，利用共享协议传输过来的，强大的是 windows，而非 bat！
配置固定 ip，也是一样，你看到 netsh命令 可以配置固定  ip，就一定要想 perl 本身行不行，你怎么就不想想，netsh 又是怎么实现的？netsh本质只是一个放在 windows 系统目录下的 exe 而已，他是用 c/c++ 写的，本质无外是 写注册表更新网卡配置之类的，bat能够实现利用 netsh 修改 ip，结果 perl 来用 netsh 你就不爽了，那 perl 还是 c 写的了，你怎么不问，perl 能不能像 c 一样，自己实现自己啊？

yaoliwei

学语言还是脚踏实地一点好。
楼主感觉思考思维不是程序员  像楼上说的 还老是考虑系统提供的cmd接口 老是这样的话编程语言就体现不了价值了。
perl更多的是编程语言 而不是shell。

我也是新手 希望大家一同提高进步。

lengchun10

windows,linux机器上都安装STAF,然后用perl脚本执行STAF支持的文件copy命令，就可以了。详情参考STAF使用说明。

例如：
$cmd="STAF  $hostname fs copy file $source to $destination tomachine $romotemachine";
system($cmd);

lishaohua119

新手问题就这样，大家多多相互鼓励，共同进步嘛！！！