Tengo un archivo zip X y me gustaría extraer un solo archivo, ubicado en x/x/x/file.txt. ¿Cómo hago esto usando Archive::Zip y Perl?¿Cómo puedo extraer un solo archivo de un archivo ZIP utilizando Perl's Archive :: Zip?
Puede utilizar el método extractMember:
extractMember ($ memberOrName [, $ extractedName])
Extracto del miembro dado, o que coincida con su nombre y extraerlo. Devuelve undef si el miembro no existe en este Zip. Si se proporciona un segundo arg opcional, utilícelo como el nombre del miembro extraído. De lo contrario, el nombre de archivo interno del miembro se usa como el nombre del archivo o directorio extraído. Si pasa $ extraName, debe estar en el formato del sistema de archivos local. Todos los directorios necesarios serán creados. Devuelve AZ_OK en caso de éxito.
Consulte Archive::Zip::FAQ, "extraer archivo (s) de un Zip". La versión actual del archivo de ejemplo está en línea en http://cpansearch.perl.org/src/ADAMK/Archive-Zip-1.30/examples/extract.pl.