Unicode introduction
en
use strict; | |
use Data::Dumper; | |
use String::Random qw(random_string); | |
use WWW::Mechanize; | |
open my $fh, '>>', 'logins.txt'; | |
my @domains = qw(mail.ru rambler.ru yandex.ru google.com yahoo.com); | |
for (0..199) { | |
my $mech = WWW::Mechanize->new(); |
program circle; | |
const | |
N = 3; | |
type | |
coords = array [1..N] of real; | |
var | |
x, y : coords; |
#!/usr/bin/perl | |
use Mojolicious::Lite; | |
plugin recaptcha => { | |
public_key => '...', # my public reCAPTCHA key | |
private_key => '...', # my private reCAPTCHA key | |
lang => 'ru' | |
}; | |
get '/' => sub { $_[0]->render('captcha') }; |
#!/bin/sh | |
mod=$1 | |
if test "x$mod" = "x"; then | |
echo "Usage: $0 <module>" | |
exit | |
fi | |
if test "x$PERL" = "x"; then |
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use CGI; | |
use Data::Dumper; | |
use Net::Twitter::Lite; | |
my $consumer_key = '<your consumer key>'; | |
my $consumer_secret = '<you consumer secret>'; |
#!perl | |
# Krivykh Alexey 2011 | |
use 5.010; | |
use strict; | |
use GD::Graph::colour; | |
use GD::Graph::hbars; | |
use HTTP::Cookies; | |
use LWP::UserAgent; |
вопрос (out of 237) | |
<>вопрос<>r:abstr => 36 | |
r:dem<>вопрос<> => 33 | |
r:rel<>вопрос<> => 28 | |
<>вопрос<>r:rel => 23 | |
r:spec<>вопрос<> => 14 | |
<>вопрос<>t:hum r:concr t:prof => 12 | |
<>вопрос<>r:rel t:manner => 7 | |
t:perc<>вопрос<> => 6 |
#!/usr/bin/env perl | |
use strict; | |
use 5.014; | |
use utf8; | |
use open ':encoding(cp1251)'; | |
use Encode qw(decode encode); | |
use XML::LibXML; |
#!/usr/bin/env perl | |
use strict; | |
use Imager::QRCode qw(plot_qrcode); | |
my %params = ( | |
size => 15, | |
margin => 2, | |
version => 1, | |
level => 'M', | |
casesensitive => 1, |