q18 tamanegi parser

#!/usr/bin/perl

my $text;

open(IN,"tamanegi");
while(<IN>){
	## ↑=0 ↓=1に変換
	chomp;
	s@↑@0@gi;
	s@↓@1@gi;
	$text .= hex2bin($_);
}
close(IN);

$text =~ s@唐澤貴洋@1@gi;
$text =~ s@長谷川亮太@0@gi;
$text = hex2bin($text);
$text =~ s@\s+@ @gi;

printf "%s\n", $text;

## 2進数→16進数→バイナリに変換
sub hex2bin{

	my $line = shift;

	my $bit = length($line)-1;
	my $code = unpack("H*", pack("B${bit}", $line));
	my $bin = pack("H*", $code);

	return $bin;

}