| … | |
… | |
| 44 | |
44 | |
| 45 | =item clzf - L<Compress::LZF> format (requires that module to be installed) |
45 | =item clzf - L<Compress::LZF> format (requires that module to be installed) |
| 46 | |
46 | |
| 47 | =item eval - evaluate the given code as (non-utf-8) Perl, basically the reverse of "-t dump" |
47 | =item eval - evaluate the given code as (non-utf-8) Perl, basically the reverse of "-t dump" |
| 48 | |
48 | |
| 49 | =item yaml - L<YAML> (avoid at all costs, requires the YAML module :) |
49 | =item yaml - L<YAML> format (requires that module to be installed) |
| 50 | |
50 | |
| 51 | =item string - do not attempt to decode the file data |
51 | =item string - do not attempt to decode the file data |
| 52 | |
52 | |
| 53 | =item none - nothing is read, creates an C<undef> scalar - mainly useful with C<-e> |
53 | =item none - nothing is read, creates an C<undef> scalar - mainly useful with C<-e> |
| 54 | |
54 | |
| … | |
… | |
| 80 | |
80 | |
| 81 | =item bencode - use L<Convert::Bencode>, if available (used by torrent files, among others) |
81 | =item bencode - use L<Convert::Bencode>, if available (used by torrent files, among others) |
| 82 | |
82 | |
| 83 | =item clzf - L<Compress::LZF> format |
83 | =item clzf - L<Compress::LZF> format |
| 84 | |
84 | |
| 85 | =item yaml - L<YAML> |
85 | =item yaml - L<YAML::XS> format |
| 86 | |
86 | |
| 87 | =item dump - L<Data::Dump> |
87 | =item dump - L<Data::Dump> |
| 88 | |
88 | |
| 89 | =item dumper - L<Data::Dumper> |
89 | =item dumper - L<Data::Dumper> |
| 90 | |
90 | |
| … | |
… | |
| 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 ($_) }, |
| 186 | "clzf" => sub { require Compress::LZF; Compress::LZF::sthaw ($_) }, |
186 | "clzf" => sub { require Compress::LZF; Compress::LZF::sthaw ($_) }, |
| 187 | "yaml" => sub { require YAML; YAML::Load ($_) }, |
187 | "yaml" => sub { require YAML::XS; YAML::XS::Load ($_) }, |
| 188 | "eval" => sub { my $v = eval "no strict; no warnings; no utf8;\n#line 1 \"input\"\n$_"; die "$@" if $@; $v }, |
188 | "eval" => sub { my $v = eval "no strict; no warnings; no utf8;\n#line 1 \"input\"\n$_"; die "$@" if $@; $v }, |
| 189 | ); |
189 | ); |
| 190 | |
190 | |
| 191 | my %T = ( |
191 | my %T = ( |
| 192 | "none" => sub { "" }, |
192 | "none" => sub { "" }, |
| … | |
… | |
| 202 | "cbor-packed" => sub { require CBOR::XS; CBOR::XS->new->pack_strings->encode ($_) }, |
202 | "cbor-packed" => sub { require CBOR::XS; CBOR::XS->new->pack_strings->encode ($_) }, |
| 203 | "storable" => sub { Storable::nfreeze $_ }, |
203 | "storable" => sub { Storable::nfreeze $_ }, |
| 204 | "storable-file" => sub { open my $fh, ">", \my $buf; Storable::nstore_fd $_, $fh; $buf }, |
204 | "storable-file" => sub { open my $fh, ">", \my $buf; Storable::nstore_fd $_, $fh; $buf }, |
| 205 | "bencode" => sub { require Convert::Bencode; Convert::Bencode::bencode ($_) }, |
205 | "bencode" => sub { require Convert::Bencode; Convert::Bencode::bencode ($_) }, |
| 206 | "clzf" => sub { require Compress::LZF; Compress::LZF::sfreeze_cr ($_) }, |
206 | "clzf" => sub { require Compress::LZF; Compress::LZF::sfreeze_cr ($_) }, |
| 207 | "yaml" => sub { require YAML; YAML::Dump ($_) }, |
207 | "yaml" => sub { require YAML::XS; YAML::XS::Dump ($_) }, |
| 208 | "dumper" => sub { |
208 | "dumper" => sub { |
| 209 | require Data::Dumper; |
209 | require Data::Dumper; |
| 210 | #local $Data::Dumper::Purity = 1; # hopeless case |
210 | #local $Data::Dumper::Purity = 1; # hopeless case |
| 211 | local $Data::Dumper::Terse = 1; |
211 | local $Data::Dumper::Terse = 1; |
| 212 | local $Data::Dumper::Indent = 1; |
212 | local $Data::Dumper::Indent = 1; |
