Finding and replacing a UNICODE string.

[kevin . burton]

I read in the docs that Unicode was limited in perl. I would like to search
for and replace a Unicode (2 byte) string in a file. If I want to simply
print out each line in a Unicode file the following works just fine.

$filename = "file.unicode";
open(FILE, $filename) or die "Can't open '$filename': $!";
while(<FILE>) {
        print $_;
}
close FILE;

Yet if I try to match a particular string the string is not matched.

$filename = "file.unicode";
open(FILE, $filename) or die "Can't open '$filename': $!";
while(<FILE>) {
        if(/Testing/) {
                print $_;
        }
}
close FILE;

I know that "Testing" is in the file (of course there are two bytes per
character) but it seems that Perl does not find it or does not properly
convert the characters. Any suggestions as to how I might proceed?

Thanks again.

Kevin Burton
[EMAIL PROTECTED]

---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
         [EMAIL PROTECTED]
For non-automated Mailing List support, send email to  
         [EMAIL PROTECTED]