Re: String match in Chinese character

in reply to String match in Chinese character

It works for me the same way as with "English" characters. Just don't forget to tell Perl that you want to read UTF-8 from the source, input files, or use it for output.

#! /usr/bin/perl
use warnings;
use strict;
use utf8;
 
my $string = '看【厂家直销 儿童加绒加厚打底裤 中小童冬季】Ib';
 
binmode STDOUT, ':encoding(UTF-8)';
while ($string =~ /【(.*?)】/g) {
    print "Match: $string\n";
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

In Section Seekers of Perl Wisdom