检测ftp是否成功

ncpaxekvfj

　　刚才写了一大段的文字竟然提交时说我没权限，内容全丢了，郁闷
现在只贴出关键代码供自己以后参考吧
 

• $FTP_SUCCESS_CODE=226;#File transfer complete.
  
• $ftp = "  
  
• ftp -i -n ${FTP_SERVER} <
  
• user ${UID} ${PWD}  
  
• verbose  
  
• cd $FTP_LOCATION  
  
• bin  
  
• lcd ${local_dir}  
  
• put ${upload_file}  
  
• !  
  
• ";   
  
• @rest = `$ftp`;   
  
• if (grep($_ =~ m/^$FTP_SUCCESS_CODE /, @ret)) {   
  
•     print "success";   
  
• } else {   
  
•     print "failed" ; 
  
• }