Tokuhiro Matsuno tokuhirom

## gist:142523

      
        
          
            
              
              0 files
            
          
          
            
              
              0 forks
            
          
          
            
              
              0 comments
            
          
          
            
              
              0 stars
            
          
        
        
          
              
          
          
            
                tokuhirom
                / gist:142523
            
            
              Created
              July 8, 2009 02:41
                — forked from miyagawa/gist:142501
            
          
        
      
        
          
            
              
              We couldn’t find that file to show.
              
            
          
        
    

## .bashrc
# $ 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"

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

## gist:218473
東京は雨がすごいですが!

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

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

## Evolution of a Perl Programmer.pl
# Newbie programmer
sub factorial {
    my $x = shift;
    if ($x == 0) {
        return 1;
    } else {
        return $x * factorial($x - 1);
    }
}
print factorial(6);

## gist:308571
#!/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;

## ficia-eyefi-uploader.pl
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;

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

## deadlock.pl
#!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');
	# $ 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"
	hello.txt: hello.as
	as -o hello.o hello.as
	ld -o hello.txt hello.o
	#!/usr/bin/perl
	use strict;
	use PadWalker 'peek_my';

	my $x = 1;
	sub {
	sub { $x };
	(sub { peek_my(0) })->();
	}->();
	# Newbie programmer
	sub factorial {
	my $x = shift;
	if ($x == 0) {
	return 1;
	} else {
	return $x * factorial($x - 1);
	}
	}
	print factorial(6);
	#!/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;
	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;
	月曜: ＠九段会館
	火曜: ＠高島屋＆マルゴ&どっか
	水曜: ＠どっか
	木曜: ＠うっちゃん
	金曜: ＠しぶや
	土曜: ＠バーミヤンしたけどアルコール無し
	日曜: ＠パスタ
	#!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');