Исходное сообщение
"Русский язык в графиках GD::Graph" Отправлено TLoDSnake, 05-Дек-05 18:23
Решение совсем влоб sub stringToDec{ my $ustring = ''; for my $char (split //, shift){ if(ord($char)>127){ $ustring .= "&#" . (unpack("U", $char)+848) . ";"; }else{ $ustring .= $char; } } return $ustring; } http://www.mysterria.com/programming_notes/GD.html

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Решение совсем влоб > sub stringToDec{ > my $ustring = ''; > for my $char (split //, shift){ > if(ord($char)>127){ > $ustring .= "&#" . (unpack("U", $char)+848) . ";"; > }else{ > $ustring .= $char; > } > } > return $ustring; > } > http://www.mysterria.com/programming_notes/GD.html
	Введите код, изображенный на картинке: