Active PerlをWindows XPで動かしているとき、あるフォルダ（とその中のファイル）をコピーしようと思っています。

Question

uta_at_home

88

86もっと見る

320pt

コンピュータ

Active PerlをWindows XPで動かしているとき、あるフォルダ（とその中のファイル）をコピーしようと思っています。

Perlでどのように書けば、フォルダのコピーができるでしょうか？

./folder01
というのが元のフォルダとして、
./folder02、folder03、folder04、folder05・・・・
という具合にフォルダ名を変えていくつも同じ場所にコピーする必要があります。

純粋なPerlで書けなければ、外部プログラムなどの呼び出しでもかまいません。
効率よくコピーできる方法を教えてください。

回答の条件

1人2回まで

登録：2008/05/09 01:44:23
終了：2008/05/11 02:44:15

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

まきのっぴ358302008/05/09 03:12:19

160pt

File::Copy::Recursive を使うとできます。(ドキュメント日本語訳)

こんな感じですね。

use File::Copy::Recursive qw(dircopy);

dircopy('folder01', $_) for ('folder02', 'folder03', 'folder04', 'folder05');

ありがとうございます。

こういうのがあったんですね。非常に助かります。

今Active Perlを動かせるPCが手元にないので、明日試してみます。

ありがとうございました！

2008/05/09 03:37:20

uta_at_home 2008/05/11 02:48:21

質問者です。

１さんの回答の通りにやってみると、「Recursive.pmがみつからない」と言われたので、
モジュールをダウンロードする方法を探す前に、２さんの回答のパターンでやってみました。

system 'xcopy', '/i', '/y', $OrigFolder, $NewFolder;

↑こんな感じであっさりうまくできました。
今のところこの方法で困ってないので、手抜きの感じがしないでもないですが、
しばらくこれでいこうかと思います。

何か不都合がでてきたら、１さんの回答にチャレンジしてみるかもしれません。
どちらの回答も非常に参考になりました。
ありがとうございました。
まきのっぴ 2008/05/11 03:20:52

File::Copy::Recursive は標準モジュールではないので追加インストールが必要です。
ActiveState のリポジトリに登録されているので、ppm でインストールできます。
uta_at_home 2008/05/11 04:05:42

pmakinoさん、追加情報ありがとうございます。
ppmでOKだったらうれしいです。