Net :: ftp :: common Vereinfachen Sie gemeinsame Nutzungsverwendungen von net :: ftp
Jetzt downloaden

Net :: ftp :: common Ranking & Zusammenfassung

Net :: ftp :: common Stichworte

Perl-Modul Perl gemeinsam

Net :: ftp :: common Beschreibung

Vereinfachen Sie gemeinsame Nutzungsverwendungen von net :: ftp Net :: ftp :: Common ist ein Perl-Modul, das dazu bestimmt ist, die üblichen Anwendungen von net :: ftp zu einem one-line-one-argument-Affäre vorzunehmen. Mit anderen Worten, Sie haben 100% programmieren mit net :: ftp. Mit net :: ftp :: common haben Sie eine 95% ige Konfiguration und 5% Programmierung.Die Art, dass es eine Ein-Line-Angelegenheit macht, ist, dass die gemeinsame Presphase von Login, CD, Dateityp (binär / ASCII) ist für dich behandelt. Die Art und Weise, wie es die Verwendung von No-Argument-Affäre macht, ist das Ziehen von Dingen aus dem Hash, die es bei der Bauzeit konfiguriert haben. Sollten Argumente einer beliebigen API-Funktion geliefert werden, werden diese Änderungen an den Hash des Status des Objekts angewendet und von jeder zukunftsgeruchten API-Funktion verwendet, die sie möglicherweise benötigt. Moderage dieses Moduls soll unkompliziert und stereotypisiert sein. Die allgemeinen Schritte, um zu verwenden sind * Verwenden Sie ein Netz :: FTP :: Common API-Funktion Nizza, gut, dass Sie sich nicht zuerst anmelden müssen. Alle API-Funktionen loggen Sie sich automatisch ein und ändern Sie in das konfigurierte oder angegebene Verzeichnis. Manchmal ist es jedoch manchmal nützlich, zu sehen, ob Sie sich eigentlich anmelden können, bevor Sie versuchen, etwas anderes auf einer FTP-Site zu tun. Dies ist das einzige Mal, dass Sie die Login () API-Methode.Synopsis benötigen, unsere% netftp_cfg = (debug => 1, Timeout => 120); Unsere% Common_cfg = (# # Die ersten 2 Optionen, falls nicht vorhanden, # führen #, um sich auf .Netrc für den Login # Benutzer zu verlassen => 'Anonymous', Pass => 'tbone@cpan.org', # # andere Optionen # LocalFile => 'delete.zip' # Setup etwas für $ EZ-> Host => 'ftp.fcc.gov', # überschreiben ftp.microsoft.com Standard LocalDir => '/ tmp', remotedir => '/', # Automatische CD auf Remote-Maschine zum RemoteDIR-Typ => 'A' # -Orwrite I (Binary) Typ Standardeinstellung); # Nun gut !!! Ein Konstruktor ARG wird mit Bezug genommen, der # andere nach Wert. Das ist inkonsistent, aber immer noch ist es eine gute Sache. # Glauben Sie mir! Ich dachte darüber nach. Und ich habe einen guten Grund dafür: # Dies soll die geringste Änderung des Legacy Net :: FTP-Quellcodes ermöglichen. $ ez = net :: ftp :: common-> neu (\% common_cfg,% netftp_config); # können wir uns bei der Maschine anmelden? # HINWEIS: Es ist nie erforderlich, sich zuerst anzumelden, bevor Sie # net :: ftp :: Common-API-Funktionen anrufen. # Diese Funktion ist nur zur Überprüfung, um zu sehen, ob eine Maschine auftritt. # Es wird als Teil der API veröffentlicht, weil ich es nicht gefunden habe # Nützlich beim Schreiben von FTP-Skripts, die nach der # zuerst verfügbaren FTP-Site scannen, um zum Hochladen zu verwenden. Die genaue # Call-and-Return-Semantik für diese Funktion ist unten beschrieben und unten gerechtfertigt. $ EZ-> Login oder sterben Sie "Cant Login: $ @"; # Holen Sie sich einen Auflistung eines Remote-Verzeichnisses @listing = $ EZ-> ls; # Lassen Sie uns ein anderes Verzeichnis auflisten, Überreiten und Ändern des #-Standardverzeichnisses @listing = $ EZ-> ls (remotedir => '/ pub / rfcs'); # Lassen Sie uns den Standard-Dir auf mehreren Hosts auflisten @host_listings = map {$ ez-> ls (host => $ _)} @Host_list # Lassen Sie uns die Einträge mehrerer Verzeichnisse abrufen @Dir_Listings = Karte {$ EZ-> ls (RemoteDir = > $ _)} @Dir_list; # Lassen Sie uns ein detailliertes Verzeichnisliste erhalten ... (danke kevin!)% Listung = $ ez-> diff; # Hinweis Dies ist ein Hash, kein Array-Rückgabewert. ### Repräsentative Ausgabe 'test' => {'Besitzer' => 'root', 'monat' => 'jan', 'linktarget' => undef, 'Inode' => '1', 'Größe' => '6', 'Gruppe' => 'root', 'jahrortime' => '1999', 'Tag' => '27', 'Perm' => 'RW-R - R-'}, ' RANC '=> {' Besitzer '=>' root ',' monat '=>' OCT ',' LinkTarget '=> undef,' Inode '=>' 2 ',' Größe '=>' 4096 ',' Gruppe '=>' root ',' euportime '=> '00: 42', 'Tag' => '31' ',' Perm '=>' drwxr-xr-x '} # Erhalten Sie eine Datei von der Remote-Maschine $ EZ -> Get (remotefile => 'codex.txt', localfile => '/tmp/crypto.txt'); # Holen Sie sich eine Datei vom Remote-Computer, angeben DIR: $ EZ-> GET (RemoteFile => 'codex.txt', localdir => '/ tmp'); # HINWEIS Nun: Weil der lokale lokale Anruf eingestellt ist, ist es immer noch ein # Teil des Objektgeschäfts. Mit anderen Worten, dieses Beispiel wird versuchen, die heruntergeladene Datei in /tmp/tmp/crypto.txt zu speichern. # Besser zu sagen: $ EZ-> GET (RemoteFile => 'codex.txt', localdir => '/ tmp', localfile => ''); # Eine Datei an das Remote-Computer senden (* dont * Verwenden Sie Put!) $ EZ-> Senden (RemoteFile => 'codex.txt'); # Test für die Existenz der Datei auf dem Remote-Computer (mit = ~) @File = $ EZ-> Grep (Grep => QR / * TXT /); # Test für eine Datei auf dem Remote-Computer (mit EQ) $ EZ-> existiert (RemoteFile => 'benötigt-file.txt'); # HINWEIS Dies ist nicht mehr als Sie manuell anrufen: # (Skalar Grep {$ _ EQ 'benötigt-file.txt'} $ EZ-> ls)> 0; # Lassen Sie uns alle in Stderr geschriebenen Ausgabe abrufen, um ein Logfile zu erhalten. Meine $ EZ = net :: ftp :: common-> neu ({g, stderr => $ logfile},% netftp_cfg); Anforderungen: · Perl.

Net :: ftp :: common Zugehörige Software