mrmt

--- nucleus/plugins/NP_ImpExp.php.org	2010-09-11 13:22:20.939423749 +0900
+++ nucleus/plugins/NP_ImpExp.php	2010-09-10 20:52:50.000000000 +0900
@@ -107,6 +107,29 @@
 		);
 	}

+	// mrmt
+ 	function unfold($source){
+ 		$in_pre = 0;
+ 		$buf = '';

mrmt

#!/usr/bin/perl
# Excel列名変換問題で第２回社内プログラミングコンテストを開催してみた
# (前編) - ITは芸術だ
# http://d.hatena.ne.jp/JunichiIto/20111102/1320253815
#
# from 15:23
# step 1 15:51
# step 2 16:35

use strict;

mrmt

#!/usr/bin/perl
use feature 'say';
use warnings;
use strict;

usage() unless scalar(@ARGV) == 1;
our $max_value = $ARGV[0];
usage() unless $max_value > 0;

for my $i (1 .. $max_value){

mrmt

‎/*This makes the item header blue*/
.entry-title-link {
	color:#2244BB !important;
}
a.entry-title-link {
	color:#2244BB !important;
}
.entry-title {
	color:#2244BB !important;
}

mrmt

#!/bin/sh
echo " 　 ／￣￣￣￣￣ミ"
echo "　 /　 ,――――-ミ"
echo "　/　／ ／　　 ＼ |"
echo "  | /　,(・)　(・)|"
echo "(6　　　　　つ   ｡|"
echo "  | 　　　＿＿_　 |　 ／￣￣￣￣￣￣￣￣￣￣ "
echo "  |　 　 /＿＿/ ／ ＜　$*なんてねぇだろ！ "
echo "／|　　 　　　／＼　 ＼＿＿＿＿＿＿＿＿＿＿ "

mrmt

#!/usr/bin/perl
#
# Copyright (C) 1993-2001 Ken'ichi Fukamachi
#          All rights reserved. 
#               1993-1996 fukachan@phys.titech.ac.jp
#               1996-2001 fukachan@sapporo.iij.ad.jp
# 
# FML is free software; you can redistribute it and/or modify
# it under the terms of GNU General Public License.
# See the file COPYING for more details.

mrmt

From: Mixcloud <noreply@mixcloud.com>
Subject: How to reclaim your Mixcloud account.
To: XXXXXXXXXXXXXXXXXXXX

You're receiving this e-mail because you have de-authorized Mixcloud from  
your Facebook account,
and we are sad to see you leave.

If you want to claim your Mixcloud account, please go to the following page  
and choose a password,

mrmt

;; -*-emacs-lisp-*-
;; converting wiki notation from wiliki to souceforge.jp

(defun sf ()
  "converting wiki notation from wiliki to souceforge.jp"
  (interactive)
  (save-excursion

    ;; heading
    (goto-char (point-min))

mrmt

#!/usr/bin/perl
# get consumer keys and access token from http://dev.twitter.com/apps/new
use utf8;
use strict;
use warnings;
use Net::Twitter;
use YAML::Tiny;
use Data::Dumper;

sub usage{

mrmt

#!/usr/bin/perl
# rename mail file within Maildir to seen status
use strict;
use warnings;

my $file = shift;

die unless -r $file;
die unless -f $file;