Skip to content

Instantly share code, notes, and snippets.

View yujihamaguchi's full-sized avatar

Yuji Hamaguchi yujihamaguchi

View GitHub Profile
@yujihamaguchi
yujihamaguchi / list_running_pid.sql
Created July 14, 2014 06:53
[Redshift] 実行中のプロセスをリスト
select pid, starttime, duration,
trim(user_name) as user,
trim (query) as querytxt
from stv_recents
where status = 'Running';
@yujihamaguchi
yujihamaguchi / lsof.sh
Created July 19, 2014 08:03
[Linux] 待ち受けポート番号とプログラムの確認
lsof -i -n -P
@yujihamaguchi
yujihamaguchi / fizzbuzz-using-condp.clj
Created July 19, 2014 12:42
fizzbuzz using condp
(defn fizzbuzz [x]
(condp #(= (mod %2 %1) 0) x
15 "FizzBuzz"
3 "Fizz"
5 "Buzz"
x))
@yujihamaguchi
yujihamaguchi / gist:41a4056b87a1f2dd3c58
Last active August 29, 2015 14:04
[Redshift] テーブル名と制約名の紐付け一覧
SELECT
(SELECT relname FROM pg_class r2 WHERE r2.oid = r1.conrelid) AS table_name
,conname AS constraint_name
FROM
pg_constraint r1
@yujihamaguchi
yujihamaguchi / gist:52c92592c071b6ce3d76
Last active August 29, 2015 14:04
[Redshift] UNLOADコマンド
UNLOAD ('SELECT * FROM <table name>')
TO 's3://<bucket name>/<dir name>/'
CREDENTIALS 'aws_access_key_id=<access key>;aws_secret_access_key=<secret key>'
NULL AS 'This is null value'
GZIP;
-- One File
UNLOAD ('SELECT * FROM <table name>')
TO 's3://<bucket name>/<dir name>/'
CREDENTIALS 'aws_access_key_id=<access key>;aws_secret_access_key=<secret key>'
@yujihamaguchi
yujihamaguchi / gist:f30aa24815e881a2e869
Last active August 29, 2015 14:04
[Redshift] COPYコマンド
COPY <table name> FROM 's3://<bucket name>/<dir name>/'
credentials 'aws_access_key_id=<access key>;aws_secret_access_key=<secret key>'
NULL AS 'This is null value'
GZIP
COPY <table name> FROM 's3://<bucket name>/<dir name>/<file name>.csv'
credentials 'aws_access_key_id=<access key>;aws_secret_access_key=<secret key>' CSV DATEFORMAT 'YYYYMMDD' TRIMBLANKS
@yujihamaguchi
yujihamaguchi / gist:ded69bbf53227eea1616
Last active August 29, 2015 14:04
[Redshift] 主キー情報取得
SELECT
nspname
,relname
,conname
,attnum
,attname
,conkey
FROM
pg_constraint r1
,pg_namespace r2
@yujihamaguchi
yujihamaguchi / gist:b1564b7ae345494069b7
Last active August 29, 2015 14:05
[Haskell] grepコマンド自作
--[grep] 標準入力について、文字列パターンに一致する部分を持つ行を出力する。
-- [Usage] grep {pattern(regex)}
import System
import Text.Regex.Posix
main = do cs <- getContents
args <- getArgs
putStr $ unlines $ filter (¥str -> contain (head args) str) $ lines cs
contain :: String -> String -> Bool
contain cs cs' = cs' =‾ cs :: Bool
@yujihamaguchi
yujihamaguchi / gist:7cc6efaf55263b980b9f
Last active August 29, 2015 14:05
[VBA] VBAからHaskell処理を使う
-- Haskell
import System
import Text.ParserCombinators.Parsec
main = do args <- getArgs
run parens (head args)
run :: Show a => Parser a -> String -> IO()
run p cs = case (parse p "" cs) of
Left e -> print e
Right x -> print x
parens :: Parser Int
@yujihamaguchi
yujihamaguchi / gist:a7c7aef21fc0eeb187f2
Created August 8, 2014 06:51
[Oracle] オブジェクトを指定し、そのオブジェクトに依存しているオブジェクトをリストする
SELECT
owner
,name
,type
,referenced_link_name
,dependency_type
FROM
dba_dependencies
WHERE
referenced_owner = UPPER('&owner')