yongbin

 만약 인생이 100줄짜리 펄 프로그램이라면
=======================================
 
Author: yongbin
Date: 2013-05-13 18:05:21 KST
 
 
만약 인생이 100줄짜리 펄 프로그램이라면, 우리는 대부분 7~80라인에서 exit를
만나게 될 것입니다. - 저는 현재 32번째 라인에서 고분분투 중이고 Larry는 현재
58번째 라인을 돌파하고 있습니다.

yongbin

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Printer;
use 5.010;

use LWP::Simple qw/$ua/;

my $url  = shift;
my @list = proxy();

yongbin

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use XML::Twig;
use Data::Dumper;
use Path::Tiny;
use DateTime;
use DateTime::Format::RFC3339;

yongbin

smartctl 5.42 2011-10-20 r3458 [FreeBSD 8.3-STABLE amd64] (local build)
Copyright (C) 2002-11 by Bruce Allen, http://smartmontools.sourceforge.net

=== START OF INFORMATION SECTION ===
Device Model:     ST2000DM001-1CH164
Serial Number:    Z1E2F6N3
LU WWN Device Id: 5 000c50 04f3f9e25
Firmware Version: CC24
User Capacity:    2,000,398,934,016 bytes [2.00 TB]
Sector Sizes:     512 bytes logical, 4096 bytes physical

yongbin

timethis 1:  6 wallclock secs ( 5.54 usr +  1.05 sys =  6.59 CPU) @  0.15/s (n=1)
            (warning: too few iterations for a reliable count)
                           Rate            Serial_write Serial_write_with_snappy
Serial_write             1.42/s                      --                     -13%
Serial_write_with_snappy 1.64/s                     15%                       --

yongbin

# http://twitter.com/ditto572/status/264921423112458240
#
# perl -MBytes::Random::Secure=random_bytes_base64 -E 'print random_bytes_base64(32) for ( 0 .. 120000)' > list 
# perl -MBytes::Random::Secure=random_bytes_base64 -E 'print random_bytes_base64(32) for ( 0 .. 50000)' > list2

use strict;
use warnings;

my %h;
{

yongbin

> from:	 Gabor Szabo [email protected]
> to:	 yongbin <[email protected]>
> date:	 Tue, Oct 16, 2012 at 3:08 PM
> subject:	 Re: [Perlweekly] #64 - Is Mojolicious anti-CPAN or is it a gateway-drug?
> mailed-by:	 gmail.com
> signed-by:	 gmail.com
> :	 Important mainly because of your interaction with messages in the conversation.
> 
> I have posted the link to the PW social networks and will try to do a bit more.
> How many people do you expect at the event?

yongbin

                           #perl-kr Advant Calendars
                           =========================

Author: yongbin
Date: 2012-08-20 12:28:58 KST


1 2010 
-------

yongbin

                               영화 '도둑들' 소감
                               ==================

Author: yongbin
Date: 2012-07-30 15:48:08 KST


  먼저 나는 '훔치는' 영화를 좋아한다. 오션스 시리즈를 수도 없이 반복해서 봤고
 극장에서건 비디오샵에서건 별 이름 없는 영화 라도 절도 범죄를 소재로 한다면
 가능하면 챙겨서 보는 편이다.

yongbin

#!/usr/bin/env perl

use 5.010;
use utf8;
use strict;
use warnings;

use autodie;
use Getopt::Long::Descriptive;
use Carp qw/croak/;