punytan

<?xml version="1.0" encoding="UTF-8" ?> 
<flashNews flag="0" pubDate="Fri, 06 May 2011 21:12:00 +0900" /> 

punytan

var http = require('http');
http.createServer(function (req, res) {
	res.writeHead(200, {"Content-Type": "text/plain"});
	res.end("Hello World");
}).listen(4000, '');

console.log('Server running at http://localhost:4000');

punytan

use strict;
use warnings;
use feature qw/say switch/;
use Data::Section::Simple;
use Text::Xslate;
use Plack::Request;

my $tx = Text::Xslate->new(
    path => [ Data::Section::Simple->new->get_data_section ],
);

punytan

// ==UserScript==
// @name           Google Reader with InstaReader
// @namespace      http://linknode.net
// @description    Open feed item with InstaReader in background by pressing 'v'
// @include        http*://www.google.com/reader/view/*
// ==/UserScript==

document.addEventListener('keypress', function(event) {
    if(event.which == 118) { // 118 is 'v'
        if (document.getElementById('current-entry') == null) return; // no current entry

punytan

use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME::Creator;
use Email::Sender::Simple qw/sendmail/;

sub send {
    my $email = shift;

punytan

use strict;
use warnings;
use WWW::YouTube::Download;
use Parallel::ForkManager;

my $urls = [qw{
    JXkawnuyTn8
    bY0tgl6YLGI
    3eJsXP4HLVs
    gOUvdNjs_Cg

punytan

use strict;
use warnings;

use Plack;
use Plack::Request;

my $app = sub {
    my $env = shift;

    my $req = Plack::Request->new($env);

punytan

/*
 * epoll_sample.c
 *
 * forked from http://d.hatena.ne.jp/odz/20070507/1178558340
 *
 * compile : gcc -O3 -o epoll_sample epoll_sample.c
 * bench   : ab -n 10000 -c 50 http://localhost:8080/
 *
 * fix me :)
 *

punytan

Not a GLOB reference

(F) Perl was trying to evaluate a reference to a "typeglob" (that is, a symbol table entry that looks like *foo) but found a reference to something else instead. You can use the ref function to find out what kind of ref it really was.

typeglob

Use of  a single identifier, prefixed with *. For example, *name stands for any or all of $name, @name, %name, &name, or just name. How you use it determines whether it is interpreted as all or only one of them. See "Typeglobs and Filehandles" in Chapter 2.

$fh = *STDOUT;
$fh = \*STDOUT;

punytan

。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜
｡｢｣､･ｦｧｨｩｪｫｬｭｮｯｰｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜﾝﾞﾟ
ヴガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポ
ｳﾞｶﾞｷﾞｸﾞｹﾞｺﾞｻﾞｼﾞｽﾞｾﾞｿﾞﾀﾞﾁﾞﾂﾞﾃﾞﾄﾞﾊﾞﾋﾞﾌﾞﾍﾞﾎﾞﾊﾟﾋﾟﾌﾟﾍﾟﾎﾟ
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
０１２３４５６７８９
0123456789
　！”＃＄％＆’（）＊＋，－．／：；＜＝＞？＠［￥］＾＿‘｛｜｝～
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}~