kazeburo

環境

• CentOS 6.5
• MySQL 5.6.15 Oracle rpm
• mroonga 3.11
• binlog_formatはMIXED

テーブル

CREATE TABLE article_index (

hirose31

package main
import "fmt"
func main () {
	// 見つめ合う
	fmt.Println("おっくせんまん！おっくせんまん！！")
	defer fmt.Println("ジャパン！！！");
}

sh2

#!/usr/bin/env perl

use strict;
use warnings;

use File::Temp qw/tempfile/;

my ($state, $nprocs) = (0, 0);
my ($fh, $tempfile, @settings);

do-aki

######################################
# usage
#   mylogin_dumper.pl ~/.mylogin.conf
######################################
use strict;
use warnings;
use Crypt::ECB;
#use Crypt::OpenSSL::AES;

my $my_login_file = shift;

syohex

#!perl
use strict;
use warnings;

use POSIX ();

sysopen my $in, "/proc/net/dev", POSIX::O_RDONLY or die "Can't open file: $!";
open my $out, '>', 'output.log' or die "Can't open file: $!";

#$out->autoflush(1); # <== バッファリングしない(autoflush $out, 1; も可)

tmtm

#!/usr/local/bin/ruby
# -*- coding: utf-8 -*-

require 'cgi'

filename, = ARGV         # path of file `ctype-uca.c'
ctype_uca = File.read(filename)

ctype_uca =~ /^uchar uca_length\[256\]={\n(.*?)};$/m or raise 'uca_length not found'
uca_length = $1.gsub(/\s/,'').split(/,/).map(&:to_i)

kamipo

--- innobackupex-1.5.1.org      2010-12-09 23:03:09.000000000 +0900
+++ innobackupex-1.5.1  2011-01-07 01:28:20.000000000 +0900
@@ -1333,10 +1333,19 @@
     print FILE  "CHANGE MASTER TO MASTER_LOG_FILE='$filename', MASTER_LOG_POS=$position\n";
     close(FILE);

+    my $orig_datadir = get_option(\%config, 'mysqld', 'datadir');
+
     if ($option_stream eq 'tar') {
+        system("cd $orig_datadir; tar chf - master.info")