Skip to content

Instantly share code, notes, and snippets.

View kunst1080's full-sized avatar

kunst1080 kunst1080

13 followers · 8 following
View GitHub Profile
@kunst1080
kunst1080 / expand_photozou_album_photos.user.js
Last active December 16, 2015 22:49
フォト蔵のアルバム画面を整形する、Greasemonkeyスクリプト。 http://kunst1080.hatenablog.com/entry/2013/05/04/002552
// ==UserScript==
// @name expand_photozou_album_photos
// @namespace kunst1080
// @description フォト蔵のアルバム画面を整形して見やすくする。
// @include http://photozou.jp/photo/list/*/*
// @grant GM_xmlhttpRequest
// @grant GM_getValue
// @grant GM_setValue
// @version 1
// ==/UserScript==
@kunst1080
kunst1080 / colorls.sh
Last active December 17, 2015 12:49
素lsとperlしかない環境で、lsコマンドの結果を色付き表示する
#!/bin/sh
Usage(){
cat << __EOT__ >&2
lsコマンドの実行結果を色付きで表示します
Usage:`basename $0` <各種lsコマンドのオプション>
使用例) $ `basename $0`
@kunst1080
kunst1080 / TestTinyTest.java
Last active December 17, 2015 12:49
tiny test framework for a little act of test
package jp.kontrapunkt.kunst1080.TinyTest;
import java.util.Calendar;
import java.util.Date;
public class TestTinyTest extends TinyTest {
public static void main(String[] args) {
testStart(new OKTest());
//testStart(new NoTest());
@kunst1080
kunst1080 / cross_tabulation.sh
Last active December 17, 2015 23:29
bashのワンライナーでクロス集計（※awkとsedを使わないプレイ) 使用コマンド：cat tr cut sort xargs bash grep bc echo Cross tabulation with bash, without sed and awk. using:cat tr cut sort xargs bash grep bc echo
#!/bin/bash
# 入力ファイルをTSVからCSV形式に変換する。ついでにヘッダの除去も行う
cat "$1" | tr -s ' ' | tr '\n' ',' | cut -d, -f2- | tr , '\n' | tr ' ' , | grep -v "^$" > tmp.input
# 1列目の項目を抜出し、キー１とする
cat tmp.input | cut -d, -f1 | sort -u > tmp.key1
# 2列目の項目を抽出し、キー２とする
cat tmp.input | cut -d, -f2 | sort -u > tmp.key2
@kunst1080
kunst1080 / 1_fix2cpy_1liner.sh
Last active December 18, 2015 21:09
固定長レコード形式行順ファイルでもAWKがしたい！ (ref http://www.slideshare.net/kunst1080/awk-23363479) で使用したコード。
cat TESTCPY.cbl | cut -b8- | tr -d "\n" | tr "." "\n" | sed 's/^ *//g' | sed 's/(0*/(/g' | sed 's/[()]/ /g' \
|nawk '$3=="PIC" ? ($4=="N" ? $5=$5*2:1) :1' \
|sed 's/ *PIC *[9XN] */ PIC A/g' \
|nawk '$3=="PIC" ? ($6=="COMP-3" ? $4="S9COMP3":1):1' | sed 's/S9COMP3 */H/g' | sed 's/ *COMP-3 *//g' \
|sed 's/ *PIC */ /g' | cut -d " " -f1,3- \
|nawk '{if($2=="OCCURS"){for(i=0;i<$3-1;i++){$(10+i)=$4;$2="";$3=""}}; $1="";print $0}' \
|tr -d " " | tr -d "\n" | xargs -I% perl -nle "@o=unpack(%, \$_);print join(',',@o)" cobolfile.txt
@kunst1080
kunst1080 / sed.bat
Last active December 18, 2015 21:09
sedっぽことをするためのBATファイル@がんばらない
@if (1==1) /*
@echo off
if "%~1"=="" goto :USAGE
if "%~1"=="/?" goto :USAGE
rem ********************************************************************************
:MAIN
CScript //nologo //E:JScript "%~f0" %*
If ERRORLEVEL 1 goto :USAGE
@kunst1080
kunst1080 / cal.bat
Created June 25, 2013 15:03
DOS-BATでcalコマンドを作ってみた。
@echo off
setlocal
rem ********************************************************************************
if "%1"=="-h" goto USAGE
if "%1"=="--help" goto USAGE
if "%1"=="/?" goto USAGE
goto MAIN
rem ********************************************************************************
:USAGE
@kunst1080
kunst1080 / Char2SjisHexString.java
Last active December 24, 2015 09:58
ShiftJISの文字コード値を16進数表記で得る
import java.io.UnsupportedEncodingException;
public class Char2SjisHexString {
// Test
public static void main(String args[]){
String str = "月陽炎DVD";
for (char c : str.toCharArray()) {
System.out.println(Character.toString(c) + ":" + char2SjisHexString(c));
}
@kunst1080
kunst1080 / create_jail.sh
Last active December 27, 2015 22:19
自分用の、Jail環境構築スクリプト
#!/usr/local/bin/bash
# [前提]
# ①flavour/default に、以下のファイルをセットアップ済みであること
# - /etc/rc.conf
# - /etc/resolv.conf
# - /etc/make.conf
# - /etc/ssh/sshd_config
# - /var/ports/packages/
#
@kunst1080
kunst1080 / sakura_ftpUpload.js
Created December 1, 2013 09:12
編集中のファイルをFTPでアップロードするサクラエディタマクロ
var util = Utility();
// settings
var FTP_IP = "xxx.xxx.xxx.xxx";
var FTP_USER = "username";
var FTP_PASSWORD = "password";
var FTP_MODE = "ascii";
// メイン関数
(function main(){