Re: Perl - Joining of Binary values

[Dr.Ruud]

"Dr.Ruud" schreef:

>   my $data = join("\n", map {sprintf "%08b", $_}
>                         map hex, <DATA> =~ /[[:xdigit:]]+/g) . "\n" ;
> 
>   1 while $data =~ s/(.+?)(.{7}\n.*)/$2$1/ ;

Better:

  my $data = join "\n", map {sprintf "%08b", $_}
                        map hex, <DATA> =~ /[[:xdigit:]]+/g ;

  $data =~ s/(?<=.)\z/\n/
    while $data =~ s/(.+?)(.{7}\n.*)/$2$1/ ;


Alternative for that last (folded) line:

  for ($data) {s/(?<=.)\z/\n/ while s/(.+?)(.{7}\n.*)/$2$1/}

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>