Finanzas :: MICR :: LINEPARSER Validate y analiza una cadena de cheques MICR
Descargar ahora

Finanzas :: MICR :: LINEPARSER Clasificación y resumen

Finanzas :: MICR :: LINEPARSER Etiquetas

Módulo perl analizador Micrófono cuerda Analizador de cadena de micro Validar la cadena de MICR

Finanzas :: MICR :: LINEPARSER Descripción

Validar y analizar una cadena de cheques MICR Finanzas :: MICR :: LineParser es un módulo PERL que puede analizar un código de línea de MICR en partes. Además, díganos si un dril de cadena contiene un código MICR. Si tiene una cadena y desea analizarlo como una línea de cheques MICR, esto es útil. Actualmente estoy usando este módulo para que la exploración de Office en documentos y el uso de GoCR, obtengo una cadena de la imagen de verificación escaneada. Luego, con este módulo, analizo la línea de MICR, si está allí. Nombro los documentos para archivar después del Código MICR. Obviamente con el escaneo, los símbolos de MICR no tienen equivalentes Unicode, por lo que varias compañías han cambiado los símbolos para contrapartes alfa. Este módulo acepta que los símbolos son más de un carácter. Este es Beacuse GoCR no puede agrupar algo como '||' 'en un personaje. Es posible que haya entrenado su software OCR para reemplazar a aquellos con algo como TT (tránsito, que parece | :) y UUU (en nosotros, que se ve como || "). Este módulo se puede decir en la instanciación, que los símbolos son algo distinto de los valores predeterminados. Por ejemplo, entrené mi GoCR para cambiar || "a CCC y | A AA, así que comienzo una instancia de objeto así: My $ MICR = NUEVO FINANCIANDO :: MICR :: Lineparser ({string => $ string_from_gocol, on_us_symbol => 'Ccc', transit_symbol => 'aa', dash_symbol => 'ddd', ammount_symbol => 'xxx',}); De forma predeterminada, estos se cambian a: * Símbolo de tránsito: T * Símbolo de AMMOUNT: X * ON -US SÍMBOLO: U * Dash Symbol: DTHA es, cuando consulta métodos como $ MICR-> ONU_US, la devolución ON_US, el valor en el mismo, es U y no CCC.As de esta época, si desea cambiar los símbolos de nuevo a algo de lo contrario, depende de usted manejar la salida.Synopsis Use Finanzas :: MICR :: LineParser; My $ MICR = Finanzas :: MICR :: LineParser-> Nuevo ({string => $ string}); imprimir "es esto un ¿Código MICR? ". $ MICR-> Válido; imagínelo escaneado en un cheque con un escáner estándar. Y usó algunos software de OCR para intentar extraer el texto de él. Podría tener problemas de Miriad, durble, etc., pero es lo que tenemos Trabajar con. Así que .. Vamos a crear un pequeño script de CLI que lleva potencialmente dure y nos dice si un código MICR está ahí y algo sobre ello. Micrline.pl: #! / usr / bin / perl -w usa estricto; usar finanzas: : MICR :: LINEPARSER; MY $ STRING = $ ARGV ; $ cadena o muere ('falta arg'); My $ MICR = NUEVO FINANCIA :: MICR :: LineParser ({string => $ string}); si ($ MICR-> Válido) {Imprimir "Una línea válida de MICR está presente:". $ MICR-> MICR. " "; Imprimir" El tipo de cheque es: ". $ MICR-> get_check_type". "; Imprimir" El número de enrutamiento es: ". $ MICR-> enrutando_number". "; Imprimir" El número de cheque es: ". $ MICR-> Check_Number". "; Estado de impresión": ". $ MICR-> estado;} Elsif ($ MICR-> is_unknown_Check) {Imprimir" No veo una línea de MICR válida completa aquí, pero esto es lo que puedo hacer coincidir "." Si Este es un cheque de negocios: ". $ MICR-> MICR." "; Estado de impresión": ". $ MICR-> estado;} else {imprimir" Esto es drble para mí. "; Estado de impresión": ". $ MICR-> estado;} Ahora en su terminal: # Perl ./micrline.pl u2323424u_t234244t_2342424u Requisitos: · Perl

Finanzas :: MICR :: LINEPARSER Software relacionado