non vorrei lavorare

ブログ名の通りです。javascript three.js mruby rust OCaml golang julialang blender

Mac miniで恋するプログラム 邪道編

とりえず邪道編ということでMac miniのほかにWindowsもつかいます。(爆

windows

#! ruby -Ks

require 'unmo'

require 'socket'

def prompt(unmo)

return unmo.name + ':' + unmo.responder_name + '> '

end

Morph::init_analyzer

proto = Unmo.new('proto')

port = 7123 #1

gs = TCPServer.open(port) #2

while true #3

ns = gs.accept #4

p ns.peeraddr

Thread.start(ns) do |s| #5

#printf("> ")

while input = s.gets

#s.write input;

break if /^q/i =~ input

input.chomp!

break if input == ''

printf( "I get :%s\n", input)

response = proto.dialogue(input)

#puts(prompt(proto) + response)

s.write prompt(proto) + response + "\n"

printf('I say :' + response + "\n")

end

s.close

printf("close\n");

@eflag = true;

proto.save

end

break if @eflag == true;

end

Mac mini

use strict;

use encoding 'utf8';

binmode(STDERR, ':raw :encoding(utf8)');

use Encode;

use FileHandle;

use Socket;

use LWP::Simple;

my $remoteHost="192.168.0.2";

my $port = 7123;

my $ip = inet_aton $remoteHost;

my $proto = getprotobyname 'tcp';

socket S, PF_INET, SOCK_STREAM, $proto or

die "socket: $!";

connect S, sockaddr_in($port, $ip)

or die "connect: $!";

S->autoflush(1);

STDOUT->autoflush(1);

#print S "q\n";

my $contents = get('http://updates.cocolog-nifty.com/status/updates.rdf');

my @contents = split /\n/, $contents;

foreach my $text (@contents) {

my $textU = decode('utf8', $text);

#print STDOUT "I say :$textU";

print S encode('shiftjis',"$textU\n");

my $ans = <S>;

print STDOUT decode('shiftjis',$ans);

}

print S "q\n";

print while <S>;

close S or

die "close: $!";

exit;


実はUTF8なFC3でしか動かしてなかったりします。。。