2009年3月22日日曜日

Windowsの共有ファイルにperlでアクセスするには

普通にopen,opendirが使えるみたい

open (FH,"//192.168.0.11/share/hoge.txt");
opendir (DIR,"192.168.0.11/share");


まあ目的はローカルにあるファイルを共有フォルダへコピーだったので
こんな感じで

use File::Copy;

$dir='//192.168.0.11/share/';
copy $backup_filename,$dir;

0 件のコメント: