«

Is there a way to do a case-insensitive search? This is what I have so far
....
I know that what I currently have is case-sensitive.
if($paramAction eq "SEARCH") {
open(SEARCH,"$csvfile");
@lines = <SEARCH>;
close(SEARCH);

foreach $line_entry (@lines) {
if($line_entry =~ /$searchkey/) {
print "$line_entry <br>\n";
}
}
}

James

James Hunt wrote:
> Is there a way to do a case-insensitive search?

You seem to be talking about a case-insensitive pattern match, and if
so, the answer is yes.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

James Hunt wrote:
> Is there a way to do a case-insensitive search?

Please define "search"? Exact match of whole line? RE? Text::Approx? ...

> This is what I have
> so far ...
[...]
> if($line_entry =~ /$searchkey/) {

Ah, REs. Did you check the fine manual?
The very first modifier that is mentioned in "perldoc perlre" talks about
Do case-insensitive pattern matching.

Jue

$line_entry =~ /$searchkey/i

this do search for case-insensitive

more deatils about perl regular expression try "perldoc
perlrequick,"perldoc perlre" "perldoc -t perlretut"

Raymond Raj X



"James Hunt" <> wrote in message news:<nqmdnQfOyvnNKV3dRVn->...
> Is there a way to do a case-insensitive search? This is what I have so far
> ...
> I know that what I currently have is case-sensitive.
> if($paramAction eq "SEARCH") {
> open(SEARCH,"$csvfile");
> @lines = <SEARCH>;
> close(SEARCH);
>
> foreach $line_entry (@lines) {
> if($line_entry =~ /$searchkey/) {
> print "$line_entry <br>\n";
> }
> }
> }
>
> James

[snip]
> Ah, REs. Did you check the fine manual?
> The very first modifier that is mentioned in "perldoc perlre" talks about
> Do case-insensitive pattern matching.
>
> Jue



Perfect that's exactly what I needed.

--
JAMES HUNT