Reviews by Nikolay Nishin

cpanratings
 

RSS

perlsecret (1.011) ****

Thanks, very good and funny explanation,
best help for perl golf
github.com/Shreck/moscow_golf_1410

IO-All (0.79) *****

So, best module, for example, show perlre pod sorted by number of lines:
perl -MIO::All -E "$p{$_->name}=map{$l++}$_->slurp for grep{/perlre/}io('.')->all;for$k(sort{$p{$a}<=>$p{$b}}keys%p){say qq{$k $p{$k}}}"

Inline-C (0.64) *****

it works!!
so, I need to program a bit on c and

Inline C is very handy tool!! thanks

perl (5.20.1) ****

good job, thanks for all, especially for including DBD::Mysql

Encode-Locale (1.03) ****

thanks for such good module, you are save my day!!
now I could read russian symbol from console!!
#!/usr/bin/env perl
use utf8;
use Modern::Perl;
use Encode::Locale qw(decode_argv $ENCODING_LOCALE $ENCODING_LOCALE_FS

$ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT);

if (-t)
{

binmode(STDIN, ":encoding(console_in)");

binmode(STDOUT, ":encoding(console_out)");

binmode(STDERR, ":encoding(console_out)");
}

Encode::Locale::decode_argv();
my $lang = shift or die "Usage: $0 What_is_your_language?\n";

$lang =~ /

(perl|перл)

(?{print "use Perl or die!!\nИспользуй Перл или умри!!";})

/ix;

say "

$ENCODING_LOCALE $ENCODING_LOCALE_FS

$ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT";

Pod-Checker (1.71) *****

very useful script, thank you!!!
podchecker a2p.pod
a2p.pod pod syntax OK.

Regexp-Debugger (0.001020) ****

good module, thanks Domian
rxrx
todo:
multiline regexp
where I can put path to file

POD2-RU-PSGI (0.003) *****

молодец!! сделал такую большую работу!

YAML-Perl (0.02) *****

good idea,
but in

metacpan.org/source/INGY/YAML-Perl-0....
in

my $data = {

name => 'Ingy döt Net',

modules => [

'YAML', 'YAML::Old', 'YAML::Perl', YAML::XS'

],

};
You miss ‘ befor YAML::XS'

Best regards
Nikolay Mishin
(mishin)

Dependencies-Searcher (0.064) *****

thanks for the acknowledgment!!
very nice

ack (2.10) ****

Thanks Andy, it's grate module, it works under Windows!!
Fore example, how I install dependencies of perl script:
perl -c script.pl 2>&1 | ack -i "Can't locate ((\w+\/)*(\w+)).pm" --output=$1 | perl -pe "s{/}{::}g" | cpanm

POD2-RU (v5.18.0.1.3)

my first module, cool

POD2-ES (5.16.2.02) ****

very good module, thanks

POD2-IT (0.13) ****

Thanks Italy for translate doc, could you help me to rise project
sourceforge.net/projects/pod2ru/

Farabi (0.10) ****

Zawawi, it's a super web editor, I can program on perl from android or other system, it's cool!!

Code-TidyAll (0.05) *****

good module, also I dream to tidy oracle sql and pl-sql code

SOAP-Lite (0.714) ***

use utf8;
use Toolkit;
use XMLRPC::Lite;
require SOAP::Lite;
SOAP::Lite::import( +trace => 'debug' );

use Data::Dumper;
my $cfg = Config::Auto::parse(

"c:/Users/nmishin/Documents/db/20120628/spazm-examples-3700d4c/jira.conf");
my $jira_proxy = $cfg->{proxy};
my $jira_base_url = $cfg->{base_url};
my $proxyurl = "$jira_base_url/rpc/soap/jirasoapservice-v2?wsdl";

my $jira = XMLRPC::Lite->proxy( $proxyurl, proxy => [ "http" => $jira_proxy ] );
### $jira
my $user = 'user';
my $pass = 'passw';
my $auth = $jira->call( "jira1.login", $user, $pass )->result();

return
500 Internal Server Error at 01_rpc.pl line 25.
what should I do?

Toolkit (0.0.2) *****

Thanks Domian,
my c:\Strawberry\perl\site\lib\Toolkit\Macros\ALWAYS\Modules under win7 is
use Modern::Perl;
use Config::Auto;
use Getopt::Long;
use Pod::Usage;
use POSIX qw(strftime);
use Smart::Comments;
use English qw( -no_match_vars ) ; # Avoids regex performance penalty
use Carp;
use YAML::Tiny;
use File::Slurp;
use File::Basename;
use Try::Tiny;
use FindBin '$Bin'; #get $path_to_current_script !!!
use WWW::Mechanize::Firefox;

very useful,
PERL5LIB=c:\Strawberry\perl\site\lib

HTTP-ProxyPAC (0.31) *****

Wow, it works!!
#! /usr/bin/perl
use HTTP::ProxyPAC;
my $url_proxy_conf='wpad.my_company.com/';
my $url='jira.domain.com:2020/jira/';
my $pac = HTTP::ProxyPAC->new( URI->new($url_proxy_conf) );
my $res = $pac->find_proxy($url);
#my $res = $pac->find_proxy($ARGV[0]);

if ($res->direct) {

print "Direct\n";
} elsif ($res->proxy) {

print "Proxy:", $res->proxy('http' => $res->proxy), "\n";
}

List-MoreUtils (0.33) *****

very good for old version of Perl
I use instead of ~~
folowing:
use Modern::Perl;
use List::MoreUtils qw(any);
my @list=qw{boots balls smelt};
my $search_value='balls';
my $not_found_value='gnome';

foreach my $sv($search_value,$not_found_value){
if (any { $_ eq $sv } @list) {

print "$sv found\n";

}else{

print "$sv not found\n";

};

}

Data-Page (2.02) *****

very good, I will also add example:

use Data::Page;
use Modern::Perl;

#my $page = Data::Page->new();
my $total_entries = 1500;
my $entries_per_page = 900;
my $current_page = 1;

my @array=1..$total_entries;
#say "@array";
my $page = Data::Page->new( $total_entries, $entries_per_page, $current_page );
my $i;
for ( $i = 1 ; $i <= $page->last_page ; $i++ ) {

say $i;
$page->current_page($i);
my @curr=@array[$page->first-1 .. $page->last-1];
say "@curr";
}

gist.github.com/2414089

Test-DataDriven (0.03) ****

it seems to be good, but simple script(in example):
use MyTest;
use Test::More tests => 4;

Test::DataDriven->run;

__END__

=== Test 1
--- add1 chomp
3
--- result
4

=== Test 1
--- add1 chomp
7
--- result
8
-------------------------
don't work

C:\Users\nmishin\Documents\db\20120409\t>perl -Ilib start.t
1..4
Undefined subroutine &MyTest::add_1 called at lib/MyTest.pm line 16, <DATA> line

1.
# Looks like your test exited with 255 before it could output anything.

Kephra (0.4.3.33) *****

cool editor, good job

Filesys-DiskUsage (0.05) *****

thanks a lot,
very useful module,
I think these module must go in standart perl5 distribution
my $total1 = du( { recursive => 0 } , <data/*.xml> );

my $total2 = du( { recursive => 0 } , <data/message.*> );
### $total1
### $total2

Array-Utils (0.5) *****

super module, most useful!! thank you

Smart-Comments (1.0.4) *****

i devoted fan of this module

Win32-GuiTest (1.59) *****

best module, very good, automate putty gist.github.com/1382756
another code:

#!perl -w
#
# Create directory in totalcmd with name of date
#
use strict;
use Win32::GuiTest qw(:ALL);
use Win32::Clipboard;
use POSIX qw(strftime);

my @windows = FindWindowLike( 0, "Total", "" );
die "Could not find Total\n" if not @windows;

SetForegroundWindow( $windows[0] );

&send_keys;

sub send_keys {
my $dir=strftime( '%Y%m%d', localtime(time) );
my $CLIP = Win32::Clipboard();

$CLIP->Set($dir);

$CLIP->WaitForChange();

SendKeys("{F7}");

SendKeys("^V");

#SendKeys("$dir");

SendKeys("{ENTER}");

SendKeys("{ENTER}");
}

Module-Starter-PBP (v0.0.3) *****

but may be on windows use $ENV{USERPROFILE}
or add such code:
our $is_windows;
$is_windows = ( $^O =~ /MSWin32/ );

if ( ( !defined $ENV{HOME} ) and $is_windows ) {

$ENV{HOME} = $ENV{USERPROFILE};
}

# Locate the home directory...
if ( !defined $ENV{HOME} ) {

print 'Please enter the full path of your home directory: ';

$ENV{HOME} = <>;

chomp $ENV{HOME};

croak 'Not a valid directory. Aborting.'

if !-d $ENV{HOME};
}

true module-starter still does not know anything about the $ENV{USERPROFILE}
and it just will not use it
then turns to module-starter and change it

or add Home env with such reg file(win7) home.reg:
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment]
"HOME"="%USERPROFILE%"

TAP-Formatter-HTML (0.09) ****

it's not work on windows
prove -l -Q --formatter=TAP::Formatter::HTML check_data.pl > out13.html 2>&1
and i see error in out13.html :
Warning: couldn't read C:%5Cstrawberry%5Cperl%5Csite%5Clib%5CTAP%5CFormatter%5CHTML%5Cdefault_page.css: file does not exist!
Warning: couldn't read C:%5Cstrawberry%5Cperl%5Csite%5Clib%5CTAP%5CFormatter%5CHTML%5Cdefault_report.css: file does not exist!

what should i do?

Attribute-Signature (1.10) ****

use the module Attribute:: Signature
is also not suitable because of an error (warning on perl -c)
CODE package attribute may clash with future reserved word: returns at - line 46
CODE package attributes may clash with future reserved words: with: returns at - line 60

#!/usr/bin/perl
##############################################################################
# $URL: mishin.narod.ru $
# $Date: 2011-11-01 16:32:04 +0400 (Nov, 01 Nov 2011) $
# $Author: mishnik $
# $Revision: 1.02 $
# $Source: test check variables $
# $Description: check input parameters of function
# $ Domian Conway in PBP offer to use croak, is it correct? $
# 01-11-2011:
# put question to
# stackoverflow.com/questions/7963866/i...
##############################################################################

use strict;
use warnings;
use 5.010;

use Carp qw(cluck carp);
use Data::Dumper;
use Readonly;

#use autodie;
use Attribute::Signature;

our $VERSION = '0.01';

#run main procedure
main();

sub main : returns(integer) {

#make test for chack input parameters

Readonly my $CHECK_LEVEL => 100;

my %filials;

my $ref_hash = \%filials;

my @test = qw/444 33a 2 d 300 ffd 22/;

my $ret;

for my $test_val (@test) {

$ref_hash->{foo} = $test_val;

$ret = test_var( $ref_hash->{foo}, $CHECK_LEVEL )

|| carp("couldn't invoke test_var \%filials, $CHECK_LEVEL ");

}

return 1;
}

sub test_var : with(integer, integer) returns(integer) {

my $evaluated_value = shift;

my $check_value = shift;

#check values by business rule

if ( $evaluated_value > $check_value ) {

say "$evaluated_value > $check_value";

}

else {

say "$evaluated_value <= $check_value";

}

return 1;
}

Padre (0.90) *****

very good editor. super, wait next version,
many thanks for developers

VKontakte-API (0.04) ****

good