renormalist / data-dpath Goto Github PK

#!/usr/bin/env perl
use 5.018;
use warnings;
use Data::DPath 'dpath';

my $data = { foo => 'aaa[bbb/ccc]ddd' };

match( $data, q!/foo[value eq 'aaa\[bbb/ccc\]ddd']! );
match( $data, q!/foo[value eq 'aaa[bbb/ccc]ddd']! );
match( $data, q!/foo[value eq "aaa\\[bbb/ccc\\]ddd"]! );

sub match {
    my ($input_pl, $query_path) = @_;
    my $dpath = Data::DPath::Path->new( path => $query_path );
    my @result = $dpath->match($input_pl);
    say $query_path;
    say scalar @result ? 'match' : 'no match';
}

perl dpath.pl 
/foo[value eq 'aaa\[bbb/ccc\]ddd']
no match
/foo[value eq 'aaa[bbb/ccc]ddd']
no match
/foo[value eq "aaa\[bbb/ccc\]ddd"]
match

###
/details[ value eq 'foo bar baz' ]

$VAR1 = [
          'foo bar baz'
        ];

###
/details[ value eq 'foo bar
baz' ]

$VAR1 = [
          {
            'details' => 'foo bar baz'
          }
        ];

perl -MTest::Exception -MData::DPath::Context -e '1'
Number found where operator expected at /Users/jonathantaylor/perl5/perlbrew/perls/perl-5.26.0/lib/5.26.0/warnings.pm line 353, near "caller 1"
        (Do you need to predeclare caller?)

perl -MTest::Exception -MData::DPath::Context -e '1'
Number found where operator expected at /Users/jonathantaylor/perl5/perlbrew/perls/perl-5.16.3/lib/5.16.3/warnings.pm line 444, near "caller 1"
        (Do you need to predeclare caller?)

perl -MData::DPath::Context -MTest::Exception -e '1' # No warning

% perl -Ilib -w -e 'use Data::DPath'
Name "main::INC" used only once: possible typo at /usr/share/perl/5.26/Safe.pm line 372.

% perl -w -MSafe -e 'BEGIN { $c = Safe->new; $c->reval("no warnings") }'
Name "main::INC" used only once: possible typo at /usr/share/perl/5.26/Safe.pm line 372.

#!/usr/bin/env perl
use 5.032;
use warnings;
use Data::DPath::Path;

my $query_path = '/*/*[2]/.[value eq "street"]/../*[3]/.[0]';
my $input_pl = [
  [ 1, "SUCCESS", 1000, "" ],
  [ 2, "ATTR", "street", "street1" ],
  [ 3, "ATTR", "street", "street2" ]
];

my $dpath  = Data::DPath::Path->new( path => $query_path );
my @result = $dpath->match($input_pl);

use Data::Dumper;
say Dumper(\@result);

$VAR1 = [
          'street1',
          'street2'
        ];