topic Re: Perl - REGEXP Question. in Operating System - HP-UX

Perl - REGEXP Question.

Josef Ziegler — Sat, 01 May 2004 19:34:32 GMT

Im working on a search engine in pearl.
I looking for a REGEXP funktion using the string REALY found and not what I was looking for.

This is the because lower and upper case handling.
The found words will get highlighted, and if the user entered it lowercase but in the file its uppercase we like to highlighte it uppercase, which is not working in our code.

i.e.
if($Wort01 =~ /.+/) {$_ =~ s/$(Wort01)/$1<\/span>/g}

Re: Perl - REGEXP Question.

H.Merijn Brand (procura — Sun, 02 May 2004 03:48:06 GMT

$Wort01 and s{\b($Wort01)\b}{$1}/gi;

several remarks

1. $(Wort01) will not match what you expect, ($Wort01) might
2. use /i to ignore case
3. use s{}{} or any other brace type seperator when working with regex that uses / to increase readability
4. $Wort01 =~ /.+/ is about the most inefficient I've seen for testing truth. You might consider $Wort01 =~ m/\S/

Enjoy, Have FUN! H.Merijn

Re: Perl - REGEXP Question.

H.Merijn Brand (procura — Sun, 02 May 2004 03:50:19 GMT

Oh, and forgot, since $_ is the default for many functions and operators, you'll increase readability IMHO, by using it like that, so

$_ =~ s{}{};

is the same as plain

s{}{};

Perl has already enough line noise as it is

Enjoy, Have FUN! H.Merijn. [ who just happens to love perl's line noise ]

Re: Perl - REGEXP Question.

Josef Ziegler — Sun, 02 May 2004 14:11:27 GMT

Thx procura,
My main fault was a simple typo
$(Wort01) instead to ($Wort01).

But Thanks tooo for the other tips, they could make my code much easier to read....