mattn

#!/usr/bin/env perl 

use strict;
use warnings;
use Encode;
use Gtk2 -init;

my $data = decode_utf8 do { local $/; <STDIN> } || '';

&main();exit;

mattn

// Running JSDeferred on WSH
var _util = {
    cat : function(f){
        if(f.match(/^http:/)) {
            var xhr = new ActiveXObject("Microsoft.XMLHTTP");
            xhr.open("GET", f, false);
            xhr.send();
            return xhr.responseText;
        }
        return (new ActiveXObject("Scripting.FileSystemObject")).OpenTextFile(f,1,false).ReadAll();

mattn

#if _WIN32_WINNT < 0x0500
# error "should be NT"
#endif
#include    <windows.h>
#include    <tlhelp32.h>
#include	<winternl.h>
#include    <stdio.h>
 
DWORD getppid()
{

mattn

package main

import "sort";

type PeYon []string
func (p PeYon) Len() int {
	return len(p);
}
func (p PeYon) Less(i, j int) bool {
	return p[i] < p[j];

mattn

// ==UserScript==
// @name           gist: replace title with filename
// @namespace      http://d.hatena.ne.jp/youpy/
// @include        http://gist.github.com/*
// @exclude        http://gist.github.com/gists
// ==/UserScript==

(function() {
  var $ = $ || unsafeWindow.$;
  var username = $('#owner a').text()

mattn

関西も雨です。

mattn

mattn: さいたまさいたまー?

いえ、ちがいます

ちがうのか

ぜんぜんちがいます。

　　　　　　　 　 　　　 　 　 　 　 　　┌───┐
　　　　　　　　　　　 　 　 　 　 　　　| さ |

mattn

mattn: さいたまさいたまー?

いえ、ちがいます

mattn

mattn: pipe() は Perl の場合、win32 でもうごきますか?

動きます。

-----------------------------------------
#!/usr/bin/perl -w

use IO::Handle;

pipe(PARENTREAD, PARENTWRITE);

mattn

# Blosxom Plugin: urlshorter
# Author(s): Kyo Nagashima <[email protected]>, http://hail2u.net/
# Version: 2009-04-15
# Documentation: See the bottom of this file or type: perldoc urlshorter

package urlshorter;

use strict;
use vars qw($link_element);