regex But why?

From a test.ipl
print "START\n";
my $temp = "c¨¦l¨¨brate";
print "BEFORE: $temp\n";
$temp =~ s/\W/_/g;
print "AFTER: $temp\n";
I get
START
BEFORE: c¦¨l¦µbrate
AFTER: c_l_brate

But with the same code from a call from within a tpl to a PM I get
in a log
START
BEFORE: c¨¦l¨¨brate
AFTER: c¨¦l¨¨brate

Anyone know why? and how I can fix it?

Thanks in advance!
win2k3 TS 6.5 sp1; OD 6.0.1; DD enabled
The Professor-

Find more posts tagged with

Comments

Migrateduser

If you're running this on a command line, what character set is your terminal using? If you're running this from a web page, what character set are you using there? I don't recognize all of the characters you posted -- are there ASCII codes for them?

Dave

Current Environment(s):
(1) TS 6.5 on W2K3
(2) TS 6.1 SP1 on W2K3
By the way, I miss Unix terribly.

ProfessorX

From cmd prompt: windows ascii
from web UTF-8

Thanks in advance!
win2k3 TS 6.5 sp1; OD 6.0.1; DD enabled
The Professor-

Migrateduser

Where are you running it from, then? I've never seen some of these "c¦¨l¦µbrate" characters... like I asked, are there ASCII values for those weird characters? What is the output when you put the following into the code before the translation:

@chars = unpack("C*",$temp);
print join(", ", @chars);

Where are those strange characters ultimately coming from, anyway?

Dave

Current Environment(s):
(1) TS 6.5 on W2K3
(2) TS 6.1 SP1 on W2K3
By the way, I miss Unix terribly.

ProfessorX

The Characters are è and é

cèlébrate

I guess they are showing up becasue of devent encoding of windows encoding

Thanks in advance!
win2k3 TS 6.5 sp1; OD 6.0.1; DD enabled
The Professor-

Migrateduser

Attached is a file that contains some ASCII characters above #127 and their HTML equivalents. In your script, you could read this file and translate occurances of each character into its equivalent. Does this suit your needs? Or, are you interested in translating ONLY those two characters?

Dave

Current Environment(s):
(1) TS 6.5 on W2K3
(2) TS 6.1 SP1 on W2K3
By the way, I miss Unix terribly.

ProfessorX

Found the issue. New perl unsolicited features

51304

Thanks in advance!
win2k3 TS 6.5 sp1; OD 6.0.1; DD enabled
The Professor-