弁財天

ゴフマン「専門家を信じるのではなく、自分自身で考えて判断せよ」

【パナマ文書】Suntec Tower 4 Singapore 038986に関連が集約してしまう怪w update1

「6 Temasek Boulevard #09-06 Suntec Tower 4 Singapore 038986」
なる住所に今までの記事のほとんどと関連してしまう怪w。

#!/bin/sh

grep -hi "SINGAPORE 038986" ../20140123/*.csv|while read LINE
do
	id=`echo $LINE|awk -F\; '{print $1}'`
	ad=`echo $LINE|awk -F\; '{print $3}'`
	id=`eval "echo $id"`
	#echo "("${id}")"$ad
	echo "("${id}")"$LINE
	perl ../20140123_extract.pl ${id}
done

...[Shareholder/股东/EO]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]OFFICER(70701)[Lee Maw Lei, Karen]ENTITY(128188)[JET TEAM MANUFACTURING LIMITED/JET TEAM MANUFACTURING LIMITED Portcullis TrustNet Chambers P.O. Box 3444 Road Town, Tortola BRITISH VIRGIN ISLANDS/Portcullis TrustNet Chambers P.O. Box 3444 Road Town, Tortola BRITISH VIRGIN ISLANDS]
王禅寺の住所じゃまいかぁw
【パナマ文書】モサック・フォンセカ・シンガポールは現代の731部隊のテロ資金ネットワーク?

nodesnwとnode_countriesnwをc.NODEID1 = n.Unique_IDでJOINして、"JA"だけを抽出するか…w

from offshore_20140123_nodesnw as n,offshore_20140123_node_countriesnw as c where c.NODEID1 = n.Unique_ID

#!/usr/bin/perl

use utf8;
use strict;
use Encode;
use DBD::Pg;

my $dbh;
my $sth;

my $TARGET=$ARGV[0];
my $DATE=$ARGV[1];

$dbh = DBI->connect("dbi:Pg:dbname=icijdb;host=localhost", "hoge", "hogehoge");
$dbh->{pg_enable_utf8} = 1;

$| = 1;

my $sql;
my %did;

&decode_edges(0, $TARGET, \%did) if ($TARGET ne "");
exit(0);

sub decode_edges() {
	my ($nest, $node_id, $did) = @_;
	my $sql = "select Unique_ID, Entity_ID1, Entity_ID2, description_, direction, chinesePos, linkType from offshore_20140123_edges_1dnw where Unique_ID = $node_id or Entity_ID1 = $node_id or Entity_ID2 = $node_id";

	my $nest_s = "";
	for (my $loop = 0; $loop < $nest; $loop++) {
		$nest_s .= ".";
	}

	if (defined($did->{$node_id})) {
        $did->{$node_id}++;
		#print $nest_s . "($node_id)x". $did->{$node_id}."\n";
		return;
	}

	$did->{$node_id}++;

	if ($nest > 3) {
		#print $nest_s . " $node_id x\n";
		return;
	}

    my $edge_s;
	my $e = $dbh->selectall_arrayref($sql);
	foreach my $r (@$e) {
        $edge_s = "[".$r->[3]."/".$r->[5]."/".$r->[6]."]";

		if ($r->[6] eq "OA"||$r->[6] eq "EA"||$r->[6] eq "IA"||$r->[6] eq "UA" ) {
			my $a;
			$a = &decode_nodes_nw($r->[0], $r->[6]);

			my $a2 = &decode_nodes_nw($r->[1], $r->[6]);
			$a .= $a2 if ($a2 ne "");

			my $a3 = &decode_nodes_nw($r->[2], $r->[6]);
			$a .= $a3 if ($a3 ne "");
			print encode("UTF8", "$nest_s$edge_s$a\n") if ($a ne "");

			&decode_edges($nest + 1,$r->[0], $did) if ($r->[0] != $node_id);
			&decode_edges($nest + 1,$r->[1], $did) if ($r->[1] != $node_id);
		}
		elsif ($r->[6] eq "EO"||$r->[6] eq "EI"||$r->[6] eq "EU"||$r->[6] eq "EE"||$r->[6] eq "OU") { # Officer
			my $o;
			$o = &decode_nodes_nw($r->[0], $r->[6]);

			my $o2 = &decode_nodes_nw($r->[1], $r->[6]);
			$o .= $o2 if ($o2 ne "");

			my $o3 = &decode_nodes_nw($r->[2], $r->[6]);
			$o .= $o3 if ($o3 ne "");

			print encode("UTF8", "$nest_s$edge_s$o"."\n") if ($o ne "");
			&decode_edges($nest + 1,$r->[1], $did) if ($r->[4] == 0 && $r->[1] != $node_id);
			&decode_edges($nest + 1,$r->[2], $did) if ($r->[4] == 1 && $r->[2] != $node_id);
		}
		else {
			print encode("UTF8", $r->[6] . "/" . $r->[5] . "/" . $r->[3] . "/" . $r->[0] . "/" . $r->[1] . "/" . $r->[2]);
			print $nest_s . "N/A\n";
		}
	}
}

sub decode_nodes_nw() {
	my ($node_id, $link_type) = @_;

	return "" if ($node_id == 75595 || $node_id == 56917);

	#my $sql = "select Unique_ID, subtypes_, Description_, searchField_, completeAddresses from offshore_20140123_nodesnw where Unique_ID = $node_id";
	my $sql = "select Unique_ID, subtypes_, Description_, searchField_, completeAddresses, c.country_code from offshore_20140123_nodesnw as n,offshore_20140123_node_countriesnw as c where c.NODEID1 = n.Unique_ID and n.Unique_ID = $node_id";

	my $d = $dbh->selectall_arrayref($sql);

	my $address = "";
	foreach my $r (@$d) {
		next if ($r->[5] ne "JA");
		#$address = $r->[1]."(" . $r->[0] . ")[" . $r->[2] . "/" . $r->[3];
		$address = $r->[1]."(" . $r->[0] . ")[" . $r->[2];
        $address .= "/" . $r->[3] if ($r->[3] ne "" && $r->[3] ne $r->[2]);
        $address .= "/" . $r->[4] if ($r->[4] ne "" && $r->[4] ne $r->[2]);
        $address .= "]";
		#print encode('UTF-8', $address) . " -> ";
	}
	$address;
}

sub jp_word {
	my ($s) = @_;
	my @i = split(/ /, $s);
	my $r = "";
	foreach my $w (@i) {
		next if ($w eq "-");
		my $h = romaji2hiragana($w);
		$r .= " ".$h if ($h !~ /[a-zA-Z]/);
	}
	$r =~ s/^ //;
	$r;
}

$dbh->disconnect;
$ perl 20140123_extract.pl 252487|perl id2link.pl 
[registered address/注册地址/OA]OFFICER(71210)[Mikio Ando]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
.[registered address/注册地址/OA]OFFICER(71210)[Mikio Ando]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
..[registered address/注册地址/OA]OFFICER(71210)[Mikio Ando]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
..[registered address/注册地址/EA]OFFICER(71210)[Mikio Ando]
...[registered address/注册地址/EA]OFFICER(71210)[Mikio Ando]
..[Shareholder/股东/EO]OFFICER(71210)[Mikio Ando]
...[Shareholder/股东/EO]OFFICER(56917)[Trustcorp Limited]
...[Shareholder/股东/EO]OFFICER(79641)[Nosui Corporation]
...[Shareholder/股东/EO]OFFICER(71210)[Mikio Ando]
...[Shareholder/股东/EO]OFFICER(117871)[Mitsubishi Corporation]
...[Director/董事/EO]OFFICER(71210)[Mikio Ando]
..[Director/董事/EO]OFFICER(71210)[Mikio Ando]
[Shareholder/股东/EO]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
.[Shareholder/股东/EO]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
でた。王禅寺と三菱と冷凍食品のノースイがつながってるw。そーいえば文科省事務次官の実家が業務用冷蔵庫製造だったっけかw。

return "" if ($node_id == 75595 || $node_id == 56917);
撹乱目的の(75595)[Sharecorp Limited]と(56917)[Trustcorp Limited]を読み捨てるw

singapore_038986_ja.html

...[Beneficial Owner/受益所有人/EO]OFFICER(89200)[Dream Incubator Inc.]
...[Beneficial Owner/受益所有人/EO]OFFICER(89257)[Yusen Air & Sea Service Co. Ltd.]
[Director/董事/EO]ADDRESS(120151)[21, Nakamachi Tajimim Gifu 507-0842 Japan]
...[Director/董事/EO]ADDRESS(120447)[4-65, Matsugaoka Itami City Hyogo 664-0024 Japan]
...[Director/董事/EO]ADDRESS(288706)[Vladimir Touloupov Marusaka Bldg., 4F 2-Chome 1-6 Shinkawa, Chuo-ku Tokyo, Japan]
...[Director/董事/EO]OFFICER(117871)[Mitsubishi Corporation]
...[Director/董事/EO]OFFICER(120681)[Marubeni Itochu Steel Inc.]
...[Director/董事/EO]OFFICER(57307)[KOKETSU Naoki]
...[Director/董事/EO]OFFICER(82822)[HAYASHI Yoshiro]
...[Director/董事/EO]OFFICER(89257)[Yusen Air & Sea Service Co. Ltd.]
...[Director/董事/EO]OFFICER(93135)[Japan Petroleum Exploration Co. Ltd.]
...[Director/董事/EO]OFFICER(93507)[BANDAI NETWORKDS CO. LTD.]
...[Director/董事/EO]OFFICER(97510)[Fast Retailing Co., Ltd.]
...[Master Client/秘书公司/EI]MASTER CLIENT(296262)[The Arts Securities Co., Ltd]
...[Shareholder/股东/EO]ADDRESS(238005)[Marubeni Corporation, 1-4-2, Ohtemachi, Chiyoda-ku, Tokyo, Japan, 100-8088]
...[Shareholder/股东/EO]ADDRESS(244949)[1-7-1-1401, Fukuzumi-cho, Gifu-shi, Gifu, Japan]
...[Shareholder/股东/EO]ADDRESS(252487)[4-44, 2-Chome Ouzennji-Higashi, Asao-Ku Kanagawa Pre. Japan]
...[Shareholder/股东/EO]ADDRESS(263105)[c/o Lehman Brothers Ark Mori Bldg., 36th Floor, 12-32 Akasaka 1-Chome, Minato-Ku Tokyo 107-6036, Japan]
...[Shareholder/股东/EO]ENTITY(206728)[Toyo Seafoods Corporation/Toyo Seafoods Corporation Vladimir Touloupov Marusaka Bldg., 4F 2-Chome 1-6 Shinkawa, Chuo-ku Tokyo, Japan RT BVI/Vladimir Touloupov Marusaka Bldg., 4F 2-Chome 1-6 Shinkawa, Chuo-ku Tokyo, Japan RT BVI]
...[Shareholder/股东/EO]ENTITY(206728)[Toyo Seafoods Corporation/Toyo Seafoods Corporation Vladimir Touloupov Marusaka Bldg., 4F 2-Chome 1-6 Shinkawa, Chuo-ku Tokyo, Japan RT BVI/Vladimir Touloupov Marusaka Bldg., 4F 2-Chome 1-6 Shinkawa, Chuo-ku Tokyo, Japan RT BVI]
...[Shareholder/股东/EO]OFFICER(117871)[Mitsubishi Corporation]
...[Shareholder/股东/EO]OFFICER(120681)[Marubeni Itochu Steel Inc.]
...[Shareholder/股东/EO]OFFICER(43789)[Daiso Construction Co., Ltd.]
...[Shareholder/股东/EO]OFFICER(45481)[Mitsui O.S.K. Lines, Limited]
...[Shareholder/股东/EO]OFFICER(48978)[JAFCO G-8 (B) Investment Enterprise Partnership]
...[Shareholder/股东/EO]OFFICER(49543)[Katsu World Co., Ltd]
...[Shareholder/股东/EO]OFFICER(49747)[JAFCO GC-1 Investment Enterprises Partnership]
...[Shareholder/股东/EO]OFFICER(55321)[Daiwa Securities SMBC Principal Investments Co. Ltd.]
...[Shareholder/股东/EO]OFFICER(72681)[DWANGO Co., Ltd.]
...[Shareholder/股东/EO]OFFICER(74100)[JAFCO G-8 (A) Investment Enterprise Partnership]
...[Shareholder/股东/EO]OFFICER(75975)[Nissho Iwai Corporation]
...[Shareholder/股东/EO]OFFICER(76355)[Yamaichi Finance Co.]
...[Shareholder/股东/EO]OFFICER(79244)[JAFCO L-2 Venture Capital Investment Limited Partnership]
...[Shareholder/股东/EO]OFFICER(84328)[Interpacific Fund M]
...[Shareholder/股东/EO]OFFICER(87652)[ORIX Fund No. 10]
...[Shareholder/股东/EO]OFFICER(89257)[Yusen Air & Sea Service Co. Ltd.]
...[Shareholder/股东/EO]OFFICER(93135)[Japan Petroleum Exploration Co. Ltd.]
...[registered address/注册地址/EA]OFFICER(22173)[Kyu Eikan]
...[registered address/注册地址/EA]OFFICER(86923)[Nippon Paper Industries Co., Ltd.]
...[registered address/注册地址/EA]OFFICER(87652)[ORIX Fund No. 10]
..[Shareholder/股东/EO]OFFICER(120681)[Marubeni Itochu Steel Inc.]
..[Shareholder/股东/EO]OFFICER(45481)[Mitsui O.S.K. Lines, Limited]
..[Shareholder/股东/EO]OFFICER(75975)[Nissho Iwai Corporation]
..[Shareholder/股东/EO]OFFICER(84095)[Japan Information Systems Co., Ltd]
.[Beneficial Owner/受益所有人/EO]OFFICER(117871)[Mitsubishi Corporation]
.[Beneficial Owner/受益所有人/EO]OFFICER(75112)[Tokio Marine Holdings, Inc]
.[Beneficiary/受益人/EO]OFFICER(75112)[Tokio Marine Holdings, Inc]
.[Shareholder/股东/EO]OFFICER(55321)[Daiwa Securities SMBC Principal Investments Co. Ltd.]
投稿されたコメント:

コメント
コメントは無効になっています。