Skip to content

Instantly share code, notes, and snippets.

View yujihamaguchi's full-sized avatar

Yuji Hamaguchi yujihamaguchi

View GitHub Profile
@yujihamaguchi
yujihamaguchi / gist:b817e518117c63c73d8a
Created August 13, 2014 02:27
[Redshift] 列ごとの容量確認
-- refer: http://dev.classmethod.jp/cloud/aws/amazon-redshift-tutorial-tuning-table-design/
-- システム生成の列を除外する為にWHERE句にcol < 6がある
select col, max(blocknum)
from stv_blocklist b, stv_tbl_perm p
where (b.tbl=p.id) and name ='<table name>'
and col < 6
group by name, col
order by col;
@yujihamaguchi
yujihamaguchi / gist:feb4f790a10f8ca734df
Last active August 29, 2015 14:05
[Redshift] テーブル毎のディスクスペース確認
SET SEARCH_PATH TO <schema name>;
SELECT
stv_tbl_perm.name AS table
,COUNT(*) AS mb
FROM
stv_blocklist,
stv_tbl_perm
WHERE
stv_blocklist.tbl = stv_tbl_perm.id
AND stv_blocklist.slice = stv_tbl_perm.slice
@yujihamaguchi
yujihamaguchi / gist:1c6f57eafb33e45393e2
Created August 8, 2014 06:53
[Excel] Excellで可変リストを入力規則に設定したい場合
=OFFSET(INDIRECT("Sheet2!A2"),0,0,COUNTA(INDIRECT("Sheet2!$A$2:$A$30")),1)
@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')
@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: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: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: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: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: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