あるフォルダを別のフォルダにコピーしたいのです。
フォルダごとコピーできる方法はないでしょうか？
少し調べたましたが見つけることができませんでした。
copyを使って、１ファイル１ファイルコピーしていくしかないのでしょうか？
No.1
3542
140
27pt
system関数使って、XCOPYコマンドを使う
■Perl-system関数
http://www.tohoho-web.com/wwwperl2.htm#system
■XCOPYコマンド
http://itpro.nikkeibp.co.jp/free/NT/WinKeyWord/20040805/1/xcopy....
-----------
4:[完了] みたいなPerlのコードを書いても良いかもしれません。
No.2
3344440
27pt
このモジュールを使えば出来そうです。
ActivePerlであれば ppm からインストールできます。
File::Copy::Recursive
を利用してうまくいきました。
ありがとうございます。
No.3
80
26pt
3つの方法
ディレクトリの階層コピーを行う
ppm で簡単にいれれるのですね。今までcygwinでmakeしてました。
use File::Copy::Recursive qw(fcopy rcopy dircopy);
$from = "c:/work/editor"; #コピー元ディレクトリ名
$to = "c:/work/aaa"; #コピー先ディレクトリ名(絶対パス)
dircopy($from, $to) or die $!;
おすすめはコレ。
perlではないですがunixと同じに使えるので便利です。
全コピーよりも差分コピーの方が更新状況も分かって便利。
cygwinに入っている物を使うか、http://www.itefix.no/phpws/ を使って下さい。
editor ディレクトリ丸ごとコピー
c:\bin\cwRsync\bin>rsync -avz --delete /cygdrive/c/work/editor /cygdrive/c/work/aaa
editor ディレクトリの中身をコピー
c:\bin\cwRsync\bin>rsync -avz --delete /cygdrive/c/work/editor/ /cygdrive/c/work/aaa
ありがとうございます。
最終的に、File::Copy::Recursiveを使いました。
非常にべんりですねー。
かずぼっくり
2007/10/12 19:46:58
4
2
1
2
2
282
274
ありがとうございます。
いろいろと試してみましたが、今回はFile::Copy::Recursiveを使用しました。