Takumi Akiyama akiym
akiym
/ gist:6250163
Created
August 16, 2013 13:55
This file contains hidden or 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 hidden or 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:3957634
Created
October 26, 2012 08:32
This file contains hidden or 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']}); |
This file contains hidden or 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 { |
This file contains hidden or 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' |
akiym
/ webquery-first.pl
Created
May 30, 2011 15:29
This file contains hidden or 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 hidden or 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; |
This file contains hidden or 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 hidden or 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 Mojolicious::Lite; | |
| use feature qw/switch/; | |
| use utf8; | |
| use Text::Markdown qw/markdown/; | |
| use Text::Xatena; | |
| use Pod::Simple::XHTML; | |
| get '/' => 'index'; | |
| my $xatena = Text::Xatena->new(); |
This file contains hidden or 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 Mojolicious::Lite; | |
| use Text::Markdown qw/markdown/; | |
| get '/' => sub { | |
| my $self = shift; | |
| $self->render('index'); | |
| }; | |
| post '/markdown' => sub { | |
| my $self = shift; |