NET :: FTP :: Común Simplificar usos comunes de NET :: FTP
Descargar ahora

NET :: FTP :: Común Clasificación y resumen

NET :: FTP :: Común Etiquetas

Módulo perl perla común

NET :: FTP :: Común Descripción

Simplifique los usos comunes de la red :: FTP NET :: FTP :: Comunes es un módulo PERL destinado a hacer los usos comunes de Net :: FTP una línea de una línea, sin argumento. En otras palabras, tiene 100% de programación con NET :: FTP. Con NET :: FTP :: Comunes tendrá una configuración del 95% y un 5% de programación. La forma en que lo convierte en un asunto de una línea es que la pre-fase común de inicio de sesión, CD, tipo de archivo (binario / ASCII) es manejado para ti. La forma en que hace uso de un asunto de no argumento es extraer las cosas del hash que lo configuró en el momento de construcción. Si los argumentos se suministran a cualquier función de la API, estos cambios se aplican al hash del estado del objeto y utilizados por cualquier función de API futura, que podría necesitarlas. El uso de este módulo está destinado a ser sencillo y estereotipado. Los pasos generales que se deben usar son: * Uso NET :: FTP :: Comunes * Defina la información de configuración FTP Esto se puede instalar dentro del script pero a menudo, esto se almacenará en un módulo para su uso en muchos otros scripts. * Use una función NET :: FTP :: Nota de la función API común Bueno, nunca tiene que iniciar sesión primero. Todas las funciones API se inician automáticamente y cambian al directorio configurado o especificado. Sin embargo, a veces es útil ver si realmente puede iniciar sesión antes de intentar hacer algo más en un sitio FTP. Esta es la única vez que necesitará el método de inicio de sesión () API.Synopsis nuestro% netftp_cfg = (depuración => 1, tiempo de espera => 120); Nuestro% common_cfg = (# # # # las primeras opciones, si no está presente, # lleva a confiar en .netrc para login # usuario => 'anónimo', pase => 'tbone@cpan.org', # # Otras opciones # localfile => 'eliminar.zip' # configurar algo para $ ez-> obtener host => 'ftp.fcc.gov', # sobrescribir ftp.microsoft.com predeterminado localdir => '/ tmp', remotedir => '/', # CD automático en la máquina remota a REMOTEDIR TIPO => 'A' # sobrescribir i (binario) Tipo predeterminado); # ¡¡¡BUENA NOTA!!! Un constructor arg es aprobado por referencia, el otro # por valor. Esto es inconsistente, pero aún así es algo bueno. # ¡Créame! Pensé en esto. Y tengo una buena razón para ello: # Esto es para permitir la menor modificación del Código Fuente de la NET :: FTP. $ EZ = NET :: FTP :: Común-> Nuevo (\% common_cfg,% netftp_config); # ¿Podemos iniciar sesión en la máquina? Nota: Nota: nunca es necesario iniciar sesión primero antes de llamar a # Net :: FTP :: Funciones de API comunes. # Esta función es solo para ver si hay una máquina. # Se publica como parte de la API porque la he encontrado # útil al escribir scripts FTP que escanean para el primer sitio FTP disponible para la carga. La semántica de # llamada y devolución exacta para esta función se describe # y se justifica a continuación. $ EZ-> Iniciar sesión o morir "No puedo iniciar sesión: $ @"; # Obtenga un listado de un directorio remoto @Listing = $ EZ-> LS; # Vamos a enumerar un directorio diferente, montar en exceso y cambiar el directorio # predeterminado @Listing = $ EZ-> LS (Remotedir => '/ pub / rfcs'); # Vamos a enumerar la directa dir en varios hosts @host_listings = map {$ ez-> ls (host => $ _)} @host_list # Ve a obtener los listados de varios directorios @dir_listings = map {$ EZ-> LS (Remotedir = > $ _)} @DIR_LIST; # Vamos a obtener un listado de directorio detallado ... (Gracias Kevin!)% Listado = $ EZ-> Dir; # Nota Este es un hash, no un valor de retorno de la matriz. ### SALIDA REPRESENTADOR 'TEST' => {'propietario' => 'raíz', 'mes' => 'jan', 'linktarget' => UNDEF, 'inode' => '1', 'tamaño' => '6', 'grupo' => 'raíz', 'anhelo' => '1999', 'Day' => '27', 'Perm' => '-RW-R - R--'}, ' RANC '=> {' propietario '=>' raíz ',' mes '=>' oct ',' linktarget '=> Undef,' inode '=>' 2 ',' tamaño '=>' 4096 ',' Grupo '=>' raíz ',' anhelo '=> '00: 42', 'Day' => '31', 'Perm' => 'DRWXR-XR-X'} # Obtenga un archivo de la máquina remota $ EZ -> Obtener (RemoteFile => 'Codex.txt', localfile => '/tmp/crypto.txt'); # Obtenga un archivo de la máquina remota, especificando Dir: $ EZ-> Obtenga (RemoteFile => 'Codex.txt', localdir => '/ tmp'); # Nota Bueno: Debido a que la llamada previa se establece el archivo local, sigue siendo una parte de la tienda de objetos. En otras palabras, este ejemplo intentará # para almacenar el archivo descargado en /tmp/tmp/crypto.txt. # Mejor decir: $ EZ-> Obtener (remotaFile => 'Codex.txt', localdir => '/ tmp', localfile => ''); # Envíe un archivo a la máquina remota (* NOTT * Use PUT!) $ EZ-> Enviar (RemoteFile => 'Codex.txt'); # Prueba para la existencia de un archivo en la máquina remota (usando = ~) @file = $ ez-> grep (grep => qr / * txt /); # Prueba para un archivo en la máquina remota (usando EQ) $ EZ-> Existe (RemoteFile => 'NECESITADO-FILE.TXT'); # Nota que esto no es más de lo que llamo manualmente: # (SCALAR GREP {$ _ EQ 'NECESITADO-FILE.TXT'} $ EZ-> LS)> 0; # Vamos a obtener toda la salida escrita en STDERR para ir a un logfile My $ EZ = Net :: FTP :: comuner-> nuevo ({g, stderr => $ logfile},% netftp_cfg); Requisitos: · Perl

NET :: FTP :: Común Software relacionado