smeghead

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

print "#-- missing modules list --\n";
while (<DATA>) {
        eval("use $_;");
        if ($@) {
                print "cpanm $_";

smeghead

gsettings set com.canonical.Unity.Panel systray-whitelist "['JavaEmbeddedFrame', 'Mumble', 'Wine', 'Skype', 'hp-systray', 'scp-dbus-service', 'Dropbox', 'check-git-status', 'SWT']"

smeghead

diff --git a/lib/AnyEvent/Groonga.pm b/lib/AnyEvent/Groonga.pm
index fcf0a4c..2e2ded1 100644
--- a/lib/AnyEvent/Groonga.pm
+++ b/lib/AnyEvent/Groonga.pm
@@ -221,7 +221,7 @@ sub _generate_groonga_command {
         if ( $command eq 'load' && $key eq 'values' ) {
             $value = $self->_load_filter($value);
         }
-        elsif ( $command eq 'select' && $key eq 'query' ) {
+        elsif ( $command eq 'select' && ( $key eq 'query' || $key eq 'filter' )) {

smeghead

escape ^z^z
startup_message off
autodetach on
hardstatus on
hardstatus alwayslastline "screen |%c %m/%d | %w"

smeghead

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

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

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

smeghead

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

smeghead

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

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