مارك مارك هو امتداد بيرل لمعالجة سجلات الفهرسة المقروءة الآلة.
التحميل الان

مارك الترتيب والملخص

مارك العلامات

الوحدة النمطية بيرل آلة مقروء مارك آلة قابلة للقراءة سجلات الفهرسة

مارك وصف

مارك هو امتداد بيرل لمعالجة سجلات فهرسة آلية مقروءة. مارك هو امتداد بيرل لمعالجة السجلات الفهرسة المقروءة الآلية. # منشئون $ x = marc-> جديد ()؛ $ x = marc-> جديد ("اسم الملف"، "fileformat")؛ $ x-> OpenMarc ({file => "makrbrrkr.mrc"، "format '=>" marcmaker "، زيادة =>" 5 "، lineterm =>" n "، charset => char_hash})؛ $ Record_Num = $ X-> CRATERECORD ({{{{seader => "00000nmm 2200000 a 4500"})؛ # عمليات الإدخال / الإخراج $ y = $ x-> nextmarc (10)؛ # الزيادة $ X-> closeMarc ()؛ طباعة $ x-> marc_count ()؛ $ x-> deletemarc ({record => '2'، field => '110'})؛ $ y = $ x-> selectmarc ()؛ # ترجمة الشخصية الخاصة بي INC = {$ x-> usmarc_default ()}؛ # Marcmaker إدخال إدخال بلدي outc = {$ x-> ustext_default ()}؛ # Marcbreakercer إخراج 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 '، الحقل =>' 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 ({سجل => "2"، الحقل => "245"، i1 => "1"، i2 => "4"، أمرت => 'y'، القيمة => })؛ بلدي $ Update245 = {field => '245'، سجل => 2، طلب => 'y'}؛ بلدي @ u245 = $ X-> getupdate ($ Update245)؛ $ x-> deletemarc ($ Update245)؛ $ X-> Addfield ($ Update245، @ u245_modified)؛ # مخرجات $ y = $ x-> الإخراج ({'format' => "marcmaker"، charset => outc})؛ $ x-> الإخراج ({file => ">> my_text.txt"، "تنسيق" => "ASCII"، سجل => 2})؛ $ x-> الإخراج ({file => "> my_marcmaker.mkr"، "تنسيق" => "marcmaker"، noleinebreak => 'y'، lineterm => 'n'})؛ $ X-> الإخراج ({file => "> titles.html"، "تنسيق" => "HTML"، 245 => "العنوان:")؛ # التلاعب بسجلات مارك الفردية. @ Recs = $ ؛ Grep {$ _-> unpack_ldr () 0 recs؛ LCS = Grep {$ _-> unp_ldr {desc} eq 'a' A $ _-> getvalue ({field => '040'}) = ~ / dlcc_dlc /} Foreach My $ REC (LCS) {طباعة $ REC-> الإخراج ({format => 'usmarc'})؛ } # التلاعب كسلاسل. foreach My $ REC (LCS) {My Stringvar $ = $ REC-> AS_STRING ()؛ $ stringvar = ~ s XM؛ # X تعني "تجاهل Whitespace والسماح # التعليقات المدمجة". $ rec-> from_string ($ stringvar)؛ بلدي ($ i2، مقالة $) = $ stringvar = ~ / 245. (.) ج _. (. {0،9}) /؛ $ مقالة = Substr (مقالة $، 0، $ I2) إذا $ I2 = ~ / D /؛ طباعة "مقالة المادة $ ليست شائعة" ما لم $ common_arts {$ المقال}؛ } Marc.PM هو وحدة Perl 5 للقراءة، والتلاعب وإخراج السجلات الببليوغرافية بتنسيق USMARC. ستحتاج إلى الحصول على Perl 5.004 أو أكبر ل Marc.PM للعمل بشكل صحيح. نظرا لأن وحدة بيرل تستخدمها Marc.PM من أحد البرامج النصية الخاصة بك في بيرل. لمعرفة ما هي أنواع التحويلات الممكنة، يمكنك تجربة واجهة ويب إلى Marc.PM والتي ستتيح لك تحميل ملفات MARC واسترداد النتائج (للحصول على التفاصيل راجع القسم أدناه بعنوان "واجهة الويب"). ومع ذلك، للحصول على وظائف كاملة سوف ترغب في تثبيت marc.pm على الخادم أو جهاز الكمبيوتر الخاص بك. Marc.PM يمكن التعامل مع كل من سجلات مارك واحد. يتم تحديد الحد الأقصى لعدد السجلات الموجودة في دفعة واحدة من خلال سعة الذاكرة في الجهاز الذي تقوم بتشغيله. إذا كانت الذاكرة مشكلة بالنسبة لك، فسوف تسمح لك Marc.PM بالقراءة في السجلات من دفعة تدريجية تدريجيا. يشمل Marc.PM أيضا مجموعة متنوعة من الأدوات للبحث والإزالة وحتى إنشاء سجلات من الصفر. متطلبات: perl.

مارك برامج ذات صلة