Nudo NoID es un módulo PERL que contiene rutinas para menta y administrar buenos identificadores opacos.
Descargar ahora

Nudo Clasificación y resumen

Nudo Etiquetas

Módulo perl menta rutinas rutinas de menta Identificadores opacos noide

Nudo Descripción

NoID es un módulo PERL que contiene rutinas para menta y administrar buenos identificadores opacos. NoID es un módulo PERL que contiene rutinas para MINT y administrar identificadores opacos agradables. Sessynopsis use Niide; # Rutinas de importación en un script de Perl $ DBREPORT = NOID :: DBCreate (# Crear base de datos de Minter y $ DBDIR $ DBDIR, $ contacto, # Informe sobre sus propiedades; $ Póngase en contacto con $ Plantilla, $ TERM, # es una cadena que identifica al operador $ Naan, $ NAA, # (información de autenticación); el $ subnaA); # Informe es imprimible $ NoID = NOID :: DBOPEN ($ DBNAME, $ BAÑOS); # Abra un Minter, opcionalmente $ banderas = 0 | Db_rdonly; # en modo de lectura solo en modo :: MINT ($ NOID, $ contacto, $ pimienta); # Generar un identificador NoID :: DBCLOSE ($ NOID); # Cerrar Minter cuando HECHO NOID :: Checkchar ($ ID); # Si la identificación termina en +, reemplace con nuevo cheque # char y devuelva la identificación completa de ID completa, de lo contrario, ID # si está actualmente Char Char Char válido, de lo contrario, Retorno # 'UNDEF' NOID :: Validate ($ NoID, # Compruebe que las identificaciones se ajusten a la plantilla ( "-" $ plantilla, # significa usar la plantilla de Minter); devuelve @ids); # matriz de cadenas correspondientes, errores # comenzando con "iderr:" $ n = noid :: BIND ($ NOID, $ contacto, # Datos de enlace al identificador; Establecer $ validate, $ cómo, # $ validate a 0 si id. 'T $ ID, $ ELEM, $ valor); # Necesidad de conformar con una plantilla Neid :: Note ($ Niño, $ contacto, clave clave, $ valor); # Añadir una nota interna nota nota :: Fetch ($ Niol, $ verbosa, # Fetch Datos enlazados; Establecer $ verbosa $ ID, @ELEMS); # a 1 para devolver las etiquetas Imprimir NoID :: DBInFO ($ Niño, # Obtén información de MINTER; NIVEL DE NIVEL $); # BREVE (Predeterminado), Full o Dump NoID :: GETNOID ($ NOID, $ VARNAME); # Obtener arbitrario llamado Interno # Variable Noid :: Sostenga ($ Niño, $ contacto, # Place o Soltar Hold; Devolver $ on_off, @ids); # 1 SOBRE EL ÉXITO, 0 EN ERROR NOID :: HOLD_SET ($ NOID, $ ID); Noid :: Hold_Release ($ Niide, $ ID); Niod :: parse_template ($ plantilla, # plantilla de lectura para errores, devolver $ prefijo, $ máscara, # Tamaño del espacio de nombres (Nolimit = Inervado) $ Gen_Type, # o 0 en el error; $ MENSAJE, $ GEN_TYPE, $ MENSAJE); # $ PREFIX, y $ máscara son los params de salida noid :: cola ($ silla, $ contacto, # retorno de cadenas para intentos de cola $ cuando, @ids); # (Fallos comienzan "Error:") Noide :: N2XDIG ($ NUM, $ máscara); # Mostrar identificador a juego ord. $ NUM NOID :: MUESTRA ($ NOID, $ NUM); # Mostrar identidad aleatoria. Menos de $ NUM NOID :: SCOPE ($ NOID); # Mostrar rango de identificaciones dentro de MINTER PRINT NOID :: ERRMSG ($ NOID, $ RESET); # Imprimir mensaje de la llamada fallida $ reaponada = UNDEF | 1; # Use 1 para borrar el mensaje de error Buffer HIGHID NOID :: AddMSG ($ NoID, $ Mensaje); # Añadir mensaje a un mensaje de error BUFFER NOID :: LOGMSG ($ NOID, $ MENSAJE); # Escribir mensaje a Minter Logritements: · Requisitos de Perl: · Perl

Nudo Software relacionado