soh-i

#!/usr/bin/env perl -w

use strict;
use File::Copy;
use FileHandle;

my $user = getpwuid($>);

my $from_dir = "/Users/$user/Pictures/iPhoto\ Library/Originals";
my $to_dir   = "/Users/$user/Desktop";

soh-i

#!/usr/bin/env perl -w

use strict;

# Convert CSV file that exported by Apple Numbers.app to TSV

my $file = shift || die;

open my $fh, '<', $file || die;
while ( my $entry = <$fh> ) {

soh-i

Install

brew install figlet

Usage

figlet -w outputwidth -f font

ほら

figlet -w 200 -f roman Hatena::One

ooooo ooooo . .oooooo. 

soh-i

/* <system section="theme" selected="report"> */
@import "/css/theme/report/report.css";
/* </system> */

div#google_afc_user {
  visibility: hidden;
}

a{
    color:#4682B4;

soh-i

#!/usr/bin/env perl

use strict;
use warnings;
use Date::Format;
use File::stat;

opendir my $dir, './' || die;
foreach my $file ( readdir($dir) ) {
    if ( -f $file && $file =~ m/^.+md$|^.+txt$/ ) {

soh-i

#!/usr/bin/env perl

use strict;
use warnings;

use utf8;
use Encode;
use Net::Twitter::Lite;
use Data::Dumper;

soh-i

#!/usr/bin/env perl

use strict;
use DateTime;
use Data::Dumper;

my $hist_file = '/home/soh.i/.zsh_history';

unless ( -e $hist_file ) { 
    die "Cant open .zsh_history";

soh-i

# zaw.zsh
autoload -Uz chpwd_recent_dirs cdr add-zsh-hook
add-zsh-hook chpwd chpwd_recent_dirs
zstyle ':chpwd:*' recent-dirs-max 5000
zstyle ':chpwd:*' recent-dirs-default yes
zstyle ':completion:*' recent-dirs-insert both

source /home/soh.i/.zsh/zaw/zaw.zsh
zstyle ':filter-select' case-insensitive yes
zstyle ':filter-select' max-lines 10

soh-i

# love of emacs
# .zshrcに記述する

hostname=`hostname`
new_server='fat'    #新しいマシン
watson='watson' #古めのマシン
click='click' #おじいちゃんマシン

if [ ${hostname} = ${click} ] || [ ${hostname} = ${watson} ] ; then 
    old_emacs='/usr/bin/emacs -nw'

soh-i

new
load  myfile.bam
snapshotDirectory mySnapshotDirectory
genome hg18
goto chr1:65,289,335-65,309,335
sort position
collapse
snapshot
goto chr1:113,144,120-113,164,120
sort base