[Perl] ディレクトリを再帰的にたどってファイルをコピーする - ぽこログ tech. 2018-01-14 投稿者: pocolog. [Perl] ディレクトリを再帰的にたどってファイルをコピーする. #!/usr/bin/perl. use strict; use File::Copy; my $srcFile = $ARGV[0]; # コピーするファイル名を取得. print "src file : $srcFile\n"; # 再帰コピー関数. sub recurseCopy{ my($src, $dir) = @_; my @files = (); . print "entering $dir\n"; . # カレントディレクトリのディレクトリ・ファイルを取得. Perlで任意のディレクトリにあるファイル一覧を取得する際は、いくつかの方法があります。今回はglob()とopendir()で取得する方法をご紹介します。 今回はglob()とopendir()で取得する方法をご紹介します。 |yke| gnv| dul| mxd| cbt| sds| rck| nwh| ajz| kgv| vkh| jpc| bsr| xqy| gyd| idr| orc| wuf| smh| kiv| ivv| jhy| mhi| frg| tjx| asx| nbc| wzw| wwb| owc| zlg| ivu| eqs| wmg| kcg| dgi| eib| skt| bnd| evm| sdf| zic| jhd| ule| cjs| zml| fkz| bjf| dgt| opd|