Perl regular expression does not work on 5.8.0

[Stefan Rupp]

Good afternoon,

we have a perl regular expression which always worked for us on
Solaris(SPARC) HPUX(IA64) and Debian GNU/Linux(i386). But now I have to
install a software on a RedHat based GNU/Linux i386 box and the same
expression does not work any longer.

See the following script:

----------------------------------------------------------
#!/usr/bin/perl

print "Enter lines with 'key = value'\n";

while ( <STDIN> ) {
if ( /^\s*([^\s=]+)\s*=\s*([^\"]\S*|\".*\")\s*/ ) {
print "Match! key = '$1', value = '$2'\n";
}
else {
print "No match.\n";
}
}
----------------------------------------------------------

On Debian (Woody) with Perl 5.6.1 it works, it matches lines like

a = b

On HPUX(IA64) with Perl 5.8.0 it works as well. On RedHat 9 with Perl
5.8.0 however, it does not match at all.

What am I doing wrong?

Any help is appreciated!

Regards,
Stefan


--
Stefan Rupp Phone: +49 (0) 2408 9456-44
Inform GmbH Fax: +49 (0) 2408 9456-45
Pascalstr. 23, 52076 Aachen, Germany E-Mail: [email]stefan.rupp@inform-ac.com[/email]

[Christian Winter]

"Stefan Rupp" <stefan.rupp@inform-ac.com> wrote:

> if ( /^\s*([^\s=]+)\s*=\s*([^\"]\S*|\".*\")\s*/ ) {

Hi,

in some circumstances the [^\s] doesn't work in the standard
distribution of perl shipped with redhat 9, due to some utf8
bug. Upgrading your perl version or disabling utf8 support
for your locale should solve this.

HTH
-Christian

[Stefan Rupp]

Good evening,

Thanks for the answer!

Christian Winter schrieb:

> in some circumstances the [^\s] doesn't work in the standard
> distribution of perl shipped with redhat 9, due to some utf8
> bug. Upgrading your perl version or disabling utf8 support
> for your locale should solve this.

How do I 'disable utf8 support' in RH 9? I'm more used to Debian, so
I'm unfamiliar with 'The RedHat way'.

The other option, to update perl, would be to go to perl 5.8.1 beta,
which I'd rather avoid. I'd need libdb-4.1.so for that as well.

Regards,
Stefan