Re: Help needed with Perl script designed to find files by extension and count the number of chars

Hello Griegomas, and welcome to the Monastery!

I have a hunch it is the "" around ext1 in my find statements...

Yes, exactly. Suppose the value of $ext1 is txt. Then the regular expression /\"$ext1"$/ will match a filename such as example."txt" but not a filename such as example.txt.

...but the first $ was causing problems without it and I wasn't sure how else to resolve the issue.

There shouldn’t be any problem:

 1:11 >perl -wE "my $ext = 'txt'; my $file = 'example.txt'; say 'match
+es' if $file =~ /$ext$/;"
matches

 1:12 >
[download]

Regular expressions interpolate (except when single quotes are used as the delimiters) — see perlop#Quote-and-Quote-like-Operators. Please explain the problem you were seeing (give details).

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Help needed with Perl script designed to find files by extension and count the number of chars Select or Download Code

Replies are listed 'Best First'.
Re^2: Help needed with Perl script designed to find files by extension and count the number of chars by Griegomas (Initiate) on Apr 30, 2015 at 18:03 UTC
Thanks Anthanasius, that makes sense to me. This is the error I was seeing: Name "main::ext1" used only once: possible typo at ./perl4.pl line 8.	[reply]