Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP [Perl] Новичкам: задаем вопросы

   

Опции темы

Поиск в этой теме

Опции просмотра

Предыдущая   Следующая

sub hexstring($)
{
	my @bytes =  shift =~ /(.)/g;
	my $result = '0x';
	foreach(@bytes)
	{
		$result .= sprintf "%02X", ord($_);
	}
	return $result;
}