こばやし けんいち
- こばやし けんいち @Niratama
- Perlでサーバーサイドプログラム書いてます
KOBAYASHI Kenichi niratama
🐱
niratama
/ gist:2368443
Created
April 12, 2012 15:44
9個中1個の重さの違う肉まんを探す(from https://twitter.com/#!/panta_rhei2004/status/190430047675486208)
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
| #!env perl | |
| use 5.010; | |
| use List::Util qw(sum); | |
| my @m = @ARGV; | |
| if (sum(@m[0..2]) == sum(@m[3..5])) { # 0〜2と3〜5はあんまん | |
| if ($m[6] == $m[7]){ # 6と7もあんまん | |
| say 8; | |
| } else { # 6か7どちらかが肉まん |
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
| #!env perl | |
| # vi:ts=4:sw=4 | |
| use 5.010; | |
| use strict; | |
| use SVN::Dump; | |
| use Data::Dumper; | |
| my ($infile, $outfile) = @ARGV; | |
| unless ($infile && $outfile) { | |
| say "$0 infile outfile"; |
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 Libpafe < Formula | |
| homepage 'http://homepage3.nifty.com/slokar/pasori/libpafe.html' | |
| url 'http://homepage3.nifty.com/slokar/pasori/libpafe-0.0.8.tar.gz' | |
| sha1 'dec47ea185dd052c3e9b28cfb3494e509f7a4316' | |
| head 'git://github.com/htrb/libpafe.git' | |
| depends_on 'pkg-config' => :build |
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
| #!/usr/bin/env perl | |
| use strict; | |
| use utf8; | |
| use Encode qw(encode decode); | |
| use Text::Xslate; | |
| my $template = <<'__HERE__'; | |
| : my $xkey = '日本語'; | |
| : my $ykey = dec('日本語'); |
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
| Sbt.global.Base.Money *= Sbt.global.Base.Money; | |
| window.setInterval(function () { Sbt.global.Base.ClickTetsuya(); }, 1); | |
| for (i = 0; i < 7; i++) for (j = 0; j < 256; j++) Sbt.global.Base.ClickMachine(i); | |
| for (i = 0; i < 14; i++) Sbt.global.Base.ClickOption(i) |
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/perl-Net-HandlerSocket/HandlerSocket.xs b/perl-Net-HandlerSocket/HandlerSocket.xs | |
| index d0aaaa3..67baf8c 100644 | |
| --- a/perl-Net-HandlerSocket/HandlerSocket.xs | |
| +++ b/perl-Net-HandlerSocket/HandlerSocket.xs | |
| @@ -522,7 +522,8 @@ execute_multi(obj, cmds) | |
| CODE: | |
| DBG(fprintf(stderr, "execute_multi0\n")); | |
| const I32 cmdsmax = av_len(cmds); | |
| - execute_arg args[cmdsmax + 1]; /* GNU */ | |
| +// execute_arg args[cmdsmax + 1]; /* GNU */ |
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
| #!/usr/bin/env perl | |
| use Mojolicious::Lite; | |
| get '/' => sub { | |
| my $self = shift; | |
| $self->render('index'); | |
| }; | |
| # XMLHttpRequest Streaming | |
| get '/stream' => 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
| <?xml version="1.0" encoding="UTF-8"?> | |
| <?xml-stylesheet type="text/xsl" href="test.xsl"?> | |
| <article title="hello!"> | |
| <content><![CDATA[ | |
| <div style="text-align: center;">Hello, world!</div> | |
| ]]></content> | |
| </article> |
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
| // ==UserScript== | |
| // @name futaPoサムネイル拡大 | |
| // @namespace http://nira.poi.jp/userscript/futapo.user.js | |
| // @version 0.0.3 | |
| // @description futaPoのサムネイルを拡大します | |
| // @includes http://futakuro.com/futapo/* | |
| // @excludes | |
| // ==/UserScript== | |
| // | |
| (function (callback) { |
OlderNewer