[Perl]Windowsファイル共有のファイル一覧を取得する

はてな匿名ダイアリー

2008-09-11

■[Perl]Windows ファイル共有のファイル一覧を取得する

スクリプト自体はほぼコピペなので、何の貢献もはたしてないんですが。

ActivePerlからネットワーク共有フォルダのファイル一覧が取得できて、びっくらこいたびっくらこいーたーってことで。

use strict;
use warnings;
use File::Find::Rule;
use Data::Dumper;

my $rule = File::Find::Rule->new;
$rule->file;
$rule->maxdepth(2);     # ディレクトリ深さ(お好みで)
my @files = $rule->in("//NeighborMachine/SharedFolder"); # \記号を使う場合"\\\\NeighborMachine\\SharedFolder"
warn Dumper(\@files);