Diary/2012-01-12

平成２４年１月１２日（木曜日）赤口 やぎ座

tok2プロフェッショナルのこと

月額200円以下（４年度目以降250円）で借りられたので、そこそこのことを書いてみるかな。

とりあえず、ディスク容量無制限の中では、おそらく最安値

更に、ホームページ公開の為のデータであれば、規約に該当するデータ及び負荷をかけるCGIでない限り、無制限に使用できるようです。無論、動画も可能。

仮にFTP転送テストをしてみて

とりあえず、お試しでは、たったの1Gbytesしか使えないので、すぐに課金した。
3年分で、初期費用タダの5000円であった。

そして、動画をせっせとアップロードしまくってみた。

この回線からのアップロード速度は、２セッション立てて、90Mbpsを超えている模様です。

しかし、データセンター上の2回線 (大阪＠さくらVPS、東京＠sourceforge.jp＠IIJ）のシェルで同時に何度もwget を叩いた所、双方とも合計 約10Mbytes/secを超えてくれない模様です。

おそらく、100Mbps相当に制限されているか、本当に100MbpsのNICかのどちらかでしょう。

tok2プロフェッショナルのCPUとか

• CPU:Intel(R) Xeon(R) CPU E5410 @ 2.33GHz (４コア４スレ　L2 6M)
• メモリ 約7.5Gbytes ?
• 1秒間あたりの簡易RSA演算回数 264
• 1秒間あたりのプロセス実行回数 32922
• 1秒間あたりのファイルI/O実行回数 9133
• 1秒間あたりの正規表現文字列置換回数 3591

あれれ、100Mバイト以上のファイルがFTPでアップロードできない？

標準ファイルマネージャーやアップローダーでは余裕でアップロードできるのに、FTPでアップロードできないことから、 サーバーに負荷はかけてしまいますが、シェルで結合です。汗

• 分割シェル

for prc in `ls`; do echo "[$prc]";echo split -b 80m $prc \_$prc\_;split -b 80m $prc \_$prc\_; done

• 結合CGI（注：かなりスパゲティーコード）
nph-cgiで、この後ろに、１つディレクトリ名、あと１つファイル名を受け付けます。

#!/usr/bin/perl

$ext{mp4}="Content-Type: video/mp4";
$ext{ogv}="Content-Type: video/ogg";
$ext{webm}="Content-Type: video/webm";
$ext{flv}="Content-Type: video/x-flv";
$ext{wmv}="Content-Type: video/x-ms-wmv";

foreach $alpha1 (split(/ /,"a b c d e f g h i j k l m n o p q r s t u v w x y z")) {
	foreach $alpha2 (split(/ /,"a b c d e f g h i j k l m n o p q r s t u v w x y z")) {
		push(@farray, "$alpha1$alpha2");
	}
}

$f="$ENV{PATH_INFO}";
$f=~s/\.\.//g;
$f=~s/^\///g;
($dir,$file)=split(/\//,$f);
$ext=$file;
$ext=~s/^.*\.//g;
$size=0;

$ff="./$dir\/$file";
if(-s $ff > 0) {
	print <<EOM;
HTTP/1.0 302 Found
Server: cmdline
Status: 302 Found
Date: Wed, 11 Jan 2012 02:48:47 GMT
Location: Your Tok2 Professional URL/$dir/$file

EOM
	exit;
}

foreach(@farray) {
	$s=-s "./$dir\/\_$file\_$_";
	$temp.=" ./$dir\/\_$file\_$_ ";
	if($s>0) {
		$size+=$s;
	}
}

if($size < 1) {
	print<<EOM;
HTTP/1.1 404 Not Found
Accept-Ranges: bytes
Connection: close
Content-Type: text/html; charset=iso-8859-1
Content-Language: en

Not found $f($dir,$file)	
EOM
	exit;
}

print<<EOM;
HTTP/1.1 200 OK
Accept-Ranges: bytes
Connection: close
$ext{$ext}
Content-Length: $size
Content-Language: en

EOM

$w="./$dir\/$file";
if(open(W,">$w")) {
	binmode(W);
	foreach(@farray) {
		$f="./$dir\/\_$file\_$_";
		$s=-s $f;
		if(open(R,$f)) {
			binmode(R);
			my $buf;
			while (read(R, $buf, 128*1024)) {
				print $buf;
				print W $buf;
			}
			close(R);
		}
	}
	close(W);
}