Anatoly Sharifulin sharifulin

## example.pl
# Пример модуля

use Mojo::JSON;
use Mojo::UserAgent;

has json => sub { Mojo::JSON->new };
has ua   => sub { Mojo::UserAgent->new };

use constant DEBUG => $ENV{APPFOLLOW_ANALYTICS_DEBUG} || 1;
has is_debug  => DEBUG;

## gp_parse_developer.sh
# all apps in html
$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]"

# all apps title
$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]" text

# all apps link
$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]" attr href

## wapstart_report_from_raw_data.pl
use v5.12;
use List::Util 'sum';

my $data = [
  map {
    chomp;
    my $res; @$res{qw(impr clicks ctr cost)} = grep { s/\s+//sg; s/,/./sg; s/%//sg; 1 } split /\t/; $res;
  }
  <DATA>
];

## gist:5921524
  # ids

	my @ids = $self->req->param('id');
	if (!@ids and my $ids = $self->req->param('ids')) {
		@ids = $ids =~ /(\d+)/g;
	}

## proxy.pl
#!/usr/bin/perl
use common::sense;
use lib qw(/tk/lib /tk/mojo/lib);

$ENV{MOJO_APP} ||= 'Proxy';

use Mojo::Commands; Mojo::Commands->start;

package Proxy;
use common::sense;

## parse-fair2.pl
#!/usr/bin/env perl
use v5.12;

my $limit = 500;

my $re  = qr{ dt=(\d{3,}) }x;
my $re2 = qr{\? p=([^&]+) & h=([^&]+) }x;

for (1..3_000_000) {
	my $line = q(127.0.0.1 - - [15/May/2013:21:35:24 +0000] "GET /hc/cdn-bench.gif?p=http&h=host.example.org&dt=235 HTTP/1.1" 200 43 "http://example.org/blah/?q=Kiev&sort=price.asc&utm_source=yandex&utm_medium=cpc&utm_campaign=s_gen_city_cis_ua_kiev_1565_alldevices_georus&from=earch.no&_openstat=zzz" "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.4 (KHTML, like Gecko) Chrome/22.0.1106.241 YaBrowser/1.5.1106.241 Safari/537.4" "0.002" "ostrovok.ru" "1368653724.588" "lucky:92" us:1.1.1.1:80 us_t:0.001);

## parse-fair.pl
#!/usr/bin/env perl
use v5.12;

my $line = q(127.0.0.1 - - [15/May/2013:21:35:24 +0000] "GET /hc/cdn-bench.gif?p=http&h=host.example.org&dt=235 HTTP/1.1" 200 43 "http://example.org/blah/?q=Kiev&sort=price.asc&utm_source=yandex&utm_medium=cpc&utm_campaign=s_gen_city_cis_ua_kiev_1565_alldevices_georus&from=earch.no&_openstat=zzz" "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.4 (KHTML, like Gecko) Chrome/22.0.1106.241 YaBrowser/1.5.1106.241 Safari/537.4" "0.002" "ostrovok.ru" "1368653724.588" "lucky:92" us:1.1.1.1:80 us_t:0.001);

my $re   = qr{\? p=([^&]+) & h=([^&]+) & dt=(\d+) }x;

for (1..3_000_000) {
  my @r = $line =~ /$re/;


## stat_fb_ads.pl
#!/usr/bin/env perl
use v5.12;

use Encode;
use Text::CSV;
use Data::Dumper;

my $dir = '/Users/sharifulin/Downloads/refb814';

while (<$dir/*.csv>) {

## basisjs-check.sh
#!/bin/bash

LOGFILE=basisjs.log

(
  echo -n; echo '---'; echo `date`
  time mojo get http://basisjs.com title text
) 1>> $LOGFILE 2>> $LOGFILE

## test_check_href.pl
use v5.12;
use ojo;

say g(
  'http://ostrovok.ru',
	{'User-Agent' => 'Googlebot/2.1 (+http://www.googlebot.com/bot.html)'}
)
  ->dom
  ->at('a.mobile-banner')->{href}
;
	# Пример модуля

	use Mojo::JSON;
	use Mojo::UserAgent;

	has json => sub { Mojo::JSON->new };
	has ua => sub { Mojo::UserAgent->new };

	use constant DEBUG => $ENV{APPFOLLOW_ANALYTICS_DEBUG} \|\| 1;
	has is_debug => DEBUG;
	# all apps in html
	$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]"

	# all apps title
	$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]" text

	# all apps link
	$ mojo get "https://play.google.com/store/apps/developer?id=Яндекс&hl=ru" "a[class=title]" attr href
	use v5.12;
	use List::Util 'sum';

	my $data = [
	map {
	chomp;
	my $res; @$res{qw(impr clicks ctr cost)} = grep { s/\s+//sg; s/,/./sg; s/%//sg; 1 } split /\t/; $res;
	}
	<DATA>
	];
	# ids

	my @ids = $self->req->param('id');
	if (!@ids and my $ids = $self->req->param('ids')) {
	@ids = $ids =~ /(\d+)/g;
	}
	#!/usr/bin/perl
	use common::sense;
	use lib qw(/tk/lib /tk/mojo/lib);

	$ENV{MOJO_APP} \|\|= 'Proxy';

	use Mojo::Commands; Mojo::Commands->start;

	package Proxy;
	use common::sense;
	#!/usr/bin/env perl
	use v5.12;

	my $limit = 500;

	my $re = qr{ dt=(\d{3,}) }x;
	my $re2 = qr{\? p=([^&]+) & h=([^&]+) }x;

	for (1..3_000_000) {
	my $line = q(127.0.0.1 - - [15/May/2013:21:35:24 +0000] "GET /hc/cdn-bench.gif?p=http&h=host.example.org&dt=235 HTTP/1.1" 200 43 "http://example.org/blah/?q=Kiev&sort=price.asc&utm_source=yandex&utm_medium=cpc&utm_campaign=s_gen_city_cis_ua_kiev_1565_alldevices_georus&from=earch.no&_openstat=zzz" "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.4 (KHTML, like Gecko) Chrome/22.0.1106.241 YaBrowser/1.5.1106.241 Safari/537.4" "0.002" "ostrovok.ru" "1368653724.588" "lucky:92" us:1.1.1.1:80 us_t:0.001);
	#!/usr/bin/env perl
	use v5.12;

	use Encode;
	use Text::CSV;
	use Data::Dumper;

	my $dir = '/Users/sharifulin/Downloads/refb814';

	while (<$dir/*.csv>) {
	#!/bin/bash

	LOGFILE=basisjs.log

	(
	echo -n; echo '---'; echo `date`
	time mojo get http://basisjs.com title text
	) 1>> $LOGFILE 2>> $LOGFILE
	use v5.12;
	use ojo;

	say g(
	'http://ostrovok.ru',
	{'User-Agent' => 'Googlebot/2.1 (+http://www.googlebot.com/bot.html)'}
	)
	->dom
	->at('a.mobile-banner')->{href}
	;