RegEx: Detecting the certain cyrillic words

programmer.perl has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, I'm having trouble with matching the Cyrillic words. I want to find some needed words (words written by cyrillic fonts) in a website. I don't know how to write word 'желаю' to the regex // brackets (see my code example). I want to match whole word between the HTML brackets (<>). Source look like this: <br />CYRILLIC TEXT<br /> My code is:

!usr/bin/perl -w
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://anyrussiansite.ru/');
$req->authorization_basic('user', 'password');
$content_of_cpasar = $ua->request($req)->as_string;

$content_of_cpasar =~ s/[\n\r]//g;
print "Found ",$&,"\n" if $content_of_cpasar =~ //i;
[download]

Enough codes make shapes.

Comment on RegEx: Detecting the certain cyrillic words Select or Download Code

Replies are listed 'Best First'.
Re: RegEx: Detecting the certain cyrillic words by daxim (Curate) on Mar 01, 2013 at 15:38 UTC
#!/usr/bin/perl use utf8; use strict; use warnings FATAL => 'all'; use WWW::Mechanize qw(); my $mech = WWW::Mechanize->new; $mech->credentials('user' => 'password'); $mech->get('http://www.rambler.ru/'); my ($Кремль) = $mech->content =~ /(Кремль)/i; You very likely want to use Web::Query to dissect your HTML instead of regex, or at least match against the HTML-stripped text version of the document.	[reply]
Re^2: RegEx: Detecting the certain cyrillic words by programmer.perl (Beadle) on Mar 01, 2013 at 17:10 UTC
My whole code is, but there is no result: #!usr/bin/perl -w use utf8; use strict; use warnings FATAL => 'all'; use WWW::Mechanize qw(); my $mech = WWW::Mechanize->new; $mech->credentials('user' => 'pass'); $mech->get('http://example.ru/'); my $content = $mech->text(); $content =~ s/\n\r//g; print $1,"\n" if $content =~ /(\bЖелаю.\!\b)(.)/i; Enough codes make shapes.	[reply]
Re^3: RegEx: Detecting the certain cyrillic words by choroba (Cardinal) on Mar 01, 2013 at 18:11 UTC
Have you saved the script as utf-8? لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^4: RegEx: Detecting the certain cyrillic words by programmer.perl (Beadle) on Mar 01, 2013 at 18:17 UTC
Re^5: RegEx: Detecting the certain cyrillic words by choroba (Cardinal) on Mar 01, 2013 at 18:22 UTC
Re^2: RegEx: Detecting the certain cyrillic words by programmer.perl (Beadle) on Mar 01, 2013 at 16:55 UTC
I wrote code as you show, but command line didn't give any result... instead of `my ($Кремль) = $mech->content =~ /(Кремль)/i;` I wrote `print $1,"\n" if $mech->content =~ /(Желаю.)(\<.)/i;` Characters here not show as a Cyrillic. Enough codes make shapes.	[reply] [d/l] [select]