SWE/DB/SuikaWiki3.pm

package SWE::DB::SuikaWiki3;
use strict;

require Encode::EUCJPSW;

sub new ($) {
  my $self = bless {
    leaf_suffix => '.txt',
    root_directory_name => ',/',
  }, shift;
  return $self;
} # new

sub _get_file_name ($$) {
  my ($self, $key) = @_;
  
  return $self->{root_directory_name} . $key . $self->{leaf_suffix};
} # _get_file_name

sub get_data ($$) {
  my $self = $_[0];
  my $file_name = $self->_get_file_name ($_[1]);

  return undef unless -f $file_name;

  open my $file, '<:encoding(euc-jp-sw)', $file_name
      or die "$0: $file_name: $!";
  local $/ = undef;
  return scalar <$file>;
} # get_data

1;
1	wakaba	1.1	package SWE::DB::SuikaWiki3;
2			use strict;
3
4	wakaba	1.2	require Encode::EUCJPSW;
5	wakaba	1.1
6			sub new ($) {
7			my $self = bless {
8			leaf_suffix => '.txt',
9			root_directory_name => ',/',
10			}, shift;
11			return $self;
12			} # new
13
14	wakaba	1.4	sub _get_file_name ($$) {
15			my ($self, $key) = @_;
16	wakaba	1.1
17	wakaba	1.4	return $self->{root_directory_name} . $key . $self->{leaf_suffix};
18			} # _get_file_name
19	wakaba	1.1
20			sub get_data ($$) {
21	wakaba	1.3	my $self = $_[0];
22	wakaba	1.4	my $file_name = $self->_get_file_name ($_[1]);
23	wakaba	1.1
24			return undef unless -f $file_name;
25
26	wakaba	1.2	open my $file, '<:encoding(euc-jp-sw)', $file_name
27	wakaba	1.1	or die "$0: $file_name: $!";
28			local $/ = undef;
29			return scalar <$file>;
30			} # get_data
31
32			1;