インターネット上で情報を隠蔽しようとすると、その隠蔽行為が逆に注目を集めてしまい、隠蔽しようとしていた情報がよりインターネット上で拡散してしまうこと。

これはTechdirtのMichael Masnickが2003年に名づけたもので、女優のBarbara Streisandが航空写真に写っている自宅の削除を求めたが、逆に話題を集めてしまい、自分の自宅が大勢の人々に知られてしまったという事件にちなんでいる。

Permalink | トラックバック(1) | 20:40

2009-10-04

■グーグルマップを壁紙にしてみる

10/18 改訂

グーグルマップの航空写真をつなげて一枚にするスクリプト。

なお、取得した画像の著作権はグーグル他各社が保持しています。

ご利用は計画的に私的範囲でどうぞご利用ください。

#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;
use LWP::UserAgent;
use GD;

my $cmdline = join(" ", $0, @ARGV);
my $usage = "usage: $0 -sx=116423 -sy=51603 -ex=116426 -ey=51605 -dx=4 -dy=3 -z=17 -size=300 -get=30 -dir=cache -output=output.jpg -nodebug";
my ($sx, $sy) = (0, 0);
my ($ex, $ey) = (0, 0);
my ($dx, $dy) = (4, 3);
my $z = 17;
my $size = 300;
my $get = 30;
my $dir = "cache";
my $output = "output.jpg";
my $debug = 0;
GetOptions("sx=i" => \$sx, "sy=i" => \$sy,
	   "ex=i" => \$ex, "ey=i" => \$ey,
	   "dx=i" => \$dx, "dy=i" => \$dy,
	   "z=i" => \$z,
	   "size=i" => \$size, "get=i" => $get,
	   "dir=s" => \$dir, "output=s" => \$output,
	   "debug!" => \$debug) or die "$usage\nDied";
if ($ex == 0) {
    $ex = $sx + $dx;
} else {
    $ex++;
    $dx = $ex - $sx;
}
if ($ey == 0) {
    $ey = $sy + $dy;
} else {
    $ey++;
    $dy = $ey - $sy;
}
$sx>0 and $dx>0 and $sy>0 and $dy>0 and $z>0 and $dir and $output
    or die "$usage\nBad arguments";
$dx*$dy > $size and die "Getting too large.";

$debug and print "debug: mkdir $dir\n";
mkdir $dir;
-d $dir or die "can't make dir $dir: $!";

my $base = sprintf("http://khm%d.google.co.jp/kh/v=46&z=%d", int(rand(4)), $z);
my $ua = LWP::UserAgent->new;
printf "now get %d images...\n", $dx*$dy;
for (my $x=$sx; $x < $ex; $x++) {
    for (my $y=$sy; $y < $ey; $y++) {
	my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y);
	$debug and print "debug: check of $file\n";
	-s $file and next;
	--$get < 0 and last;
	my $req = HTTP::Request->new(GET=>+"$base&x=$x&y=$y");
	$debug and print "debug: fetch from ".$req->uri."\n";
	my $res = $ua->request($req);
	unless ($res->is_success) {
	    print "fail fetch from $file: ", $res->status_line, "\n";
	    next;
	}
	if (open(my $fh, ">", $file)) {
	    $debug and print "debug: write of $file\n";
	    binmode $fh;
	    print $fh $res->content;
	    close $fh;
	} else {
	    print "fail open in $file: $!\n";
	}
    }
}
$get < 0 and print "reach the getting limit, skip after all.\n";

printf "creating %dX%d image...\n", 256*$dx, 256*$dy;
my $image = new GD::Image(256*$dx, 256*$dy);
for (my $x=$sx; $x < $ex; $x++) {
    for (my $y=$sy; $y < $ey; $y++) {
	my $file = sprintf("%s/%02dz%06dx%06d.jpg", $dir, $z, $x, $y);
	$debug and print "debug: check of $file\n";
	-s $file or next;
	$debug and print "debug: read of $file\n";
	my $part = GD::Image->newFromJpeg($file);
	$debug and print "debug: image copy\n";
	$image->copy($part, 256*($x-$sx), 256*($y-$sy), 0, 0, 256, 256);
    }
}
#$image->string(gdSmallFont, 0, 0, $cmdline, $image->colorAllocate(255, 255, 255));
open(my $fh, ">", $output) or die "fail open $output: $!";
$debug and print "debug: write of $output\n";
binmode $fh;
print $fh $image->jpeg();
close $fh;

例えば秋葉原とか

perl gmwall.pl -sx=116423 -sy=51603 -ex=116427 -ey=51606

駅だけとか

perl gmwall.pl -sx=465701 -sy=206420 -ex=465705 -ey=206423 -z=19

使う数値はfirebugなどで拾ってください。

Permalink | トラックバック(0) | 00:06

2009-03-25

■http://anond.hatelabo.jp/20090325162243

元増田です。すみません、適度に改行入れたつもりが全部詰まっちゃって読みにくくなったようです。あと引用の時の半角「＞」も文字化けするようなんで以下全角で。

＞あんたを安心さす為に、先にネタばらしはしとくわ。被害者総数もな、600万人説以外にも色々あんねん。

もちろん、知ってます。まとめたものがリンク先にあります

http://revisionist.jp/faurison_02.htm

このようなブレがありまくり、正確な数字がわからないというのがおかしいと思うのです。

たとえば、原爆や空襲による死者数に多少ブレがあるのはわかります。即死で亡くなった人、その傷がもとで随分後に亡くなった人、二次災害で亡くなった人等々。どれをカウントに加えるか色々あるでしょうし、爆心地近くにいた人ならば、遺体が跡形も無く消え去ることも有り得るでしょう。しかし、どんなに想定が難しいといっても数万の誤差におさまるのではないでしょうか。数十万、数百万単位で増減したりはありえない。

議論した方が質問に答えてくれなかったのは、諸説あり過ぎ、具体的な数字を出したら突っ込まれる要素があり不利なのであえて答えなかったというのが私の推測ですが。

焦点をしぼるため、アウシュビッツの話にします。定説ではここで150万人が死んだと言われていますが、それも少し前までは400万とされていました。碑文が書き換えられたのはご存知ですよね。

250万人減。日本の第二次世界大戦での戦死者数とほぼ同じ。この250万人はどこへ消え去ったのでしょうか…

＞労働もできひんようなヤツは収容せんかったんやな。その手前で始末して。

いわゆる、ガスで殺された人達は収容者名簿に登録もされず、収容所に着いてすぐガス室送りにされたという説ですね。

名簿が無いから名前がわからない＝誰かわからない＝誰が殺されたかわからない

でっちあげるのには非常に都合のいいやり方だと邪推してしまいますね。誰が何人死んだか、このようなやり方では誰もわかりませんもの。

＞すぐに殺されたらしいけどな。ちなみに子供生まれたて話とすぐ殺されたて話は、同じ女性の証言から出たお話や。否定論では生まれたて話だけしか取り上げへんけどな。ｗ

出産があったという事実は証言だけでなく、出生の記録が公式に残っています。ちなみに死亡記録もオフィシャルなものが残っています。それは病死等の自然死で（アンネの死因がチフスとわかるのも、死亡者の記録があったからですね）、人体実験やガス処刑の記録は何も残っていません。

人体実験もそうですが、証言以外にそれが行われたと証明するものが何もない時点で片手落ちでしょう。

メンゲレ医師は悪魔のような人体実験を行ったとされていますが、実際には逆で、収容者達を治療したという記録があります。

研究結果は全て燃やされた、あるいは連合国側に持ち去られたという理屈はやめてください。「ひとつも」無いのは明らかにおかしいです。