Re: Perl - Joining of Binary values
- From: dharshana.ve@xxxxxxxxx (Dharshana Eswaran)
- Date: Fri, 17 Nov 2006 10:04:17 +0530
On 11/17/06, Dr.Ruud <rvtol+news@xxxxxxxxxxxx> wrote:
"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: beginners-unsubscribe@xxxxxxxx
For additional commands, e-mail: beginners-help@xxxxxxxx
<http://learn.perl.org/> <http://learn.perl.org/first-response>
Thanks Dr.Ruud. Since i am unable to understand the working of the code
which you have written, I request you to explain the working for me.
Thanks and Regards,
Dharshana
- References:
- Perl - Joining of Binary values
- From: Dharshana Eswaran
- Re: Perl - Joining of Binary values
- From: Rob Dixon
- Re: Perl - Joining of Binary values
- From: Dharshana Eswaran
- Re: Perl - Joining of Binary values
- From: Rob Dixon
- Perl - Joining of Binary values
- From: Dharshana Eswaran
- Re: Perl - Joining of Binary values
- From: Rob Dixon
- Re: Perl - Joining of Binary values
- From: Dharshana Eswaran
- Re: Perl - Joining of Binary values
- From: Dr.Ruud
- Re: Perl - Joining of Binary values
- From: Dr.Ruud
- Perl - Joining of Binary values
- Prev by Date: Hi all, can we read or delete multi-lines from Listbox widget?
- Next by Date: RE: Database entries into a hash or array
- Previous by thread: Re: Perl - Joining of Binary values
- Next by thread: Re: Perl - Joining of Binary values
- Index(es):
Relevant Pages
|
