マーク
今すぐダウンロード

マーク ランキングとまとめ

マーク タグ

Perlモジュール 機械 読みやすい マーク 機械読み取り可能 カタログレコード

マーク 説明

MARCは、機械可読目録レコードを操作するためのPerl拡張です。 MARCは、機械可読目録records.SYNOPSIS使用MARCを操作するためのPerl拡張です。 ＃コンストラクタ$ X = MARC->新しいです（）; $ X = MARC->新（ "ファイル名"、 "FileFormatは"）; $ X-> openmarc（{ファイル=> "makrbrkr.mrc"、 'フォーマット' => "marcmaker"、インクリメント=> "5"、lineterm => "n" は、文字セット=>％char_hash}）。 $ record_num = $ X-> createrecord（{リーダー=> "00000nmm220万4500"}）。 ＃入力/出力操作$ Y = $ X-> nextmarc（10）。 ＃インクリメント$ X-> closemarc（）; $ X-> marc_count（）を印刷。 $ X-> deletemarc（{レコード=> '2'、フィールド=> '110'}）。 $ Y = $ X-> selectmarc（）。 ＃文字変換私％INC =％{$ X-> usmarc_default（）}; ＃MARCMaker入力文字セット私％OUTC =％{$ X-> ustext_default（）}。 ＃MARCBreaker出力文字セット＃データクエリ@records = $ X-> searchmarc（{フィールド=> "245"}）。 @records = $ X-> searchmarc（{フィールド=> "260"、サブフィールド=> "C"、正規表現=> "/ 19 ../"}）。 @records = $ X-> searchmarc（{フィールド=> "245"、notregex => "/ハックルベリー/ I"}）。 @results = $ X->のgetValue（{レコード=> '12'、フィールド=> '856'、サブフィールド=> 'U'}）。 ＃ヘッダとコントロールフィールド操作$ rldr = $ X-> unpack_ldr（$レコード）。印刷 "DESCが$ rldrある - > {DESC}"。次の場合（$ X-> bib_format（$レコード）EQ '雑誌を'）; $ RFF = $ X-> unpack_008（$レコード）。最後の場合（$ RFF - > { '日付1'} =〜/ 00 /または$ RFF - > { '日付2'} =〜/ 00 /）。 ＃データ修正$ X->なaddField（{レコード=> "2"、フィールド=> "245"、I1 => "1"、I2 => "4"、順序付け=> 'Y'、値=> }）。私の$ update245 = {フィールド=> '245'、記録=> 2、注文=> 'Y'};私@ u245 = $ X->にgetUpdate（$ update245）。 $ X-> deletemarc（$ update245）。 $ X->なaddField（$ update245、@ u245_modified）。 ＃出力$ Y = $ X->出力（{ '形式' => "marcmaker"、文字セット=>％OUTC}）。 $ X->出力（{ファイル=> ">> my_text.txt"、 'フォーマット' => "ASCII"、レコード=> 2}）。 $ X->出力（{ファイル=> "> my_marcmaker.mkr"、 'フォーマット' => "marcmaker"、nolinebreak => 'Y'、lineterm => 'N'}）。 $ X->出力（{ファイル=> "> titles.html"、 'フォーマット' => "HTML"、245 => "タイトル："}）。 ＃個々のMARCレコードを操作します。 @recs = $ X は、 grepの{$ _-> unpack_ldr（）0} @recs。 @LCs = grepの{$ _-> unp_ldr {DESC} EQ 'A' $ _->のgetValue（{フィールド=> '040'}）=〜/ DLCc_.DLC /} @recs。私の$ REC（@LCs）{印刷$ REC->出力（{形式=> 'USMARCを'}）のforeach。文字列として}＃操作。 REC私の$（@LCsを）{私の$ STRINGVAR = $ REC-> as_string（）foreachの。 $ STRINGVAR =〜S 、 XM。 ＃Xの手段は、「空白を無視して、＃埋め込まれたコメントを許可します」。 $ REC-> from_stringに（$のSTRINGVAR）。私の（$ I2、$記事）= $ STRINGVAR =〜/ 245 C _ /。（。）。（{0,9}）; $記事= SUBSTR（$記事、0、$ I2）$ i2の場合=〜/ D /; $ COMMON_ARTS {$記事}ない限り、「記事の$の記事は一般的ではありません」印刷。 } MARC.pmは、で読み取り操作、およびUSMARC形式で書誌レコードを出力するためのPerl 5のモジュールです。 MARC.pmが正しく動作するためにあなたは、Perl 5.004以上を持っている必要があります。それはPerlモジュールであるので、あなた自身のPerlスクリプトのいずれかからMARC.pmを使用しています。変換のソートかを確認するには、あなたが（詳細は名称「Webインターフェイス」以下のセクションを参照）MARCファイルをアップロードし、結果を取得することができますMARC.pmにWebインタフェースを試すことができる。しかし、得ることが可能ですすべての機能は、おそらくあなたのサーバやPC上でMARC.pmをインストールすることになるでしょう。 MARC.pmは両方のシングルとMARCレコードのバッチを処理することができます。バッチ内のレコード数の制限は、あなたが実行しているマシンのメモリ容量によって決定されます。メモリはあなたのための問題である場合MARC.pmはあなたが徐々にバッチからレコードを読み込むことができます。 MARC.pmまた、検索、削除、さらにはスクラッチからレコードを作成するためのさまざまなツールが含まれています。要件： ・Perl

マーク 関連ソフトウェア