﻿if ($data{win_con} ne "garbage") {
	my (%tag);
	while ($data{text_jp} =~ /\[([^\]\]]*)\]/g) {
		my ($tag) = ($1);

		if ($tag !~ s/^([\dA-F]+:[\dA-F]+):[^:]+/$1/) {
			print "タグ異常, $tag, $data{msg_id}, $i\n";
			return;
		}
		if ($tag !~ /^[\dA-F]+:[\dA-F]+$/) {
			if ($tag !~ s/^([\dA-F]+:[\dA-F]+:[\dA-F]+).*$/$1/) {
				print "タグ異常, $tag, $data{msg_id}, $i\n";
				return;
			}
		}
		$tag{$tag}++;
	}
	if (scalar(keys %tag)) {
		my (@tag, $tag_str);

		for my $ii (sort keys %tag) {
			my ($str);

			$str = "$ii-$tag{$ii}";
			push @tag, $str;
		}
		$tag_str = join "/", @tag;
		$iter->setUseTagList($tag_str);
	} else {
		$iter->setUseTagList("");
	}
} else {
	$iter->setUseTagList("");
}
