in reply to Re: RegEx: Detecting the certain cyrillic words
in thread RegEx: Detecting the certain cyrillic words
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: RegEx: Detecting the certain cyrillic words
by choroba (Cardinal) on Mar 01, 2013 at 18:11 UTC | |
by programmer.perl (Beadle) on Mar 01, 2013 at 18:17 UTC | |
by choroba (Cardinal) on Mar 01, 2013 at 18:22 UTC |
In Section
Seekers of Perl Wisdom