Untitled

# torrent file: https://cdimage.debian.org/debian-cd/current/amd64/bt-cd/debian-13.1.0-amd64-netinst.iso.torrent
# lib file: https://raku.land/zef:4zv4l/Bencode

grammar Bencode {
    token elem        {
        | <integer>             {make $<integer>.Int}
        | <list>                {make $<list><elem>.List.map(*.made)}
        | <dictionary>          {make %($<dictionary><entry>.map({$_<key>.Str,$_<value>.made}).flat)}
        | <string>              {make $<string>.Str}
    }
    token integer     { i <(\-?\d+)> e }
    token string      { $<len> = \d+  {say "len: $<len>"} ':' <(. ** {$<len>})> {say "done ({$/.Str.encode('latin-1').bytes}) !"} }
    token list        { l <( <elem>* )> e }
    token dictionary  { d <( $<entry> = (<key=string> <value=elem>)* )> e }
}

say Bencode.parsefile('debian.torrent', :rule('elem'), :enc('latin-1'));