tokuhirom

We couldn’t find that file to show.

tokuhirom

# $ tweet Hi mom!
#
# Put this in ~/.bashrc or wherever.
# If it doesn't work, make sure your ~/.netrc is right
#
# (Thanks to @anildigital and @grundprinzip for curl-fu)

function tweet {
  curl -n -d status="$*" https://twitter.com/statuses/update.xml --insecure &> /dev/null
  echo "tweet'd"

tokuhirom

hello.txt: hello.as
	as -o hello.o hello.as
	ld -o hello.txt hello.o

tokuhirom

東京は雨がすごいですが!

tokuhirom

#!/usr/bin/perl
use strict;
use PadWalker 'peek_my';

my $x = 1;
sub {
    sub { $x };
    (sub { peek_my(0) })->();
}->();

tokuhirom

# Newbie programmer
sub factorial {
    my $x = shift;
    if ($x == 0) {
        return 1;
    } else {
        return $x * factorial($x - 1);
    }
}
print factorial(6);

tokuhirom

#!/usr/bin/perl
use strict;
use File::Basename qw(basename);

sub get($);
sub mirror($$);
sub untar;

if (eval { require LWP::Simple }) {
    *get = \&LWP::Simple::get;

tokuhirom

use strict;
use warnings;
use 5.12.0;
use Pod::Usage;
use Config::Pit;
use Path::Class;
use Data::Dumper;
use GDBM_File;
use autodie;

tokuhirom

月曜: ＠九段会館
火曜: ＠高島屋＆マルゴ&どっか
水曜: ＠どっか
木曜: ＠うっちゃん
金曜: ＠しぶや
土曜: ＠バーミヤンしたけどアルコール無し
日曜: ＠パスタ

tokuhirom

#!perl -w

use strict;
use IPC::Open3;
use Symbol qw(gensym);

my($r, $w, $e) = (gensym, gensym, gensym);

my $pid = open3($r, $w, $e, "perl", "-e",
    'print $_ qq{x\n} x (1024 * 1024) for \*STDOUT, \*STDERR');