Skip to content

Instantly share code, notes, and snippets.

@kunst1080
kunst1080 / myTwitterBootstrapFieldConstructor.scala.html
Created December 15, 2013 02:25
app/helpers/myTwitterBootstrapFieldConstructor.scala.html It has no help-block
@(elements: views.html.helper.FieldElements)
@import play.api.i18n._
@import views.html.helper._
@**************************************************
* Generate input according twitter bootsrap rules *
**************************************************@
<div class="clearfix @elements.args.get('_class) @if(elements.hasErrors) {error}" id="@elements.args.get('_id).getOrElse(elements.id + "_field")">
@kunst1080
kunst1080 / dubleInput.scala.html
Created December 14, 2013 16:25
app/helpers/dubleInput.scala.html It has one label and two inputbox
@(field: play.api.data.Field, id2: String, name2: String, value2: String, args: (Symbol,Any)*)(implicit handler: helper.FieldConstructor, lang: play.api.i18n.Lang)
@inputType = @{ args.toMap.get('type).map(_.toString).getOrElse("text") }
@helper.input(field, args.filter(_._1 != 'type):_* ) { (id, name, value, htmlArgs) =>
<input type="@inputType" id="@id" name="@name" value="@value" style="width:6em" @toHtmlArgs(htmlArgs)>
<input type="@inputType" id="@id2" name="@name2" value="@value2" @toHtmlArgs(htmlArgs)>
}
@kunst1080
kunst1080 / pkgadd.sh
Last active December 30, 2015 14:08
FreeBSD command pkg_add -r ~~ and write log
#!/bin/sh
(
echo ------------------------------
echo sudo -i pkg_add -r $*
sudo -i pkg_add -r $*
echo
) | tee -a install.log
@kunst1080
kunst1080 / literal.L.java
Created December 7, 2013 06:33
Generic List/Map Literal
package literal;
import java.util.ArrayList;
import java.util.List;
public class L {
private L(){}
public static <T> ListBuilder<T> add(T e) {
ListBuilder<T> listBuilder = new ListBuilder<T>();
@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 / 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 / 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 / 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 / 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 / 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列目の項目を抜出し、キー1とする
cat tmp.input | cut -d, -f1 | sort -u > tmp.key1
# 2列目の項目を抽出し、キー2とする
cat tmp.input | cut -d, -f2 | sort -u > tmp.key2