Привести бинарную строку к регулярному виду

jkadaba · Регистрация: 31.10.2016

Author24 — интернет-сервис помощи студентам

В Perl 5 конвертировать строку в бинарный вид и обратно можно так:

Perl

1 2	echo -n this is string \| perl -lpe '$_=unpack "B"' echo -n 01110...00111 \| perl -nE 'say pack "B", $_'

В Perl 6 к бинарному виду строку привести строку можно как-то так:

Perl

1	perl6 -e "say join '', 'this is string'.split('', :skip-empty).map({ord($_).fmt('%.8b')})"

А как обратно? В смысле из бинарного представления перегнать в обычный формат? Бить строку на октеты с их последующим переводом в символы? Но ведь октеты будут представлять собой строковой тип.

volodin661 · 05.04.2018, 22:19

А как обратно? В смысле из бинарного представления перегнать в обычный формат?

perl6:

Perl

1
2
3

my \бинарное-представление = '01010'; 
my \обычный-формат = :2(бинарное-представление);
say обычный-формат;

output:
10

greg zakharov · 07.04.2018, 12:35

Туда (к бинарному представлению):

Perl

1	perl6 -e "'this is test string'.comb(1).map({(ord($_)).fmt('%.8d')}).join.say"

Обратно:

Perl

1	perl6 -e "'01110...00111'.comb(8).map({chr(:2($_))}).join.say"

volodin661 · 07.04.2018, 14:37

Не по теме:

greg zakharov,
ты таки выполнил свою давнюю угрозу присмотреться к возможностям perl6 ? ))
Я рад.

greg zakharov · 07.04.2018, 20:17

Не по теме:

volodin661, да. ))

volodin661 · 07.04.2018, 21:23

Perl

# генерируем двоичную символьную колбасу, а именно склеиваем 10 раз произвольный набор из 8 ноликов('0') и единиц('1')  
my $колбаса ~=  <0 1>.roll(*)[^8].join for 1..10;
$колбаса.say;
 
 
$колбаса.comb(8).map({ chr(:2($_)) }).join.say;

Добавлено через 19 минут
ну и, то же самое, но однострочником без промежуточных переменных:

Bash

1	perl6 -e '( for 1..10 { <0 1>.roll(*)[^8].join } ).join.comb(8).map({ chr(:2($_)) }).join.say'

volodin661
	07.04.2018, 14:37 #4
	Не по теме: greg zakharov, ты таки выполнил свою давнюю угрозу присмотреться к возможностям perl6 ? )) Я рад. 0

greg zakharov
	07.04.2018, 20:17 #5
	Не по теме: volodin661, да. )) 0

	07.04.2018, 21:23

Привести бинарную строку к регулярному виду

Решение