https://gist.github.com/masasuzu/2d69e77683b5fde08f22fe3111ec88b6
name: すずきまさし
work_at: 3-shake inc.
twitter: @masasuzhttps://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; |