Re: searching characters

[citromatik]

in reply to searching characters

You can use the tr operator:

return 0 if (($line =~ tr/$base/$base/) >= $limit);

[JavaFan]

tr doesn't do interpolation:

my $line = "ABABABAB";
my $limit = 3;
my $base = "A";

say "Yes 1" if $line =~ tr/$base/$base/ >= $limit;
say "Yes 2" if eval "\$line =~ tr/$base/$base/" >= $limit;
__END__
Yes 2

You need an eval to interpolate.

[ikegami]

tr/// doesn't interpolate. You could use m// or s/// instead.

return 0 if ( () = $line =~ /\Q$base/g ) >= $limit;

return 0 if ( $line =~ s/\Q$base//g ) >= $limit;