Untitled
123456789101112131415161718
# 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'));
Raku
INFO