　RoRで少数精鋭でガリガリやってるとこからするとどうかと思う話だろうけど、結局、情報系でそんな雇用創出はできないよ、ということなのかなあ。結局さあ、実際のモノってのはコピーが大変だから、それ自体が金を取る大儀だし、人を雇えるけど、ソフトウェアはタダでコピーし放題だし。社会が変化するから、それに対応するソフトウェアを作っていけてるけど。

　エモーショナルでコアでエクストリームな世界ってどうですか。

　ちなみにRoR関係で遭遇したのはid:monyakata,id:yuichi_katahira,id:Doggie,id:xibbar。

§ [music] The Bedlam In Goliath/The Mars Volta

　 Bedlam in Goliath(Mars Volta)みんな買えばいいと思うよ。

[ツッコミを入れる]

2009-02-09

§ [diary] ski

　昨日後ろゴケして首着地をキメたら、やはり今日になって首が痛い。

　昨日気付いたのだがクッションの絵が間違ってる。Tナットが突き通ってないところが致命的にダメ。こうだよね。

　表地まで爪が刺さっているので、締められるけど、緩められない。

　ホームセンターに行ったらもっとマシなTナットが売ってた。でも取り付け方法をもう少し考えないといけない。表地に直接つけると、表地のダメージが心配だし。アルミプレートを使おうかなと思っている。

§ [perl] ファイル分割

CPAN見るべきな気がするが。File-Binaryの(get|put)_bytesを使うべきなのかね。

use strict;
use warnings;
 
open my $fd, "<", $ARGV[0];
binmode $fd;
my $size = -s $ARGV[0];
my $size_part = 1000*1000*1000*4 - 1024*1024;
 
my $buflen = 1024*1024*40;
$buflen = $size_part < $buflen ? $size_part : $buflen;
my $times = $size_part / $buflen;
my $file_count = $size / $size_part;
$file_count++ if ($size % $size_part);
 
sub copy_part {
    my ($name, $file, $times, $length) = @_;
	open my $fd, ">", $name;
	my $buf = '';
	binmode $fd;
	for (my $i = 0; $i < $times; $i++) {
		unless(sysread($file, $buf, $length)) {
			print $fd $buf;
			close $fd;
			return 0;
		}
		print $fd $buf;
	}
	close $fd;
	return 1;
}
 
open my $batch, ">", $ARGV[0].".bat";
print $batch "copy ";
for (my $i = 1; $i < $file_count; ++$i) {
	my $name = sprintf($ARGV[0].".%03d", $i);
	copy_part($name, $fd, $times, $buflen);
	print $batch "/b $name";
	print $batch " + " if $i+1 < $file_count;
}
 
print $batch " /b $ARGV[0]\n";
close $batch;
close $fd;

結局Perlにとってバイナリファイルって何かよくわかってないな。

また環境が変わるんでしばらくPerlを触らない予感。

でもモチベーションない。

[ツッコミを入れる]