meso-cacase

#!/usr/bin/perl

# usage: zcat completeXXX.rna.gbff.gz ./grep_gbff.pl 'Homo sapiens'

use warnings ;
use strict ;

my $keyword = $ARGV[0] ;

$/ = "\n//\n" ;

meso-cacase

#!/usr/bin/perl

# README
# 
# This script uses WWW::Mechanize to get siRNAs from siDirect 2.0 web server (http://siDirect2.RNAi.jp/).
# WWW::Mechanize module is available at CPAN.
#
# Usage:
# ./siDirect2crawl.pl  sequence.txt
#

meso-cacase

#!/usr/bin/perl

# Twitterで自分のタイムラインを取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./home_timeline.pl  [-s  SINCE_ID]  [-m MAX_ID]
#
# Options:
# -s SINCE_ID, --since=SINCE_ID
#     SINCE_ID（数値）よりステータスIDが大きい（つまり新しい）ツイートを取得する
#     タイムライン更新時などはこの値を指定すると所得済のツイートを転送しなくてすむ

meso-cacase

#!/usr/bin/perl

# Twitterで特定ユーザのツイートを取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./user_timeline.pl  [-u  USER_ID]  [-s  SINCE_ID]  [-m MAX_ID]
#
# Options:
# -u USER_ID, --user=USER_ID
#     USER_ID（数値またはscreen name）で指定したユーザのツイートを取得する
#     省略時は、OAuthで認証した場合は自分自身のツイートを取得する

meso-cacase

#!/usr/bin/perl

# Twitterで自分宛または送信したダイレクトメッセージを取得し、タブ区切りテキスト形式で出力する
#
# Usage:
# ./get_direct_messages.pl  [-s  SINCE_ID]  [-m MAX_ID]
#     自分宛のダイレクトメッセージを取得する
# ./get_direct_messages.pl  -t  [-s  SINCE_ID]  [-m MAX_ID]
#     自分が送信したダイレクトメッセージを取得する
#

meso-cacase

#!/usr/bin/perl

# Twitterで特定ユーザのフォロワー一覧を取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./get_followers.pl  [USER]
#
# USER（screen name）で指定したユーザのフォロワー一覧を取得する
# 省略時は自分自身のフォロワー一覧を取得する
#
# 必要なモジュール：

meso-cacase

#!/usr/bin/perl

# Twitterで特定ユーザのフォロー一覧を取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./get_friends.pl  [USER]
#
# USER（screen name）で指定したユーザのフォロー一覧を取得する
# 省略時は自分自身のフォロー一覧を取得する
#
# 必要なモジュール：

meso-cacase

#!/usr/bin/perl

# Twitterで特定ユーザのfavoritesを取得し、タブ区切りテキスト形式で出力する
#
# Usage:  ./user_getfav.pl  [-u  USER_ID]  [-s  SINCE_ID]  [-m MAX_ID]
#
# Options:
# -u USER_ID, --user=USER_ID
#     USER_ID（数値またはscreen name）で指定したユーザのfavoritesを取得する
#     省略時は、OAuthで認証した場合は自分自身のfavoritesを取得する

meso-cacase

#!/usr/bin/perl

# ファイルまたは標準入力からコマンドリストを読み込み並列実行する
#
# Usage:  ./parallel.pl  [-MAX_PROC]  commandlist.txt
#
# MAX_PROC は並列実行するコマンドの最大数（数値）
# 省略時は 1、つまり並列化せず1行ずつ順番に実行
# コマンドリストは1行に1コマンドを記載
#

meso-cacase

#!/usr/bin/perl

# テキスト比較ツール difff《ﾃﾞｭﾌﾌ》【コマンドライン版】
#
# 2つのテキストファイルを読み込み、差分をハイライト表示したHTMLを出力する
# diffコマンドを用いて文字ごと（英単語は単語ごと）に比較を行う
#
# 2012-10-22 Yuki Naito (@meso_cacase)
# 2013-03-07 Yuki Naito (@meso_cacase) 日本語処理をPerl5.8/UTF-8に変更
# 2013-03-12 Yuki Naito (@meso_cacase) ver.6 トップページを本CGIと統合