InstantForum.NET v4.1.4Релибhttp://www.relib.com/forums/robot@relib.comSat, 22 Nov 2008 20:22:40 GMT20http://www.relib.com/forums/Topic754845-18-1.aspxsub winkoi {<BR> my $in=$_[0];<BR> $in =~ tr/\xC0\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF/\xE1\xE2\xF7\xE7\xE4\xE5\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1/;<BR> return $in;<BR>};Fri, 29 Nov 2002 14:36:00 GMTsomeonehttp://www.relib.com/forums/Topic754845-18-1.aspxдобрый день<BR><BR>подскажите, пожалуйста, как очуществить перекодировку текста из windows-1251 в koi8-r на activeperl в виндах?<BR>желательно, не используя никаких дополнительных модулей.<BR><BR>заранее спасибоTue, 09 Jul 2002 16:26:00 GMTevgenia13