1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Catmandu::Sane;
use Catmandu::Store::AlephX;
use Data::Dumper;
use open qw(:std :utf8);
my $bag = Catmandu::Store::AlephX->new(url => "http://borges1.ugent.be/X")->bag();
#print Dumper($bag->get('000000444'));
#
#my $hits = $bag->search(query => "WRD=(art)");
#print Dumper($hits);
my $record = $bag->get('000000444');
#$record->{record} = [grep {
# $_->[0] ne "001";
#} @{ $record->{record} }];
#say Dumper($record);
#$record->{_id} = "010000000";
delete $record->{_id};
print Dumper($bag->add($record));
|
