b4hand

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw(max);

my %counts;

sub log10 {

b4hand

#!/usr/bin/env bash

hostname=$1
ip=`host $hostname | head -1 | awk '{print $4}'`

ssh-keygen -R $hostname
ssh-keygen -R $ip

b4hand

#!/usr/bin/env python

from __future__ import print_function

import sys, yaml

if len(sys.argv) < 3:
    print("usage: %s file key ... " % (sys.argv[0]), file=sys.stderr)
    exit(1)

b4hand

#!/usr/bin/perl

# We want all of our time computations to be made in UTC
BEGIN { $ENV{TZ} = 'UTC'; }

use strict;
use warnings;

use Date::Format;

b4hand

#!/bin/sh

service hbase-regionserver stop
service hbase-master stop
service zookeeper-server stop
service hadoop-0.20-mapreduce-tasktracker stop
service hadoop-0.20-mapreduce-jobtracker stop
service hadoop-hdfs-datanode stop
service hadoop-hdfs-secondarynamenode stop
service hadoop-hdfs-namenode stop

b4hand

#!/bin/sh

service hadoop-hdfs-namenode start
service hadoop-hdfs-secondarynamenode start
service hadoop-hdfs-datanode start
service hadoop-0.20-mapreduce-jobtracker start
service hadoop-0.20-mapreduce-tasktracker start
service zookeeper-server start
service hbase-master start
service hbase-regionserver start

b4hand

#!/bin/sh

service hbase-regionserver stop
service hbase-master stop

echo -e "rmr /hbase\nquit" | hbase zkcli

sudo -u hdfs hadoop fs -rm -r /hbase
sudo -u hdfs hadoop fs -mkdir /hbase
sudo -u hdfs hadoop fs -chown hbase /hbase

b4hand

perl -e 'use Socket qw(getnameinfo inet_aton pack_sockaddr_in NI_NUMERICSERV); my $ip = inet_aton($ARGV[0]); my $addr = pack_sockaddr_in(80, $ip); my ($err, $hostname) = getnameinfo($addr, NI_NUMERICSERV); print "$hostname\n"'

b4hand

perl -e 'use Socket qw(getaddrinfo getnameinfo NI_NUMERICSERV NI_NUMERICHOST); my ($err, @res) = getaddrinfo($ARGV[0], "www", {socktype => SOCK_STREAM}); for my $r (@res) { my ($err, $ip) = getnameinfo($r->{addr}, NI_NUMERICHOST | NI_NUMERICSERV); print "$ip\n";}'