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]

smeghead

map ,ptv <Esc>:'<,'>! LANG=C perltidy<CR>
map ,pt <Esc>:%! LANG=C perltidy<CR>

smeghead

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

sub options {
    die "usage: $0 <user> <password> <host> <database>\n" if scalar(@ARGV) != 4;

    return {
        user => $ARGV[0],

smeghead

#!/usr/bin/awk -f
BEGIN {
}
{
        if ($11 != "\"-\"") {
                if (urls[$11] == "") {
                        urls[$11] = 0;
                }
                urls[$11] += 1;
        }