人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Active PerlをWindows XPで動かしているとき、あるフォルダ(とその中のファイル)をコピーしようと思っています。
Perlでどのように書けば、フォルダのコピーができるでしょうか?

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

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

●質問者: uta_at_home
●カテゴリ:コンピュータ
✍キーワード:Active Perl Windows XP コピー ファイル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● まきのっぴ
●160ポイント

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

こんな感じですね。

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

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

◎質問者からの返答

ありがとうございます。

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

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

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


2 ● ken33jp
●160ポイント ベストアンサー

http://www.rfs.jp/sb/perl/05/system.html

system関数で、copyコマンドとか実行すれば手早いですよ。

回答1と違い、外部コマンドを呼び出す方法です。

◎質問者からの返答

なるほど。

system関数ってこう使えばいいんですね。

ありがとうございます!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ