Skip to content

Instantly share code, notes, and snippets.

# yuni 님이 작성하신 mac itunes 용 mp3 encoder
#!/opt/local/bin/perl5.10
use warnings;
use strict;
use MP3::Tag;
use Data::Dumper;
use Encode qw/encode decode/;
binmode STDOUT, ":utf8";
#!/usr/bin/env perl
#===============================================================================
#
# FILE: recommendations.pl
#
# USAGE: ./recommendations.pl
#
# DESCRIPTION:
#
# OPTIONS: ---
@yongbin
yongbin / .vimperatorrc
Created June 1, 2010 03:33
Enable passthrough mode on all Google sites
autocmd LocationChange .* js modes.passAllKeys = /google\.com/.test(buffer.URL)
@yongbin
yongbin / .gvimrc
Created June 1, 2010 03:34
vimrc for gvim
colorscheme torte
set lines=60
set columns=80
set guifont=Monaco:h18
set guioptions=egrLt
@yongbin
yongbin / perlhist.pl
Created June 20, 2010 15:09
extracting and access perlhist ( http://bit.ly/d22YVU )
#!/usr/bin/env perl
use utf8;
use 5.010;
use strict;
use warnings;
use File::Basename;
use File::Which qw(which);
#!/usr/bin/env perl
#===============================================================================
#
# FILE: perlhist.pl
#
# USAGE: ./perlhist.pl
#
# DESCRIPTION:
#
# OPTIONS: ---
#! /usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use SVG::TT::Graph::Line;
# Field names for the x-axis
diff --git a/lib/Gitalist/Controller/Fragment/Ref.pm b/lib/Gitalist/Controller/Fragment/Ref.pm
index 718d195..1e3503e 100644
--- a/lib/Gitalist/Controller/Fragment/Ref.pm
+++ b/lib/Gitalist/Controller/Fragment/Ref.pm
@@ -10,6 +10,7 @@ with qw/
use File::Type::WebImages ();
use JSON::XS qw(encode_json);
+use Encode qw(decode_utf8);
@yongbin
yongbin / fetch-himss2011-slides.pl
Created February 25, 2011 05:08
Simple Web::Scraper and CLI example
#!/usr/bin/env perl
use 5.010;
use utf8;
use strict;
use warnings;
use autodie;
use Getopt::Long::Descriptive;
use URI;
@yongbin
yongbin / count-himss2011-words.pl
Created February 25, 2011 21:29
Which word in #HIMSS11 session title is most frequent?
#!/usr/bin/env perl
# Thanks to @JEEN_LEE!
use strict;
use warnings;
use 5.010;
use utf8;
binmode STDOUT, ':encoding(utf8)';