IT Office Nishimiyahara

個人用スマホから商用プログラミングまでなんでもお任せ下さい

Perlでファイルをサブディレクトリごとコピーする

      2014/05/14

Perlをツール的に使っていて、コードの中で複数の階層にあるファイルをディレクトリごと再帰的にコピーしたくなった。 以前、ファイルのコピーについて何か書いた気がして調べてみたのだが、大したことが書いていなかった…。

ファイルのコピーをする場合は、File::Copyというモジュールを使うのが良い。

[ファイルのコピー@のぶろぐ]

ということで、他の方法を調べてみたところ、「File::Copy::Recursive」を使うのがよさそうだ、というところに行き着いた。 標準モジュールではないのでcpanからインストールする必要があったが、特に問題はなくスムーズにインストールできた。 現在のディレクトリ以下のファイルを、絶対パスの「/temp」へコピーする場合は、以下のようにする。

参考: Daniel Muey / File-Copy-Recursive - search.cpan.org

ちなみに、「Path::Class」のオブジェクトも引数で渡すことができるようだ。 ナイス連係プレー。

respo

respo link

ZenBackWidget

 - 情報技術について