is given by the following code:$VAR15 = 'G:/EXAMPLE'; Use of uninitialized value $regex in regexp compilation at C:/Perl/sit +e/lib/Text /Glob.pm line 18.
Any explantions as to why?#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; use Cwd qw(cwd); use File::Find::Rule; my $directory = "G:/EXAMPLE"; my $directory_label = "G:/EXAMPLE"; my $filename = "List_of_directories_with_dodgy_files_length_over_250_A +.txt"; open(OUT_FH, "+>>$filename") or die "Can't open $filename: $!"; print "Start\n\n"; my @subdirs = File::Find::Rule->directory->in( $directory_label ); print Dumper(@subdirs); foreach (@subdirs){ print "#"; my $directory_current = $_; my $rule = File::Find::Rule->new; $rule->file; $rule->name( '*.*' ); $rule->name(length >= 250); my @files = $rule->in( @subdirs ); foreach(@files){ print OUT_FH "$_"; print OUT_FH "\n"; } }
In reply to File::Find::Rule - error message with use of by Win
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |