JEEN

use 5.14.2;
use warnings;
use Path::Class;
use Web::Query;
use Term::ReadLine::Zoid;
use Term::ANSIColor;
use LWP::UserAgent;
use URI;

die unless $ARGV[0];

JEEN

use strict;
use warnings;
use Text::Xslate;
use Data::Section::Simple;
use Facebook::Graph;

my $fb = Facebook::Graph->new;
$fb->access_token("YOUR ACCESS TOKEN");
my $r = $fb->fetch('466164950078338/attending');
my @attendees;

JEEN

Korean Perl Workshop Timetable

14:00 - 14:10 OPEN

14:10 - 14:30 Perl 101 (aer0)
14:30 - 14:50 조금 깊이 들여다보는 정규표현식 (gypark)

14:50 - 15:00 휴식

15:00 - 15:20 동아시아 문자 처리에 대한 간단한 소개 (studioego)

JEEN

#perl-kr 티타임 #5 타임테이블

19:25 - 19:30 : 개회사(@y0ngbin)
19:30 - 20:00 : Perl6 이야기 (@am0c)
20:00 - 20:30 : ISUCON2 리뷰 (@JEEN_LEE)
20:30 - 20:50 : 휴식
20:50 - 21:20 : 펄 커뮤니티에 제언 (@JellyPooo) - Advent Calendar 이렇게 했으면 좋겠다.
21:20 - 21:55 : 조별대담 겸 @yuni_kim 에게 묻는 미국 IT, Perl
21:55 - 22:00 : 폐회사 (@y0ngbin)

JEEN

how can I do something like this?

$ rex -G my_group my_task
$ reg -G your_group my_task

task "my_task", sub {
 my $group = args->{group}; # my_group or your_group

JEEN

#!/usr/bin/env perl
package TorrentdownCommenter;
use Any::Moose;
use namespace::autoclean;
use Config::Pit;
use WWW::Mechanize;

has mech => (
  is => 'rw',
  isa => 'WWW::Mechanize',

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

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 GD;

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

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

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;
}