Re: RegEx: Detecting the certain cyrillic words

#!/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.

Comment on Re: RegEx: Detecting the certain cyrillic words

Replies are listed 'Best First'.
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
Yes, I saved the script as utf-8. I'm using gedit 3.4.1 and character encoding is "Current Locale UTF-8" Enough codes make shapes. (Hamidjon)	[reply]
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]