Foro - Perl en Español

¿Qué tal? Estaba trabajando sobre un programa en Perl que logre crear un archivo indexado con berkeley DB.

Estaba viendo el código y me encontré con 2 líneas que por más que investigo no logro captarles.

La primera : use DB_File;

Según yo, tendría que usar un archivo con ese nombre, ¿no?, pero no existe o no lo logro ver.

La segunda línea:
$db_obj=tie(%Mihash,'DB_File',$ArchivoSalidaDBM,O_CREAT|O_RDWR,0644,$DB_BTREE) || die ("Nombre:$Error{'9000'} $ArchivoSalidaDBM $!");

En la parte de tie() aparecen varios atributos que no logro captar. Espero me pudiesen ayudar, porque no lo he logrado entender.

Por su atención, gracias.

La primera línea
se refiere a que el programa va a hacer uso de los recursos aportados por el módulo DB_File. El lugar donde se encuentra el módulo, poco importa, mientras el programa lo encuentre. Si realmente necesitas saber dónde está, prueba con este programa de una línea:


Y la siguiente


Lo que hace la función tie() es "unir" a la variable %Mihash con el fichero $ArchivoSalidaDBM. Eso quiere decir que todo lo que hagas con %Mihash quedará grabado en el fichero, en formato DBM. Internamente, la forma de guardar los registros será un árbol binario ($DB_BTREE). En caso de que el fichero $ArchivoSalidaDBM no exista, la bandera O_CREAT indica que será creado. Luego, con O_RDWR indica que el fichero será abierto en modo lectura/escritura.

En caso de que tie() falle, se lanzará un die(), donde nos informará del fallo.

explorer escribiste:Si realmente necesitas saber dónde está, prueba con este programa de una línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using bash Syntax Highlighting

perl -le 'use DB_File; print $INC{"DB_File.pm"}, "\n" '

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Otra forma de ver dónde está un módulo es



En realidad, esto lo que busca es el fichero que contiene la documentación del módulo, pero como en el 99% de los casos, este fichero es el propio .pm, suele funcionar.