blob: ccbdc3c2bcac462326d9e80391bbddfa29f78605 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/local/bin/perl
#
# $FML$
#
use File::LogStructuredData;
$db = new File::LogStructuredData { file => '/tmp/cache.txt' };
$db->append("rudo is pretty");
$values = $db->find( 'rudo' );
print "\n// rudo\n\n";
print join("\n", @$values), "\n";
my $value = $db->get_value( 'rudo' );
print "\n// rudo => $value\n\n";
exit 0;
|
