LINUX.ORG.RU

Обычно это не надо делать на перле. В чём задача стоит?

shell-script ★★★★★
()

Не понял. Нужно разбить строку на символы? (split//, $str)

perl -MData::Dumper -e '$a = "sdfsdfsdf  ewwretg "; print Dumper split//, $a;'
$VAR1 = 's';
$VAR2 = 'd';
$VAR3 = 'f';
$VAR4 = 's';
$VAR5 = 'd';
$VAR6 = 'f';
$VAR7 = 's';
$VAR8 = 'd';
$VAR9 = 'f';
$VAR10 = ' ';
$VAR11 = ' ';
$VAR12 = 'e';
$VAR13 = 'w';
$VAR14 = 'w';
$VAR15 = 'r';
$VAR16 = 'e';
$VAR17 = 't';
$VAR18 = 'g';
$VAR19 = ' ';

bug
()

Что-то типа того

sub str2bytes {
	my $str = shift;
	
	Encode::_utf8_off($str);
	unpack "C*", $str;
}


my @bytes = str2bytes("пёрлоджава");

Olegymous ★★★
()
Ответ на: комментарий от Olegymous

Здесь должен быть код от атцов, убеждающий, что на перл всё корроче и проще, чем на говно-питоне. А вы постите какое-то говно.

anonymous
()

Всем спасибо.

G12ES
() автор топика
Ответ на: комментарий от anonymous

Это именно массив. Если нужна ссылка на массив, то

perl -MData::Dumper -e '$a = "sdfsdfsdf  ewwretg "; print Dumper [split//, $a];'
$VAR1 = [
          's',
          'd',
          'f',
          's',
          'd',
          'f',
          's',
          'd',
          'f',
          ' ',
          ' ',
          'e',
          'w',
          'w',
          'r',
          'e',
          't',
          'g',
          ' '
        ];

bug
()
Ответ на: комментарий от shell-script

А ты понимаешь, что ты не на байты разбил строку, а на символы, воинствующий ты наш питонист?

Что по-твоему означает префикс 'b'?

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.