net :: xftp.

NET :: XFTP´Â NET :: FTP ¶Ç´Â NET :: XFTP¿Í ÇÔ²² »ç¿ëÇϱâÀ§ÇÑ °øÅë ·¦ÆÛ ±â´ÉÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

net :: xftp. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Jim Turner
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~jlishev/WebTools-1.27/lib/modules/WTJSprite.pm

net :: xftp. ű×


net :: xftp. ¼³¸í

NET :: XFTP´Â NET :: FTP ¶Ç´Â NET :: XFTP¿Í ÇÔ²² »ç¿ëÇϱâÀ§ÇÑ °øÅë ·¦ÆÛ ±â´ÉÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. NET :: XFTP´Â net :: ftp ¶Ç´Â net :: xftp.synopsis »ç¿ë Net :: xftp; net :: xftp; ÇÊ¿äÇÑ ÇÁ·ÎÅäÄÝ ¸ðµâ¿¡ ´ëÇÑ Å×½ºÆ®. Á×À» "..ÀÌ ¼­¹ö ¿¬°áÀº net :: sftp!" (net :: xftp-> havesftp ()); # ¿ø°Ý È£½ºÆ®¿¡ ´ëÇÑ »õ ¿¬°áÀ» ÇØ°áÇϽʽÿÀ. $ ftp = net :: xftp-> new ( 'sftp', "shest.host.name", debug => 0, user => 'userid', password => 'opensesme') ¶Ç´Â die "¸¦ ¿¬°áÇÒ ¼ö ¾ø½À´Ï´Ù. host.name : $ @ "; # ½º½º·Î¿¡ "·ÎÄÃ"(½Ã¹Ä·¹ÀÌ¼Ç µÈ ¿¬°á)À» ¸¸µå½Ê½Ã¿À. $ ftp = net :: xftp-> new (); # ÇöÀç ÀÛ¾÷ µð·ºÅ丮¸¦ ¿ø°Ý È£½ºÆ®¿¡¼­ º¯°æÇϽʽÿÀ. $ ftp-> cwd ( '/ pub') ¶Ç´Â ´ÙÀÌ "´Â ÀÛ¾÷ µð·ºÅ丮¸¦ º¯°æÇÒ ¼ö ¾ø½À´Ï´Ù", $ ftp-> message (); # ¿ø°Ý È£½ºÆ®ÀÇ ÇöÀç ÀÛ¾÷ µð·ºÅ丮¸¦ ´©¸¨´Ï´Ù. MY $ current_remote_path = $ ftp-> pwd (); # "/ pub"ÆÄÀÏ ¹× ÇÏÀ§ µð·ºÅ丮 ¸ñ·ÏÀ» ´©¸¨´Ï´Ù. @filesandsubfolders = $ ftp-> ls ( '/ pub'); # ÀÚ¼¼ÇÑ (ls -l) ÆÄÀÏ ¹× ÇÏÀ§ µð·ºÅ丮 ¸ñ·ÏÀ» ´©¸¨´Ï´Ù. my @ls_l_details = $ ftp-> dir ( '/ pub'); # »õ ÇÏÀ§ µð·ºÅ丮¸¦ ¸¸µì´Ï´Ù. $ ftp-> mkdir ( 'myownFolder') ¶Ç´Â DIE "´Â subdirectory¸¦ ¸¸µé ¼ö ¾ø½À´Ï´Ù", $ ftp-> message (); # ºó ÇÏÀ§ µð·ºÅ丮¸¦ Á¦°ÅÇϽʽÿÀ. $ ftp-> rmdir ( 'myownFolder') ¶Ç´Â DIE "´Â ÇÏÀ§ µð·ºÅ丮", $ ftp-> message ()¸¦ Á¦°Å ÇÒ ¼ö ¾ø½À´Ï´Ù. # ¿ø°Ý ¼­¹ö¿¡¼­ ÆÄÀÏÀÇ ³»¿ëÀ» ´©¸¨´Ï´Ù. $ ftp-> get ( 'remote.file', 'local.file') ¶Ç´Â DIE "get failed", $ ftp-> message (); # ¿ø°Ý ÆÄÀÏÀÇ ³»¿ëÀ» ´©¸£°í ¿­¸° ÆÄÀÏ Çڵ鿡 ¾¹´Ï´Ù. ¿­¸° FHandle, "> local.file"¶Ç´Â DIE "·ÎÄà ÆÄÀÏ ($!)À» ¿­ ¼ö ¾ø½À´Ï´Ù."; Fhandle "A Çì´õ ¶óÀÎ! N"À» ÀμâÇϽʽÿÀ. Fushle Ç÷¯½Ã; $ ftp-> get ( 'remote.file', * fandle) ¶Ç´Â "½ÇÆÐÇÑ", $ ftp-> message (); Fhandle "a ¹Ù´Ú ±Û ¶óÀÎ! n"À» ÀμâÇϽʽÿÀ; Fhandle ´Ý±â; # ¿ø°Ý ¼­¹ö¿¡ ·ÎÄà ÆÄÀÏÀ» ÀÔ·ÂÇϽʽÿÀ. $ ftp-> put ( 'local.file', 'remote.file') ¶Ç´Â "put put", $ ftp-> message (); #read ÆÄÀÏ Çڵ鿡¼­ ÄÜÅÙÃ÷¸¦ ¿ø°Ý ÆÄÀÏ¿¡ ³Ö½À´Ï´Ù. ¿­¸° FHandle "¿ä±¸ »çÇ× : ¡¤ Perl.


net :: xftp. °ü·Ã ¼ÒÇÁÆ®¿þ¾î