• NAME
• SYNOPSIS
• 関数スタイルのインターフェイス
• オブジェクト指向のインターフェイス (未実装)
• DESCRIPTION
• EXPORT
• FUNCTIONS
• SEE ALSO
• AUTHOR
• COPYRIGHT AND LICENSE

NAME

MARC::diffSerials - 図書館目録における雑誌包括所蔵形のデータをもとに、 同一雑誌タイトルについての２館間の所蔵を比較する

SYNOPSIS

関数スタイルのインターフェイス

  use MARC::diffSerials;
  # 入力データ（雑誌所蔵編集形）
  $vols_of_LibA = "3(),4-6,9,10()";  # 図書館Ａの雑誌所蔵
  $vols_of_LibB = "2-9";             # 図書館Ｂの雑誌所蔵
  
  # 図書館Ｂが図書館Ａに補充可能な巻を表示する
  print MARC::diffSerials::fill_all($vols_of_LibA, $vols_of_LibB), "\n";
   
  # 図書館Ｂが図書館Ａに補充可能な巻のうち,
  # 図書館Ａの最古巻より古い巻を表示する
  print MARC::diffSerials::fill_old($vols_of_LibA, $vols_of_LibB), "\n";
    
  # 図書館Ｂが図書館Ａに補充可能な巻のうち,
  # 図書館Ａの最新巻より新しい巻を表示する
  print MARC::diffSerials::fill_new($vols_of_LibA, $vols_of_LibB), "\n";
  
  # 図書館Ｂが図書館Ａに補充可能な途中欠号の巻を表示する
  print MARC::diffSerials::fill_middle($vols_of_LibA, $vols_of_LibB), "\n";
   
  # 図書館Ａの途中欠号を表示
  print MARC::diffSerials::middle_lack($vols_of_LibA), "\n";

  # 図書館Ａと図書館Ｂの雑誌所蔵をマージ
  print MARC::diffSerials::marge_vols($vols_of_LibA, $vols_of_LibB), "\n";

オブジェクト指向のインターフェイス (未実装)

現在は未実装。将来のバージョンにて実装する可能性あり。

DESCRIPTION

図書館目録における雑誌包括所蔵形のデータをもとに、同一雑誌タイトルについての２館間の所蔵を比較する。 なお、使用にあたり次については留意すること。

• ２館とも同じ巻(Vol)が不完全巻の場合、 Vol() 例 5()の形式にて、号(No)を明記しない
• もし、最古号もしくは最新号が不完全巻であった場合、それは中途欠欠号に含める。逆に所蔵より古い巻やより新しい巻としては扱わない
• 刊行の途中で巻号体系が変更になった場合（ 45-54;1-4+ など)のケースには対応していない

EXPORT

デフォルトではEXPORTは行わない。ただし、次の関数は use MARC::diffSerials ':all'; にてEXPORTが可能。

• fill_all
• fill_old
• fill_new
• fill_middle
• middle_lack
• marge_vols

FUNCTIONS

fill_all($vols_of_LibA, $vols_of_LibB)

補充可能な巻を得る。第一引数は補充を受ける図書館の雑誌所蔵編集形。第二引数は雑誌を受け渡す館の雑誌所蔵編集形である。

 print MARC::diffSerials::fill_all("3(),4-6,9,10()", "2-11");
  -> 2,3(),7-9,10(),11 が出力される

fill_old($vols_of_LibA, $vols_of_LibB)

中途欠号のうち補充可能な古い巻を得る。第一引数は補充を受ける図書館の雑誌所蔵編集形。第二引数は雑誌を受け渡す館の雑誌所蔵編集形である。

  print MARC::diffSerials::fill_old("3(),4-6,9,10()", "2(4-5),3-9");
    -> 2(4-5) と出力される

fill_new($vols_of_LibA, $vols_of_LibB)

途中欠号のうち補充可能な新しい巻を得る。第一引数は補充を受ける図書館の雑誌所蔵編集形。第二引数は雑誌を受け渡す館の雑誌所蔵編集形である。

  print MARC::diffSerials::fill_new("3(),4-6,9,10()", "2-9,11(3-4)");
    -> 11(3-4) と出力される

middle_lack($vols)

途中欠号を得る

  print MARC::diffSerials::middle_lack("3(),4-6,9,10()");
    -> 3(),7-8,10() と出力される

marge_vols($vols_of_LibA, $vols_of_LibB)

２館の雑誌所蔵をマージする

  print MARC::diffSerials::marge_vols("3(),4-6,9,10()", "8-9,10(4)");
    -> 3(),4-6,8-9,10() と出力される

SEE ALSO

https://mbc.dl.itc.u-tokyo.ac.jp/

AUTHOR

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

COPYRIGHT AND LICENSE

Copyright (C) 2008 by Akira Maeda

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.