… | |
… | |
175 | : /^\x00.\x00/s ? "utf-16be" |
175 | : /^\x00.\x00/s ? "utf-16be" |
176 | : /^.\x00\x00\x00/s ? "utf-32le" |
176 | : /^.\x00\x00\x00/s ? "utf-32le" |
177 | : /^.\x00.\x00/s ? "utf-16le" |
177 | : /^.\x00.\x00/s ? "utf-16le" |
178 | : "utf-8"; |
178 | : "utf-8"; |
179 | warn "input text encoding is $enc\n" if $opt_verbose; |
179 | warn "input text encoding is $enc\n" if $opt_verbose; |
180 | JSON::XS->new->allow_nonref->decode (decode $enc, $_) |
180 | JSON::XS->new->decode (decode $enc, $_) |
181 | }, |
181 | }, |
182 | "cbor" => sub { require CBOR::XS; CBOR::XS->new->allow_cycles->decode ($_) }, |
182 | "cbor" => sub { require CBOR::XS; CBOR::XS->new->allow_cycles->decode ($_) }, |
183 | "storable" => sub { Storable::thaw $_ }, |
183 | "storable" => sub { Storable::thaw $_ }, |
184 | "storable-file" => sub { open my $fh, "<", \$_; Storable::fd_retrieve $fh }, |
184 | "storable-file" => sub { open my $fh, "<", \$_; Storable::fd_retrieve $fh }, |
185 | "bencode" => sub { require Convert::Bencode; Convert::Bencode::bdecode ($_) }, |
185 | "bencode" => sub { require Convert::Bencode; Convert::Bencode::bdecode ($_) }, |