Shinpeim

#!/usr/bin/env perl
use strict;
use warnings;
use IO::File;
use LWP::Simple;
use AnyEvent;
use AnyEvent::HTTP;
use Digest::SHA1 qw/sha1_hex/;

my $content = get(shift);

Shinpeim

use Regexp::Assemble;

my $ra = Regexp::Assemble->new;
$ra->add( '^9m[^0-9a-zA-Z]' );
$ra->add( '[^0-9a-zA-Z]9m$' );
$ra->add( '^9m$' );
$ra->add( '[^0-9a-zA-Z]9m[^0-9a-zA-Z]' );
print $ra->re; #(?-xism:(?:[^0-9a-zA-Z]9m(?:[^0-9a-zA-Z]|$)|^9m(?:[^0-9a-zA-Z]|$)))

Shinpeim

Ja	En	Hoge
ほげ	foo	llllll
ふふぁ	bar	ccccccc

Shinpeim

godのインストール

sudo gem install god

godの起動

$ god -c god.rb

Shinpeim

# -*- coding: utf-8 -*-
require "curses"

Curses::init_screen
max_y = Curses::stdscr.maxy
Curses::cbreak
max_y.downto(1) do |y|
  Curses::clear
  Curses::setpos(y - 1 , 0)
  Curses::addstr("意識")

Shinpeim

$ ./m user@host # user@hostというディレクトリを(なければ)作ってそこにuser@hostをsshfsでマウント
$ ./u user@host # user@hostをアンマウントして user@hostというディレクトリを消す

ぼくは ~/mount に置いて使ってる

Shinpeim

use strict;
use warnings;
use Data::Dumper;

my @arr = qw/ran miki suu dia/;

my %hash = map {$_ => "hoge", "piyo"} @arr;

warn Dumper \%hash;

Shinpeim

package Acme::UuuuNyaaa;

use strict;
use warnings;

sub new{
	my $class = shift;
	my $self = bless {}, $class;

	return $self;

Shinpeim

a b c d e f g h i のうちどれかが肉まん
あんまんであることが確定したものは "." と表記する

if ([a b c] == [d e f])
  ". . . . . . g h i"
  if (g == h)
    ". . . . . . . . i"
  else
    ". . . . . . g h ."
    if (g == .)

Shinpeim

sudo apt-get install libjpeg-dev libtiff-dev libpng-dev giflib-dev libttf-dev libfreetype6-dev
sudo cpan -i Imager