Issue with regex

[shounak mukherjee]

Hello Experts, I am new to perl programming and facing a few issues related to perl regular expressions. I need to apply a condition logic only if my $filename is something like: $filename =._foo.xml #Any file that starts with ._" For such files,I need to overlook the content of the file. while( ($fileName = readdir(DIR))) { next if ($fileName eq "^\._.*"); However I think this regular expresion is not able to filter the filenames based on the criteria. I shall be highly obliged if anyone can please help.

[choroba]

eq is used for string equality. Use the binding operator =~ to bind a regular expression match against a variable:

$fileName =~ /^\._/;

BTW, as you can see, there's no need to add .* at the end, as the regex doesn't have to match the whole string.

See perlop for details.

[CountZero]

File::Find::Rule may be helpful here:

use Modern::PBP::Perl;
use File::Find::Rule;

my $path = 'C:\My\Path\to\files';
my $exclude = '^\._';
my $rule = File::Find::Rule->file->not_name(qr/$exclude/)->start($path
+);
while ( defined ( my $file = $rule->match ) ) { 
    say $file;
}