RE: case insensitive index() ?

[=James Birkholz=]

Thanks, Joseph, I'll chew on this tonight. I didn't start by trying a 
regex, as $content still has many "\n" in it, but in researching your use 
of the "\Q" (which isn't in my tutorial book), I ran across the "s" 
modifier. Or I could change all the "\n" to placeholders and then change 
them back later. Guess tonight I hit the perl doc on regex.

I presume that the "\Q" is needed to process the variables? I didn't think 
that was needed.
I'm confused about the "?" after the " * " .

$content =~ s/\Q$startTag.*?$endTag//i; # untested!
At 10:35 AM 7/8/03, Joseph Discenza wrote:
=James Birkholz= wrote, on Tuesday, July 08, 2003 9:54 AM
:  Is there a way to do an index function that is case-insensitive?
sub stripTagCaseInsensitive {
        my $startTag = lc($_[0]);
        my $endTag = lc($_[1]);
        my $contentCI = lc($content);
        while (index($contentCI, $startTag)>0) {
                my $first = substr($content, 0, index($contentCI, 
$startTag));
                my $last = substr($content, (index($contentCI, 
$endTag)+length($endTag)));
                $content = $first.$last;
                $contentCI = lc($content);
        }
}

stripTagCaseInsensitive("<FoNt",">");

But wouldn't it be easier to use a regex?

$content =~ s/\Q$startTag.*?$endTag//i; # untested!

Good luck,

Joe

==============================================================
          Joseph P. Discenza, Sr. Programmer/Analyst
               mailto:[EMAIL PROTECTED]
          Carleton Inc.   http://www.carletoninc.com
          574.243.6040 ext. 300    fax: 574.243.6060
Providing Financial Solutions and Compliance for over 30 Years
***** Please note that our Area Code has changed to 574! *****


_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
James Birkholz
admin, Posen-L mailing list and website
http://www.Posen-L.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs