https://gist.github.com/masasuzu/2d69e77683b5fde08f22fe3111ec88b6
name: すずきまさし
work_at: 3-shake inc.
twitter: @masasuz
https://gist.github.com/masasuzu/2d69e77683b5fde08f22fe3111ec88b6
name: すずきまさし
work_at: 3-shake inc.
twitter: @masasuz
use strict; | |
use warnings; | |
use Net::DNS; | |
use Term::ANSIColor; | |
# | |
# perl check_dns.pl ${IP_ADDRESS} < FQDN_LIST | |
# | |
# FQDN_LISTに書いてあるfqdnを正引きして${IP_ADDRESS}がチェックするのです | |
# |
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use 5.14.2; | |
# perl shadow_ohikkoshi.pl OLD_SERVER_SHADOW NEW_SERVER_SHADOW OUTPUT_SHADOW | |
my ($origin_shadow, $new_shadow, $output_shadow) = @ARGV; | |
open my $origin, '<', $origin_shadow or die $!; |
Starting td-agent: * Stopping save kernel messages [ OK ] | |
* Starting crash report submission daemon [ OK ] | |
/opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/basic_parser.rb:56:in `skip': invalid byte sequence in US-ASCII (ArgumentError) | |
from /opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/basic_parser.rb:56:in `skip' | |
from /opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/basic_parser.rb:80:in `spacing' | |
from /opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/v1_parser.rb:58:in `parse_element' | |
from /opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/v1_parser.rb:41:in `parse!' | |
from /opt/td-agent/embedded/lib/ruby/gems/2.1.0/gems/fluentd-0.12.20/lib/fluent/config/v1_parser.rb:31:in `parse' | |
from /opt/td-agent/embedded/ |
class Hoge(object): | |
def __init__(self, foo=[], bar={ 'name': 'piyo' }): | |
self.foo = foo | |
self.bar = bar | |
def __repr__(self): | |
return '%s: %s' % (self.__class__, self.__dict__) | |
hoge = Hoge() |
use strict; | |
use warnings; | |
use feature qw( say ); | |
use Furl; | |
use JSON; | |
my ($user, $token, $orgs) = @ARGV; | |
my $url = sprintf('https://%s:%s@api.github.com/orgs/%s/repos', $user, $token, $orgs); | |
my $res = Furl->new->get($url); |
use strict; | |
use warnings; | |
use Devel::Peek qw( Dump ); | |
my $ip_poi = 192.168.1.1; | |
Dump $ip_poi; |