마크 MARC는 기계가 읽을 수있는 카탈로그 기록을 조작하는 PERL 확장입니다.
지금 다운로드

마크 순위 및 요약

마크 태그

Perl 모듈 기계 읽을 수있는 마크 기계 판독 카탈로그 기록

마크 설명

MARC는 기계가 읽을 수있는 기록을 조작하는 PERL 확장입니다. MARC는 기계가 읽을 수있는 카탈로그 링 레코드를 조작하는 Perl 확장자입니다. Synopsis 사용 Marc; # constructors $ x = marc-> new (); $ x = marc-> new ( "filename", "fileformat"); $ x -> openmarc ({file => "makrbrkr.mrc", '형식'=> "marcmaker", 증가 => "5", lineterm => "n", charset => % char_hash}); $ record_num = $ x -> createRecord ({lister => "00000nmm 2200000 A 4500"}); # 입력 / 출력 작업 $ y = $ x -> nextmarc (10); # 증가 $ x> closemarc (); $ x> marc_count () 인쇄; $ x -> deleteMARC ({record => '2', field => '110'}); $ y = $ x -> selectmarc (; # 문자 번역 My % Inc = % {$ x -> usmarc_default ()}; # MARCMAKER 입력 CHARSET MY % OUTC = % {$ X-> USTEXT_DEFAULT ()}; # MarcBreaker 출력 Charset # 데이터 쿼리 @Records = $ x -> searchmarc ({field => "245"}); @records = $ x -> searchmarc ({field => "260", subfield => "c", regex => "/ 19 ../"}); @records = $ x -> searchmarc ({field => "245", notregex => "/ huckleberry / i"}); @Results = $ x -> getValue ({record => 12 ', field =>'856 ', subfield =>'u '}); # 헤더 및 제어 필드 작업 $ rldr = $ x> unpack_ldr ($ 레코드); 인쇄 "DESC는 $ RLDR -> {DESC}"; 다음 ($ x -> bib_format ($ 레코드) EQ 'SERIALS'); $ rff = $ x -> unpack_008 ($ 레코드); 마지막 ($ rff -> { 'date1'} = ~ / 00 / 또는 $ rff -> { 'date2'} = ~ / 00 /); # 데이터 수정 $ x-> addField ({record => "2", field => ""245 ", i1 =>" "1", i2 => "4", 주문 => 'y', value => ]}); MY $ Update245 = {field => '245', record => 2, ordered => 'y'}; my @ u245 = $ x -> getUpdate ($ update245); $ x -> deleteMARC ($ update245); $ x -> AddField ($ update245, @ u245_modified); # $ y = $ x -> 출력 ({ '형식'=> "marcmaker", charset => % OUTC}); $ X-> 출력 ({file => ">> my_text.txt", 'format'=> "ascii", record => 2}); $ x -> 출력 ({file => "> my_marcmaker.mkr", '형식'=> "marcmaker", nolinebreak => 'y', lineterm => 'n'}); $ x -> 출력 ({file => "> titles.html", '형식'=> "html", 245 => "title :"}); # 개별 마크 레코드의 조작. @recs = $ x ; grep {$ _> unpack_ldr () 0} @Recs; @lcs = grep {$ _-> UNP_LDR {desc} EQ 'a'$ _-> getValue ({field => '040'}) = ~ / dlcc_.dlc /} @Recs; foreach my $ rec (@lcs) {$ rec-> 출력 ({format => 'usmarc'}); } # 문자열로 조작. foreach my $ rec (@lcs) {my $ stringvar = $ rec-> as_string (); $ stringvar = ~ s xm; # x는 '무시 공백을 무시하고 # 임베디드 주석을 허용합니다. $ rec-> from_string ($ stringvar); My ($ i2, $ Article) = $ stringvar = ~ / 245. (.) c _. (. {0,9}) /; $ Article = substr ($ 8, 0, $ i2) $ i2 = ~ / d /; $ common_arts {$ article}; } MARC.PM은 USMARC 형식의 서지 레코드를 읽고 조작하고 출력하는 PERL 5 모듈입니다. marc.pm이 제대로 작동하려면 Perl 5.004 이상이 필요합니다. Perl 모듈이므로 자신의 Perl 스크립트 중 하나에서 marc.pm을 사용합니다. 어떤 종류의 변환이 가능한지 확인하려면 marc.pm에 대한 웹 인터페이스를 시도 할 수 있으므로 Marc 파일을 업로드하고 결과를 검색 할 수 있습니다 (자세한 내용은 "웹 인터페이스"아래의 섹션 참조). 그러나, 전체 기능 서버 또는 PC에 marc.pm을 설치하려는 경우가 있습니다. MARC.PM은 MARC 레코드의 단일 및 배치를 모두 처리 할 수 있습니다. 배치의 레코드 수의 한계는 실행중인 기기의 메모리 용량에 의해 결정됩니다. MEMOR.PM에 대한 메모리가 문제 인 경우 배치에서 점차적으로 레코드를 읽을 수 있습니다. MARC.PM에는 스크래치로부터 레코드를 검색, 제거 및 조성하기위한 다양한 도구가 포함되어 있습니다. 요구 사항 : · Perl.

마크 관련 소프트웨어