OGATA Tetsuji xtetsuji

## solve-onedrive.pl
#!/usr/bin/env perl
# https://twitter.com/onedrive/status/436167285259382784

use strict;
use warnings;

my %mapping = (qw/
A 3
B 0
C Q

## ClutchWorker.pm
package My::ClutchWorker;

use strict;
use warnings;
use Clutch::Worker;

register_function(
    'echo' => sub {
        my $args = shift;
        $$ .':'. $args; # return worker process response.

## JonkWorker.pm
package My::JonkWorker;

use strict;
use warnings;

use Data::Dumper;

sub work {
    my ($class, $job) = @_;
    print "job is " . Dumper($job) . "\n";

## QudoWorker.pm
package My::QudoWorker;

use base 'Qudo::Worker';

use Data::Dumper;

sub work {
    my ($class, $job) = @_;
    print $job->arg; #print $user->email;

## battery-watchd
#!/usr/bin/env perl
# xtetsuji by 2014/04/19

our $VERSION = "0.01";

use strict;
use warnings;
use utf8;

use AnyEvent;

## mydb-insert.pl
#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
binmode STDOUT, ':utf8';

use DBI;
my $dbfile = "mydb.sqlite3";
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","");

## plenvsetup
#!/bin/bash
# plenvを自動的に入れてくれるやつです

set -e

if [[ $(which plenv 2> /dev/null) ]]; then
    echo 'plenv already installed.'
elif [[ ! $(which git) ]]; then
    echo 'git is not installed!!!!!!!'
    exit 1;

## README.md

      
              3 files
            
          
              0 forks
            
          
                0 comments
              
            
              0 stars
            
          
                xtetsuji
                / README.md
            
            
              Created
              June 1, 2014 15:53
            
              
                In my Mac OS X enviromnent, when it changes Wi-Fi network, then some processes is called system by Perl Cocoa::* modules, and ancient wakeonlan.
              
          
    #NAME
macwland - Mac 無線変更検知フレームワークのサンプル
#SYNOPSIS
macwland &

#DESCRIPTION

  
## check_mysql_slavestatus
#!/bin/sh
#
# Forked at 2014/08/12
# Modifier: OGATA Tetsuji <github:xtetsuji>
# Source: https://gist.github.com/xtetsuji/d82125bfab2247d6cc96
#
# Thanks to original:
#   File: check_mysql_slavestatus.sh
#   Release Version: 0.1.1
#   Created 2012/12/10

## wget.c
#include <stdio.h>
int main(int a, char *b[]) {
  int i, j;
  char buf[256];
  char *get[6] = {
    "今だ！w番ゲットォォｫｫ！！",
    "￣￣￣￣￣∨￣￣￣　　　　　　　(´´",
    "　　　 ∧ ∧　　　　　　 　　　(´⌒(´",
    "　　⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡",
    "　　　　　　 ￣￣　 (´⌒(´⌒;;",
	#!/usr/bin/env perl
	# https://twitter.com/onedrive/status/436167285259382784

	use strict;
	use warnings;

	my %mapping = (qw/
	A 3
	B 0
	C Q
	package My::ClutchWorker;

	use strict;
	use warnings;
	use Clutch::Worker;

	register_function(
	'echo' => sub {
	my $args = shift;
	$$ .':'. $args; # return worker process response.
	package My::JonkWorker;

	use strict;
	use warnings;

	use Data::Dumper;

	sub work {
	my ($class, $job) = @_;
	print "job is " . Dumper($job) . "\n";
	package My::QudoWorker;

	use base 'Qudo::Worker';

	use Data::Dumper;

	sub work {
	my ($class, $job) = @_;
	print $job->arg; #print $user->email;
	#!/usr/bin/env perl
	# xtetsuji by 2014/04/19

	our $VERSION = "0.01";

	use strict;
	use warnings;
	use utf8;

	use AnyEvent;
	#!/bin/bash
	# plenvを自動的に入れてくれるやつです

	set -e

	if [[ $(which plenv 2> /dev/null) ]]; then
	echo 'plenv already installed.'
	elif [[ ! $(which git) ]]; then
	echo 'git is not installed!!!!!!!'
	exit 1;
	#!/bin/sh
	#
	# Forked at 2014/08/12
	# Modifier: OGATA Tetsuji <github:xtetsuji>
	# Source: https://gist.github.com/xtetsuji/d82125bfab2247d6cc96
	#
	# Thanks to original:
	# File: check_mysql_slavestatus.sh
	# Release Version: 0.1.1
	# Created 2012/12/10
	#include <stdio.h>
	int main(int a, char *b[]) {
	int i, j;
	char buf[256];
	char *get[6] = {
	"今だ！w番ゲットォォｫｫ！！",
	"￣￣￣￣￣∨￣￣￣　　　　　　　(´´",
	"　　　 ∧ ∧　　　　　　　　　(´⌒(´",
	"　　⊂(ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡",
	"　　　　　　￣￣　 (´⌒(´⌒;;",