Re: loop on a Buf/binary

2018-10-09 Thread ToddAndMargo via perl6-users
On 10/8/18 5:33 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:53 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: I take it that `Buf` is a special type of array that the normal rules do not apply to. I would say rather than each of them (Buf and Array) are

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:50 AM, ToddAndMargo via perl6-users wrote: On 10/8/18 4:25 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:21 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: >     I never have to say `$str[0..*]` when looping over a string.     Why? > >   

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:25 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:21 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: >     I never have to say `$str[0..*]` when looping over a string. Why? > > > How do you loop over a string?  Doesn't 'for $str'

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:29 AM, ToddAndMargo via perl6-users wrote: On 10/8/18 4:20 AM, ToddAndMargo via perl6-users wrote: On 10/8/18 4:14 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:06 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote:     $ p6 'my $fh=open

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:20 AM, ToddAndMargo via perl6-users wrote: On 10/8/18 4:14 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:06 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote:     $ p6 'my $fh=open "/home/linuxutil/To", :r; my Buf $f = $fh.read( 10 );     $fh.close; dd

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:14 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:06 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: $ p6 'my $fh=open "/home/linuxutil/To", :r; my Buf $f = $fh.read( 10 ); $fh.close; dd $f; for $f[0..*] -> $Byte { if $Byte == 0b00 {say

Re: loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
On 10/8/18 4:14 AM, Curt Tilmes wrote: On Mon, Oct 8, 2018 at 7:06 AM ToddAndMargo via perl6-users mailto:perl6-users@perl.org>> wrote: $ p6 'my $fh=open "/home/linuxutil/To", :r; my Buf $f = $fh.read( 10 ); $fh.close; dd $f; for $f[0..*] -> $Byte { if $Byte == 0b00 {say

Re: loop on a Buf/binary

2018-10-08 Thread Curt Tilmes
On Mon, Oct 8, 2018 at 7:06 AM ToddAndMargo via perl6-users < perl6-users@perl.org> wrote: > $ p6 'my $fh=open "/home/linuxutil/To", :r; my Buf $f = $fh.read( 10 ); > $fh.close; dd $f; for $f[0..*] -> $Byte { if $Byte == 0b00 {say > "Binary"; last;}else{say $Byte}}' > > Buf[uint8] $f =

loop on a Buf/binary

2018-10-08 Thread ToddAndMargo via perl6-users
$ p6 'my $fh=open "/home/linuxutil/To", :r; my Buf $f = $fh.read( 10 ); $fh.close; dd $f; for $f[0..*] -> $Byte { if $Byte == 0b00 {say "Binary"; last;}else{say $Byte}}' Buf[uint8] $f = Buf[uint8].new(87,111,114,100,80,114,111,0,0,0) 87 111 114 100 80 114 111 Binary To get the above to work,