Re: Find::Perl find not returning

2017-12-13 Thread John W. Krahn
On Wed, 2017-12-13 at 11:28 +, Mike Martin wrote: > Hi > I have the following code > > use strict; > use File::Find; > my @vsbe; > my $top='P:\PT-6\PT-60\PT-603\Shared\Data Store\Files Dump Folder'; > my $max_depth=9; > my $cnt1=0; > > find({wanted=>\&wanted1,preprocess=>\&preprocess1},$top)

Re: Find::Perl find not returning

2017-12-13 Thread Shlomi Fish
{resending} Hi Mike, On Wed, 13 Dec 2017 11:28:55 + Mike Martin wrote: > Hi > I have the following code > > use strict; > use File::Find; > my @vsbe; > my $top='P:\PT-6\PT-60\PT-603\Shared\Data Store\Files Dump Folder'; > my $max_depth=9; > my $cnt1=0; > > find({wanted=>\&wanted1,preproce

Re: Find::Perl find not returning

2017-12-13 Thread Shlomi Fish
Hi Mike, On Wed, 13 Dec 2017 11:28:55 + Mike Martin wrote: > Hi > I have the following code > > use strict; > use File::Find; > my @vsbe; > my $top='P:\PT-6\PT-60\PT-603\Shared\Data Store\Files Dump Folder'; > my $max_depth=9; > my $cnt1=0; > > find({wanted=>\&wanted1,preprocess=>\&preproc

Find::Perl find not returning

2017-12-13 Thread Mike Martin
Hi I have the following code use strict; use File::Find; my @vsbe; my $top='P:\PT-6\PT-60\PT-603\Shared\Data Store\Files Dump Folder'; my $max_depth=9; my $cnt1=0; find({wanted=>\&wanted1,preprocess=>\&preprocess1},$top) ; sub wanted1 { if ($cnt1 <=1000){ my $file = $File::Find::name; if (grep