mirror of
https://codeberg.org/scip/Data-Interactive-Inspect.git
synced 2025-12-17 12:41:08 +01:00
143 lines
4.0 KiB
Perl
143 lines
4.0 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
# Copyright (c) 2015-2017 T.v.Dein <tlinden |AT| cpan.org>. All
|
|
# Rights Reserved. Std. disclaimer applies. Artistic License, same as
|
|
# perl itself. Have fun.
|
|
|
|
# This script can be used to interactively browse perl data
|
|
# structures, which it reads from STDIN or a file. You can use it, for
|
|
# instance, by printing some data structure in your application using
|
|
# Data::Dumper and piping this output into this scripts input.
|
|
|
|
# However, if the argument is a file and has a known suffix, the
|
|
# script automatically converts it into a perl data structure and
|
|
# drops you into an interactive shell on that. That way you can
|
|
# interactively browse XML or YAML files. Supported suffixes are: xml,
|
|
# json, csv, yml, ini, conf.
|
|
|
|
# If the data structure evaulates, you'll be dropped into an interactive
|
|
# prompt. Enter '?' to get help.
|
|
|
|
# The script also demonstrates how to use different serializers.
|
|
|
|
use Data::Interactive::Inspect;
|
|
use Data::Dumper;
|
|
use YAML; # needs to be installed anyway
|
|
use strict;
|
|
|
|
|
|
sub usage {
|
|
print STDERR qq(
|
|
Usage: $0 <file|-h>
|
|
|
|
Reads a perl data structure from <file>. If <file> is -, read from
|
|
STDIN. Evaluates and start an interactive Data::Interactive::Inspect
|
|
shell, which can be used to analyze the data.
|
|
);
|
|
exit 1;
|
|
}
|
|
|
|
|
|
my $arg = shift;
|
|
my $perl = 1;
|
|
my ($code);
|
|
|
|
if (! $arg) {
|
|
usage;
|
|
}
|
|
|
|
if ($arg ne '-' && ! -e $arg) {
|
|
print STDERR "$arg not found or not readable!\n";
|
|
usage;
|
|
}
|
|
|
|
if ($arg eq '-') {
|
|
loaddumper(join '', <>);
|
|
}
|
|
else {
|
|
if ($arg =~ /\.xml$/i) {
|
|
eval { require XML::Simple; };
|
|
die "Sorry, XML::Simple is not installed, XML not supported!\n" if($@);
|
|
my $xml = new XML::Simple;
|
|
$code = $xml->XMLin($arg);
|
|
$perl = 0;
|
|
}
|
|
elsif ($arg =~ /\.(yaml|yml)$/i) {
|
|
$code = YAML::LoadFile($arg);
|
|
$perl = 0;
|
|
}
|
|
elsif ($arg =~ /\.ini$/i) {
|
|
eval { require Config::INI::Reader; };
|
|
die "Sorry, Config::INI is not installed, INI not supported!\n" if($@);
|
|
$code = Config::INI::Reader->read_file($arg);
|
|
$perl = 0;
|
|
}
|
|
elsif ($arg =~ /\.conf$/i) {
|
|
eval { require Config::General; };
|
|
die "Sorry, Config::General is not installed, CONF not supported!\n" if($@);
|
|
%{$code} = Config::General::ParseConfig(-ConfigFile => $arg, -InterPolateVars => 1, -UTF8 => 1);
|
|
$perl = 0;
|
|
}
|
|
elsif ($arg =~ /\.json$/i) {
|
|
eval { require JSON; };
|
|
die "Sorry, JSON is not installed, JSON not supported!\n" if($@);
|
|
my $json = JSON->new->utf8();
|
|
$code = $json->decode(slurp($arg));
|
|
}
|
|
elsif ($arg =~ /\.csv$/i) {
|
|
eval { require Text::CSV::Slurp; };
|
|
die "Sorry, Text::CSV::Slurp is not installed, CSV not supported!\n" if($@);
|
|
$code = Text::CSV::Slurp->load(file => $arg);
|
|
}
|
|
else {
|
|
loaddumper(slurp($arg));
|
|
}
|
|
}
|
|
|
|
if ($@) {
|
|
print STDERR "Parser or Eval error: $@!\n";
|
|
exit 1;
|
|
}
|
|
else {
|
|
if ($perl) {
|
|
Data::Interactive::Inspect->new(struct => $code,
|
|
serialize => sub { my $db = shift;
|
|
my $c = Dumper($db);
|
|
$c =~ s/^\s*\$[a-zA-Z0-9_]*\s*=\s*/ /;
|
|
return $c;
|
|
},
|
|
deserialze => sub { my $code = shift;
|
|
$code = "\$code = $code";
|
|
eval $code;
|
|
return $code;
|
|
},
|
|
)->inspect;
|
|
}
|
|
else {
|
|
# no perl struct, stay with default
|
|
Data::Interactive::Inspect->new(struct => $code)->inspect;
|
|
}
|
|
}
|
|
|
|
|
|
sub slurp {
|
|
my $arg = shift;
|
|
open CODE, "<$arg" or die "Could not open data file $arg: $!\n";
|
|
my $code = join '', <CODE>;
|
|
close CODE;
|
|
return $code;
|
|
}
|
|
|
|
sub loaddumper {
|
|
my $dump = shift;
|
|
$dump =~ s/^\s*\$[a-zA-Z0-9_]*\s*=\s*/\$code = /;
|
|
eval $dump; # fills global $code
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|