Skip to content

Instantly share code, notes, and snippets.

View mikkun's full-sized avatar
🐧
:(){ :|:& };:

KUSANAGI Mitsuhisa mikkun

🐧
:(){ :|:& };:
18 followers · 17 following
View GitHub Profile
@mikkun
mikkun / 14thArtsOfShellOneLiners.txt
Last active August 29, 2015 14:11
「第14回東京居残りシェル芸勉強会&第32回蟹ではなくピザが出るUSP友の会定例会」解答例
2014/12/13「第14回東京居残りシェル芸勉強会」の解答例
問題URL: http://blog.ueda.asia/?p=4671
Togetterまとめ: http://togetter.com/li/757291
A1:
echo 'define f(x){if(x<=1)return(1);return(f(x-1)*x)};f(100)' | bc
A2:
@mikkun
mikkun / decode_base32.sh
Created December 8, 2014 01:10
CodeIQ q1169『Restricted Base32』( http://bit.ly/1xiHTFC )解答例
#!/bin/bash
cat - |
tr a-z A-Z |
tr -cd A-Z2-7 |
tr A-Z2-7 0-9A-V |
fold -w1 |
sed \$s/$/\\\n/ |
while read _32; do echo $((32#$_32)); done |
while read _10; do echo obase=2\;$_10 | bc; done |
sed s/^/0000/g |
@mikkun
mikkun / Fork_bomb.svg
Created November 10, 2014 09:00
SVG file for printing "Fork bomb" stickers. This file is under the public domain.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@mikkun
mikkun / OneLiner-CSV_to_JSON
Created August 1, 2014 09:52
One-Liner: Convert CSV to JSON with header row as key
cat input.csv | awk 'BEGIN{FS=","}NR==1{print "[";n=split($0,k)}NR>=2{for(i=1;i<=n;i++){r=r"\""k[i]"\":\""$i"\", "}{sub(/, $/,"",r);print " {"r"},";r=""}}' | sed '$s/,$/\n]/'
@mikkun
mikkun / csv2table.sh
Last active August 29, 2015 14:03
CSVファイルからHTMLの表を作るシェルスクリプト(試作品)
#!/usr/bin/env bash
echo '<!DOCTYPE html>' > out.html
echo '<html><body><table border="1">' >> out.html
cat in.csv |
sed -e 's/^"""/"”/g' -e 's/,"""/,"”/g' |
sed -e 's/"""$/”"/g' -e 's/""",/”",/g' |
sed -e 's/""/”/g' |
tr ' ' '\a' |
@mikkun
mikkun / generate_gpl
Created February 24, 2014 17:27
Generate Pantone/DIC/TOYO-like GIMP palette file
#!/bin/bash
#
# generate_gpl: Generate Pantone/DIC/TOYO-like GIMP palette file
#
# Written by KUSANAGI Mitsuhisa <[email protected]> / Date: 2014-02-25
tmp=/tmp/$$
case "$1" in
Pantone)
@mikkun
mikkun / rec_ustream_live
Created September 4, 2013 00:30
Recording live TV stream from Ustream
#!/bin/bash
#
# rec_ustream_live: Recording live TV stream from Ustream
#
# Written by KUSANAGI Mitsuhisa([email protected]) / Date: 2012-09-03
tmp=/tmp/$$
ERROR_CHECK ()
{
@mikkun
mikkun / tiny_server.pl
Created August 30, 2013 10:29
Tiny HTTP Server in Perl
#!/usr/bin/perl -w
use 5.005;
use strict;
BEGIN { unshift @INC, '.' }
use HTTP::Daemon;
use HTTP::Status;
use IPC::Open2;