sergeyromanov

#!/usr/bin/env perl
use strict;
use 5.014;
use utf8;

use open ':encoding(cp1251)';

use Encode qw(decode encode);
use XML::LibXML;

sergeyromanov

вопрос (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

sergeyromanov

#!perl

# Krivykh Alexey 2011
use 5.010;
use strict;

use GD::Graph::colour;
use GD::Graph::hbars;
use HTTP::Cookies;
use LWP::UserAgent;

sergeyromanov

#!/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>';

sergeyromanov

#!/bin/sh

mod=$1

if test "x$mod" = "x"; then
    echo "Usage: $0 <module>"
    exit
fi

if test "x$PERL" = "x"; then

sergeyromanov

#!/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') };

sergeyromanov

program circle;

const
    N = 3;

type
    coords = array [1..N] of real;

var
    x, y : coords;

sergeyromanov

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();