regress/base/ringbuffer.pl


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
27
28

use File::RingBuffer;

my $obj = new File::RingBuffer {
    directory => "/tmp/b"
};


&uja($obj);

my $obj = new File::RingBuffer {
    directory => "/tmp/b",
    file_name => "_smtplog.",
};

&uja($obj);


sub uja
{
	my ($obj) = @_;

	my $fh = $obj->open;
	$_ = `date`;
	print $fh $_;
	close($fh);

	$obj->close;
}