#!/usr/bin/perl
######################################################################

%upp = ('' => '', '' =>'', '' =>'', ''=>'', '' =>'', ''=>'', ''=>'', ''=>'', ''=>'', ''=>'', ''=>'',''=>'', '' => '', ''=>'', ''=>'', ''=>'', ''=>'',''=>'', ''=>'', ''=>'', ''=>'', ''=>'',''=>'',''=>'', ''=>'',''=>'', ''=>'', ''=>'', ''=>'',''=>'',''=>'',''=>'',''=>'');

%koi=(''=> '&#8470;', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '' );

%win=('&#8470;' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '', '' => '');

######################################################################

sub koistr2upper ($) {

	my ($src)= @_;
        my $dst="";

        for ($i=0; $i<length($src);$i++) {
                        $c=substr($src,$i,1);


                        if (exists $upp{$c}) {
                                $dst=$dst . $upp{$c}; }
                        else {
                                $dst=$dst . $c;
                        }
        }


        return $dst;

}

######################################################################

sub win2koi($) {

	my @ret;

	foreach my $src_ (@_){

		my $src = $src_;
        	my $dst="";

        	for ($i=0; $i<length($src);$i++) {
                	$c=substr($src,$i,1);

                	if (exists $koi{$c}) { 
				$dst=$dst . $koi{$c}; }
                	else {
                        	$dst=$dst . $c;
                	}
        	}

		push @ret, $dst;
	}

	return @ret;

}
######################################################################
sub koi2win($) {

        my @ret;

        foreach my $src_ (@_){

		my $src = $src_;	

		$src =~ s/\&\#8470\;//g;

                my $dst="";

                for ($i=0; $i<length($src);$i++) {
                        $c=substr($src,$i,1);

                        if (exists $win{$c}) {
                                $dst=$dst . $win{$c}; }
                        else {
                                $dst=$dst . $c;
                        }
                }

                push @ret, $dst;
        }

        return @ret;

}

######################################################################


