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