JEEN

require 'formula'

class Wget <Formula
  homepage 'http://www.gnu.org/software/wget/'
  url 'http://ftp.gnu.org/gnu/wget/wget-1.12.tar.bz2'
  md5 '308a5476fc096a8a525d07279a6f6aa3'

  depends_on "libidn" if ARGV.include? "--enable-iri"

  def options

JEEN

diff --git a/lib/Gitalist/Git/Repository.pm b/lib/Gitalist/Git/Repository.pm
index bcb36fa..962466e 100644
--- a/lib/Gitalist/Git/Repository.pm
+++ b/lib/Gitalist/Git/Repository.pm
@@ -230,7 +230,7 @@ class Gitalist::Git::Repository with Gitalist::Git::HasUtils {
     method _build_description {
         my $description = "";
         eval {
-            $description = $self->path->file('description')->slurp;
+            $description = $self->path->file('description')->slurp( iomode => '<:encoding(utf8)' );

JEEN

.
|-- Changes
|-- Makefile.PL
|-- README
|-- conf
|   |-- log4perl.conf
|   `-- messages.yaml
|-- data
|   `-- backup
|       `-- ....

JEEN

perl -e 'use Time::HiRes qw/usleep/;$|=1;@chars=(0,1," ");print "\033[1;32m";while(1){print $chars[int(rand(@chars))];usleep(500);}; print "\033[0m";'

JEEN

use LWP::Simple;
my $content = get('http://gist.github.com/raw/466580/b6d2433feabd1557e72398df88dd337023a272eb/gistfile1.phtml');
my @links = $content =~ /href="(http:\/\/.*\?IM=[^"]+)"/g;
print join("\n", @links);

JEEN

108번의 내려놓음.zip*
1日30分.zip*
20대, 공부에 미쳐라.zip*
88만원세대.zip*
Ship It - 성공적인 소프트웨어 개발 프로젝트를 위한 실용가이드.zip*
이 남자를 사랑하고 싶다.zip*
내 인생에서 놓쳐선 안될 1% 행운.zip*
피터 드러커 - 자기경영노트.zip*
깨진 유리창 법칙.zip*
나를 바꾸는 심리학의 지혜 - 프레임.zip*

JEEN

....
 <script src="http://js.pusherapp.com/1.2/pusher.min.js"></script> 
 <script>
    WebSocket.__swfLocation = "/js/WebSocketMain.swf";
    var server = new Pusher("YOUR AUTH KEY", "CHANNEL NAME");
  server.bind('jeen', function (json) {
    // json 받아서 이렇게 저렇게 주물럭주물럭 ...; 
  });
  </script> 
....

JEEN

package Morris::Plugin::Pusher;
use Moose;
use namespace::autoclean;
use WWW::Pusher;
use JSON;
extends 'Morris::Plugin';

after register => sub {
    my ($self, $conn) = @_;
    $conn->register_hook( 'chat.privmsg', sub { $self->handle_message(@_) } );

JEEN

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use MyApp;

MyApp->run();

JEEN

use LWP::UserAgent;
use Web::Scraper;

my $ua = LWP::UserAgent->new( agent => 'Dummy Lee Jongs' );
my $res = $ua->get('http://....');
die "WTF?" unless $res->is_success;

my $scraper = scraper {
   process 'div[id="blahblah"]>table+table>tr>td>table', 'item' => scraper {
     process 'tr>td>table>tr>td+td', 'title' => [ 'TEXT', sub { s/yongbinize/saillinuxize/; $_ } ];