smeghead

#!/bin/sh

dir=$(dirname $0)
backup_dir=$dir/../backup/crontab

mkdir -p $backup_dir

cp $backup_dir/crontab-backup $backup_dir/crontab-backup.1
crontab -l > $backup_dir/crontab-backup
diff -Nu $backup_dir/crontab-backup.1 $backup_dir/crontab-backup >> $backup_dir/crontab-history

smeghead

  var execAfter = function(test, proc) {
    var timer = setInterval(function(){
      if (test()) {
        clearInterval(timer);
        proc();
        return;
      }
    }, 500);
  };

smeghead

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Data::Dumper;

die 'no argument.' if scalar @ARGV < 1;
my $check_path = $ARGV[0];
my $uses = `fgrep -r 'use ' $check_path | sed -e 's/.*use \\([A-Z][a-zA-Z0-9:]\\+\\).*/\\1/' | grep -v '^/' | sort | uniq`;

smeghead

find . -name '*.ext' | xargs -n 1 perl -pi.bak -e 's/before string/after string/'

smeghead

for f in *.php; do n=${f%.*}; mv $n.php $n.tx; done;

smeghead

msgid "hello"
msgstr "konnnitiwa"

smeghead

#!/bin/sh

if [ $# == 0 ]; then
	echo "usage: $1 <ssl cert file>"
	exit 1
fi
FILENAME=$1
if [ ! -f "$FILENAME" ]; then
	echo "ERROR: <ssl cert file> not exists. $FILENAME"
	exit 1

smeghead

(defn fib [n]
  (cond 
    (< n 0) (throw (IllegalArgumentException. "fib argument must be plus number."))
    (= n 1) 1
    (= n 2) 1
    :else (+ (fib (- n 2)) (fib (- n 1)))))

(loop [x 1]
  (if (< x 10) 
    (do

smeghead

(defn hogehoge [x]
  (let [x 0
        y 0]
    hoge)
  (fn [x 0
       y 0]
    (+ x y)))

smeghead

# for Apache Killer. ignore Range Header.
RewriteEngine on
RewriteCond %{HTTP:range} !(^bytes=[^,]+(,[^,]+){0,4}$|^$)
RewriteRule .* - [F]