JEEN

좋은 모듈을 고르는 좋은 방법

저자

@JEEN_LEE - 세작, 사쿠라, 쁘락치, github:jeen

시작하며

[CPAN Testers Statistics][url-stats-cpantesters] 에서 확인할 수 있는 것처럼 현재 CPAN 에 등록된 모듈은 3만여개에 가깝습니다. 많은 모듈이 있다는 것은 좋은 것입니다. 하지만 모든 모듈이 다 좋은 것은 아닙니다. A 라는 일을 하기 위한 모듈이 수십여개가 되는 경우에는 도대체 무엇을 골라야 할 지 난감해지기 마련입니다. 그럼 우리는 어떻게 좋은 모듈을 골라야 할까요?

JEEN

--- include/struct.h.1    2013-07-18 21:42:20.752771379 +0900
+++ include/struct.h	2013-07-18 21:42:33.608803867 +0900
@@ -175,7 +175,7 @@
 #define	USERLEN		10
 #define	REALLEN	 	50
 #define	TOPICLEN	307
-#define	CHANNELLEN	32
+#define	CHANNELLEN	50
 #define	PASSWDLEN 	48	/* was 20, then 32, now 48. */
 #define	KEYLEN		23

JEEN

#!/usr/bin/perl
my $file1 = $ARGV[0];
my $file2 = $ARGV[1];
open my $R, "<", $file1 or die ("Could not open $file!");
open my $P, "<", $file2 or die ("Could not open $file!");
 
my %data = ();
 
while (my $Rline = <$R>) {
    $Rline =~ s/[\r\n]//g;

JEEN

#!/usr/bin/perl
my $file1 = $ARGV[0];
my $file2 = $ARGV[1];
open my $R, "<", $file1 or die ("Could not open $file!");
open my $P, "<", $file2 or die ("Could not open $file!");
 
my %data = ();

while (my $Pline = <$P>) {
    $Pline =~ s/[\r\n]//g;

JEEN

$ HARNESS_PERL_SWITCHES=-MDevel::Cover=+ignore,local,+ignore,root \
carton exec -Ilib -- prove -lv --timer --formatter TAP::Formatter::JUnit t/*
.....

[Tue Jun 25 14:26:33 2013] [error] [ERROR] ** ElasticSearch::Error::Request at local/lib/perl5/ElasticSearch/Transport/HTTP.pm line 67 :
SearchPhaseExecutionException[Failed to execute phase [query], total failure; shardFailures {[X2QKjOXGSHykChFtJCtGPA][2013-06-10][3]: SearchParseException[[2013-06-10][3]: query[sort:[*],from[-1],size[-1]: Parse Failure [Failed to parse source [{"query":{"prefix":{"sort":["publish_date:desc"],"title":"오리"}}}]]]; nested: SearchParseException[[2013-06-10][3]: query[sort:[*],from[-1],size[-1]: Parse Failure [No parser for element [title]]]; }{[X2QKjOXGSHykChFtJCtGPA][2013-06-10][2]: SearchParseException[[2013-06-10][2]: query[sort:[*],from[-1],size[-1]: Parse Failure [Failed to parse source [{"query":{"prefix":{"sort":["publish_date:desc"],"title":"오리"}}}]]]; nested: SearchParseException[[2013-06-10][2]: query[sort:[*],f

JEEN

#!/usr/bin/perl
my $file1 = $ARGV[0];
my $file2 = $ARGV[1];
open my $R, "<", $file1 or die ("Could not open $file!");
open my $P, "<", $file2 or die ("Could not open $file!");

my %data = ();

while (my $Rline = <$R>) {
    $Rline =~ s/[\r\n]//g;

JEEN

use strict;
use warnings;

open my $fh, "<", $ARGV[0] or die $!;
my $data;
while(<$fh>) {
    s/[\r\n]//g;
    my (undef, $id1, $id2) = split '\s+', $_;
    push @{ $data->{$id2} }, $id1;
}

JEEN

#!/usr/bin/env perl

use strict;
use warnings;

use GD;

my $img = GD::Image->new($ARGV[0]);

my ($width, $height) = $img->getBounds;

JEEN

 #!/usr/bin/perl
 
 open $file,'<',$ARGV[0];
 
 while(<$file>){
    my @line=split ' ',$_;
    if ($line[1]  < 0.05 && $line[2] < 0.05) {
        $count++;
        $total++;
        print join("\t", @line), "\n";.

JEEN

#!/usr/bin/env perl
use strict;
use warnings;
use Web::Query;
use URI;
use AnyEvent::HTTP::LWP::UserAgent;
use Coro;

my $ua  = AnyEvent::HTTP::LWP::UserAgent->new;
my $uri = URI->new('http://www.percona.com/live/mysql-conference-2013/slides');