mix3

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd;

use Data::Section::Simple qw/get_data_section/;

if($#ARGV < 0){

mix3

var SITEINFO = [
    {
        url:          'http://www.pixiv.net/member_illust.php\\?mode=medium&illust_id=',
        nextLink:     '//div[@class="centeredNavi"]/ul/li/a[contains(text(),"≫")]',
        pageElement:  '//div[@class="two_column_body"]',
    },
]

mix3

#!/usr/bin/env perl

use strict;
use warnings;

use lib $ENV{'CASSANDRA_HOME'}.'/interface/gen-perl/';
use Cassandra::Cassandra;
use Cassandra::Constants;
use Cassandra::Types;

mix3

#!/usr/bin/env perl

use strict;
use warnings;

use lib $ENV{'CASSANDRA_HOME'}.'/interface/gen-perl/';
use Cassandra::Cassandra;
use Cassandra::Constants;
use Cassandra::Types;

mix3

grep use lib/ -h -r | perl -e '%hash; while(<>){if(/use (\w+(::)?)+/){if($& =~ /use (.+)/){$hash{$1}++}}}; foreach(keys %hash){print $_."\n"}' | egrep -v 'strict|warnings|base' | xargs

mix3

#!/bin/sh

color() {
  printf '\033[%sm%s\033[m\n' "$@"
}

while true
do
  DATE=`date | sed -e 's/\r\n/\n/g' | sed -e 's/\n//g'`
  SBM=`echo "show slave status\G" | mysql -u root | grep Seconds | sed -e 's/      Seconds_Behind_Master: //g'`

mix3

" lhs comments
vmap ,# :s/^/#/<CR>:nohlsearch<CR>
vmap ,/ :s/^/\/\//<CR>:nohlsearch<CR>
vmap ,> :s/^/> /<CR>:nohlsearch<CR>
vmap ," :s/^/\"/<CR>:nohlsearch<CR>
vmap ,% :s/^/%/<CR>:nohlsearch<CR>
vmap ,! :s/^/!/<CR>:nohlsearch<CR>
vmap ,; :s/^/;/<CR>:nohlsearch<CR>
vmap ,- :s/^/--/<CR>:nohlsearch<CR>
vmap ,c :s/^\/\/\\|^--\\|^> \\|^[#"%!;]//<CR>:nohlsearch<CR>

mix3

package Message;
use parent 'Teng';
__PACKAGE__->load_plugin('Pager');

use Class::Method::Modifiers;

around delete => sub {
    my ($orig, $self, $table_name, $delete_condition) = @_;
    my $update_row_data = {
        deleted_at => DateTime->now->set_time_zone('Asia/Tokyo'),

mix3

package Message;
use parent 'Teng';
__PACKAGE__->load_plugin('Pager');

use Class::Method::Modifiers;

around delete => sub {
    my ($orig, $self, $table_name, $delete_condition) = @_;
    my $update_row_data = {
        deleted_at => DateTime->now->set_time_zone('Asia/Tokyo'),

mix3

package Message;
use parent 'Teng';
__PACKAGE__->load_plugin('Pager');

use Class::Method::Modifiers;

around delete => sub {
    my ($orig, $self, $table_name, $delete_condition) = @_;
    my $update_row_data = {
        deleted_at => DateTime->now->set_time_zone('Asia/Tokyo'),