niratama

use utf8;
use strict;
use warnings;
use Encode qw(encode_utf8 decode_utf8);

# 文字が指定のバイト数を超えている場合に切り取る。
sub kirisute_gomen {
    my ($string, $byte_len, $str_len) = @_;
    return $string if (length(encode_utf8($string)) <= $byte_len && length($string) <= $str_len);

niratama

// ==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) {

niratama

<?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>

niratama

#!/usr/bin/env perl
use Mojolicious::Lite;

get '/' => sub {
  my $self = shift;
  $self->render('index');
};

# XMLHttpRequest Streaming
get '/stream' => sub {

niratama

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 */

niratama

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)

niratama

#!/usr/bin/env perl
use strict;
use utf8;

use Encode qw(encode decode);
use Text::Xslate;

my $template = <<'__HERE__';
: my $xkey = '日本語';
: my $ykey = dec('日本語');

niratama

MojoliciousでリアルタイムWeb

こばやし けんいち

自己紹介

• こばやし けんいち @Niratama
• Perlでサーバーサイドプログラム書いてます

niratama

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

niratama

#!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";