NET :: FTP :: gewone Gemeenschappelijke gebruik van NET :: FTP vereenvoudigen
Download nu

NET :: FTP :: gewone Rangschikking & Samenvatting

NET :: FTP :: gewone Tags

Perl-module perl gewoon

NET :: FTP :: gewone Beschrijving

Vereenvoudig gemeenschappelijke usages van NET :: FTP NET :: FTP :: Gemeenschappelijk is een PERL-module bedoeld om het gemeenschappelijk gebruik van NET :: FTP een one-line, no-argument-affaire te maken. Met andere woorden, u hebt 100% programmeren met NET :: FTP. Met NET :: FTP :: gewone heeft u 95% configuratie en 5% programmering. De manier waarop het een one-line-aangelegenheid maakt, is dat de gemeenschappelijke pre-fase van login, CD, bestandstype (Binary / ASCII) is voor u afgehandeld. De manier waarop het gebruik maakt van een no-argument-affaire is door dingen uit de hash te trekken die het in de bouwtijd heeft geconfigureerd. Mochten argumenten worden geleverd aan elke API-functie, dan worden deze wijzigingen aangebracht op de hash van de toestand van het object en worden gebruikt door een toekomstige API-functie die ze mogelijk nodig hebben. Beschermde van deze module is bedoeld om rechtlijnig en stereotype te zijn. De algemene te gebruiken stappen zijn: * Gebruik NET :: FTP :: Gemeenschappelijk * Definieer FTP-configuratie-informatie Dit kan in het script worden geïnlaineerd, maar vaak wordt dit in een module opgeslagen voor gebruik in veel andere scripts. * Gebruik een NET :: FTP :: Common API-functie NODIG DIE JE NOOIT EERSTE HEBBEN MOGEL MOETEN. Alle API-functies logt u automatisch in en wijzigen in de geconfigureerde of opgegeven map. Soms is het echter handig om te zien of u eigenlijk kunt inloggen voordat u probeert iets anders op een FTP-site te doen. Dit is de enige keer dat u de login () API-methode nodig hebt.Synopsis Onze% NETFTP_CFG = (debug => 1, time-out => 120); Ons% Common_CFG = (# # De eerste 2 opties, zo niet aanwezig, # leiden om te vertrouwen op .NETC voor login # gebruiker => 'anonymous', pass => 'tbone@cpan.org', # # andere opties # LocalFile => 'Verwijderen.ZIP' # SETUP IETS VOOR $ EZ-> GET HOST => 'FTP.FCC.GOV', # Overschrijf ftp.microsoft.com standaard localdir => '/ TMP', REMOTEDIR => '/', # Automatische CD op externe machine aan Remotedir Type => 'A' # Overschrijven I (binary) type standaard); # Noot goed !!! Eén constructeur-Arg wordt door verwijzing door verwijzing naar de # andere per waarde. Dit is inconsistent, maar toch is het een goede zaak. # Geloof me! Ik dacht hierover. En ik heb een goede reden voor het: # Dit is om de minste modificatie van de netto-netto :: FTP-broncode toe te staan. $ EZ = NET :: FTP :: Gemeenschappelijk-> Nieuw (\% Common_CFG,% NETFTP_CONFIG); # Kunnen we inloggen op de machine? # Opmerking: het is nooit nodig om eerst in te loggen voordat u # netto :: ftp :: gemeenschappelijke API-functies. # Deze functie is alleen voor het controleren of een machine op is. # Het wordt gepubliceerd als onderdeel van de API omdat ik het # handig heb gevonden bij het schrijven van FTP-scripts die scannen voor de # Eerste beschikbare FTP-site om te gebruiken voor upload. De exacte # call-and-return semantiek voor deze functie zijn beschreven # en hieronder gerechtvaardigd. $ ez-> login of sterven "kan niet inloggen: $ @"; # Krijg een lijst met een afstandsbediening @listing = $ EZ-> LS; # Laten we een andere directory, overrijden en wijzigen van de # Standeldirectory @listing = $ EZ-> LS (REMOTEDIR => '/ PUB / RFCS'); # Laten we de standaard dir op verschillende hosts @Host_Listings = kaart {$ ez-> ls (host => $ _)} @Host_List # laten we de vermeldingen van verschillende mappen @dir_listings krijgen = kaart {$ ez-> ls (remotedir = > $ _)} @dir_list; # Laten we een gedetailleerde directory notering krijgen ... (bedankt Kevin!)% Listing = $ EZ-> DIR; # Let op dit is een hash, geen array retourwaarde. ### Representative Output 'Test' => {'eigenaar' => 'root', 'maand' => 'jan', 'linktarget' => undef, 'inode' => '1', 'maat' => '6', 'Groep' => 'Root', 'Jaarschattig' => '1999', 'Day' => '27', 'Perm' => '-RW-R - R--'} ' RANC '=> {' eigenaar '=>' root ',' maand '=>' okt ',' linktarget '=> undef,' inode '=>' 2 ',' maat '=>' 4096 ',' groep '=>' root ',' YearStude '=> '00: 42', 'Day' => '31', 'Perm' => 'DRWXR-XR-X'} # Krijg een bestand van de externe machine $ EZ -> Get (RemoteFile => 'Codex.txt', localfile => '/tmp/crypto.txt'); # Krijg een bestand van de externe machine, specificeert DIR: $ EZ-> GET (REMOTEFILE => 'CODEX.TXT', LOCKEIR => '/ TMP'); # Noot goed: omdat de vorige oproep localfile is, is het nog steeds een # deel van de objectwinkel. Met andere woorden, dit voorbeeld zal proberen # om het gedownloade bestand in /tmp/tmp/crypto.txt op te slaan. # Beter om te zeggen: $ ez-> krijgen (remoteFile => 'codex.txt', localdir => '/ tmp', localfile => ''); # Stuur een bestand naar de externe machine (* niet * Gebruik Put!) $ EZ-> Verzenden (RemoteFile => 'Codex.txt'); # test voor het bestaan van een bestand op de externe machine (met = ~) @File = $ ez-> grep (grep => qr / * txt /); # Test voor een bestand op de externe machine (met behulp van EQ) $ EZ-> bestaat (RemoteFile => 'Needed-file.txt'); # Opmerking Dit is niet meer dan u handmatig belt: # (Scalaire grep {$ _ eq 'nodig-bestand.txt'} $ EZ-> LS)> 0; # Laten we alle output krijgen geschreven naar Stderr om een logfile mijn $ EZ = net :: ftp :: gemeenschappelijk-> nieuw ({g, stderr => $ logfile},% netftp_cfg); Vereisten: · Perl

NET :: FTP :: gewone Gerelateerde software