EXPORT

NAME

MARC::NDLSH - 国会図書館件名標目表(NDLSH)にアクセスするPerlモジュール

SYNOPSIS

  use MARC::NDLSH;

  my $obj = new MARC::NDLSH;

  # フレーズ「医学」から件名標目を探す
  my @node_objs = $obj->set_word("医学");

  # set_wordで見つけた件名標目のIDを得る
  print $node_objs[0]->getid, "\n";

  # set_wordで見つけた件名標目の件名標目形を得る
  print $node_objs[0]->as_NDLSH, "\n";

  # set_wordで見つけた件名標目のSN(Scope Note)を得る
  print $node_objs[0]->SN, "\n";

  # set_wordで見つけた件名標目のSA(参照注記)を得る
  print $node_objs[0]->SA, "\n";

  # set_wordで見つけた件名標目の日本十進分類（第９版）を得る
  print $node_objs[0]->NDC9, "\n";

  # set_wordで見つけた件名標目の国会図書館分類(NDLC)を得る
  print $node_objs[0]->NDLC, "\n";

  # set_wordで見つけた件名標目の「読み」を得る
  print $node_objs[0]->yomi, "\n";

  # set_wordで見つけた件名標目のRT(関連語)を得る
  my @related_objs = $node_objs[0]->RT;
  foreach $obj (@related_objs) {
      print $obj->as_NDLSH, "\n";
  }

  # set_wordで見つけた件名標目のBT(上位語)を得る
  my @related_objs = $node_objs[0]->BT;
  foreach $obj (@related_objs) {
      print $obj->as_NDLSH, "\n";
  }

  # set_wordで見つけた件名標目のNT(下位語)を得る
  my @related_objs = $node_objs[0]->NT;
  foreach $obj (@related_objs) {
      print $obj->as_NDLSH, "\n";
  }

  # set_wordで見つけた件名標目の類義語(USE and USE FOR)を得る
  foreach my $word ($node_objs[0]->simular) {
      print $word, "\n";
  }

DESCRIPTION

国会図書館件名標目表(NDLSH)のデータにアクセスするためのPerlモジュールです。国会図書館が配布するNDLSHは、タブ区切りテキストデータであり、そのままでは Perlからアクセスすることができません。そこで、Perlからアクセスするためのモジュールを作成しました。

Perlのオブジェクトを使い件名標目のグラフ構造を表現しています
用語間の関連は件名標目のIDでリンクしていますが、それを隠蔽しています
用語間の関連を得る際は、件名標目形もその参照形も等価に扱います。つまり、件名標目形とその参照形をグループ化しています。
現在のところ主標目にしか対応していません、また件名の後の限定(括弧書き）にも未対応です。

EXPORT

None by default.

AUTHOR

Akira Maeda<maeda@lib.u-tokyo.ac.jp>

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.

NAME

SYNOPSIS

DESCRIPTION

EXPORT

SEE ALSO

AUTHOR

COPYRIGHT AND LICENSE