> -----Original Message-----
> From: [email protected] [mailto:perl-
> [email protected]] On Behalf Of Ken Slater
> Sent: 13 December 2011 12:57
> To: [email protected]; [email protected]
> Subject: RE: File::Find::Rule problem
>
> > -----Original Message-----
> > From: [email protected] [mailto:perl-
> > [email protected]] On Behalf Of
> > [email protected]
> > Sent: Friday, December 09, 2011 4:33 PM
> > To: [email protected]
> > Subject: File::Find::Rule problem
> >
> > I have a real head scratcher trying to exclude directories with
> > File::Find:Rule version 0.32.
> >
> > I have made a small test directory on my Windows XP machine with the
> > following two files:
> >
> > D:\My Documents\projects\dave\test\log.txt
> > D:\My Documents\projects\dave\test\84_33 (Kland, Dan)\test.pl
> >
> > I want to exclude the Kland directory and just return log.txt (I know
> > I can set the depth of the find - this is just an illustrative
> problem
> > for a much larger directory structure).
> >
> > Here is my test program:
> >
> > use File::Find::Rule;
> > use strict 'vars';
> >
> > my $rule = new File::Find::Rule ();
> > my @exclude = (qr/Kland, Dan/);
> > $rule->or(
> > $rule->new->directory->name(@exclude)->prune->discard,
> > $rule->new
> > );
> >
> > my @files = $rule->file->in('D:\My Documents\projects\dave\test');
> >
> > foreach my $file (@files) {
> > print STDERR "$file\n";
> > }
> >
> > It works as it should, only returning log.txt
> >
> > However if I make certain changes to the exclude regex it fails
> (i.e.,
> > the program runs fine but returns both files, including test.pl which
> > it should not).
> >
> > This works: my @exclude = (qr/\(Kland, Dan\)/); This works: my
> > @exclude = (qr/84_33/); So does this (with a space at the end): my
> > @exclude =
> > (qr/84_33 /); This does not: my @exclude = (qr/84_33 \(Kland,
> Dan\)/);
> > This doesn't work either (adding a single space in front): my
> @exclude
> > = (qr/ \(Kland, Dan\)/); And this crashes with a lengthy
> > File::Find::Rule compile error: my @exclude = (qr/84_33 \(/);
> >
> > So, it's not the spaces, it's not the parentheses, it's ...
> something.
> >
> > Can anyone see what I'm doing wrong, or at least replicate the
> problem?
> >
> > Arvin
> >
> > This is perl, v5.10.0 built for MSWin32-x86-multi-thread (with 5
> > registered patches, see perl -V for more detail)
> >
> > Copyright 1987-2007, Larry Wall
> >
> > Binary build 1004 [287188] provided by ActiveState
> > http://www.ActiveState.com Built Sep 3 2008 13:16:37
> > _______________________________________________
>
> Hello,
> I had never used File::Find::Rule before, but I gave it a try.
> ActivePerl 5.8.9 Build 826.
>
> I set up a test with 3 files in the directory hierarchy:
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 Kland, Dan/test2.pl
>
> Then ran the following code:
>
> use strict;
> use warnings;
>
> use File::Find::Rule;
> my $ctr = 1;
>
> print "\n\n============== START =====================\n"; while (my
> $pattern = <DATA>) {
> chomp $pattern;
>
> my $rule = new File::Find::Rule ();
>
> my $subctr = 'a';
> foreach my $modifiedPattern ( qr/\Q$pattern\E/, $pattern )
> {
> my @exclude = ($modifiedPattern);
>
> print "\n=============================================\n";
> print "== $ctr$subctr >>$exclude[0]<<\n\n";
>
> $rule->or(
> $rule->new->directory->name(@exclude)->prune->discard,
> $rule->new
> );
>
> my @files = $rule->file->in('D:/My
> Documents/projects/dave/test');
>
> foreach my $file (@files) {
> print "$file\n";
> }
> $subctr++;
> }
> $ctr++;
> }
>
> __DATA__
> Kland, Dan
> (Kland, Dan)
> 84-33
> 84-33
> 84-33 (Kland, Dan)
> 84-33 Kland, Dan
> 84-32
>
> This produced the output listed below
>
> ============== START =====================
>
> =============================================
> == 1a >>(?-xism:Kland\,\ Dan)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 1b >>Kland, Dan<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 2a >>(?-xism:\(Kland\,\ Dan\))<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 2b >>(Kland, Dan)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 3a >>(?-xism:84\-33)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 3b >>84-33<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 4a >>(?-xism:84\-33\ )<<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 4b >>84-33 <<
>
> D:/My Documents/projects/dave/test/should-print.txt
>
> =============================================
> == 5a >>(?-xism:84\-33\ \(Kland\,\ Dan\))<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~
>
> =============================================
> == 5b >>84-33 (Kland, Dan)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~
>
> =============================================
> == 6a >>(?-xism:84\-33\ Kland\,\ Dan)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~
>
> =============================================
> == 6b >>84-33 Kland, Dan<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~
>
> =============================================
> == 7a >>(?-xism:84\-32)<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~ D:/My
> Documents/projects/dave/test/84-33 Kland, Dan/test2.pl
>
> =============================================
> == 7b >>84-32<<
>
> D:/My Documents/projects/dave/test/should-print.txt
> D:/My Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl D:/My
> Documents/projects/dave/test/84-33 (Kland, Dan)/test.pl~ D:/My
> Documents/projects/dave/test/84-33 Kland, Dan/test2.pl
>
> ===== END OF OUTPUT ======
>
> It appears that the parentheses are being ignored.
> The following names, produce the same results.
> And, they never seem to eliminate the directory with the parentheses.
>
> == 5a >>(?-xism:84\-33\ \(Kland\,\ Dan\))<< == 5b >>84-33 (Kland,
> Dan)<< == 6a >>(?-xism:84\-33\ Kland\,\ Dan)<< == 6b >>84-33 Kland,
> Dan<<
>
> Also, the following should not have excluded the directory "84-33
> Kland, Dan", but it did.
> == 2a >>(?-xism:\(Kland\,\ Dan\))<<
>
> So, there does seem to be something amiss.
>
> Ken
I have tried running both scripts without being able to reproduce the problem.
But then I am running Perl 5.14.1 and File::Find::Rule version 0.33, so it
could be version specific.
I notice that the Changes file for the module has...
0.33 Monday 19th September, 2011
Fixes the case where name("foo(*") hits an error with mismatched
parentheis. Reported by Jan Engelhardt.
It might be worth upgrading File::Find::Rule to the later version (Perl as
well, if you can). It might make a difference.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy.
Any unauthorised copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
