討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 Excel也能做到大數據分析? 沒有人比Cloudera更了解大數據
[ 回上頁 ] [ 討論區發言規則 ]
請問我如何建立perl的batch file for ftp
更改我的閱讀文章字型大小
作者 : ryan1(ryan1)
[ 貼文 10 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 2 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/4/23 下午 03:16:56
我用terminal開個ftp 172.31.3.6 帳號ryan123密碼ryan123
我如何寫出batch file
我是這樣寫但還是沒辦法連續執行
use strict;
my @project='ftp 172.31.3.6';
system (@project);
my @project1='ryan123';
system(@project1);
my @project2='ryan123';
system(@project2);
作者 : john0341(johnny)
[ 貼文 17 | 人氣 8 | 評價 50 | 評價/貼文 2.94 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/8/23 下午 05:36:12
以前寫的, 湊合湊合著, 看合不合用...

#! /usr/bin/perl
#2004/06/07 , johnny
#
// Just for linux platform, doesn't support windows.
//隨便給的目錄, 網址, 帳號, 密碼, 自己看著改
chdir("/opt/XXX/YYY/"); //local端 先移到 /opt/XXX/YYY
@data =`find . -type f -mmin -61 -prune -print`; //程式每小時跑一次; 找出61 分鐘內異動的檔案
if ($#data > -1)
{
  open(FTPFH,"|ftp -n");
  print FTPFH "open 192.168.1.2\n";
  print FTPFH "user username password\n";
  print FTPFH "cd /AAA/BBB\n"; //移到 server 端的 /AAA/BBB
  foreach $f (@data)
  {
    chomp;
    print FTPFH "bin\n";
    print FTPFH "put $f\n";
  }
  print FTPFH "bye\n";
  close(FTPFH);
  //&send_mail;
};



>我用terminal開個ftp 172.31.3.6 帳號ryan123密碼ryan123
>我如何寫出batch file
>我是這樣寫但還是沒辦法連續執行
>use strict;
>my @project='ftp 172.31.3.6';
>system (@project);
>my @project1='ryan123';
>system(@project1);
>my @project2='ryan123';
>system(@project2);
作者 : john0341(johnny)
[ 貼文 17 | 人氣 8 | 評價 50 | 評價/貼文 2.94 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/8/23 下午 05:48:20
當初的功力真的不足(現在依然很爛), 只求程式能跑就好,
其實 print FTPFH 'bin 這行根本不用包在 foreach 迴圈內,
應該是放在迴圈外, 跑一次就可以....

所以改為如下應會比較好...

#! /usr/bin/perl
#2004/06/07 , johnny
#
// Just for linux platform, windows doesn't support.
//隨便給的目錄, 網址, 帳號, 密碼, 自己看著改
chdir("/opt/XXX/YYY/"); //local端 先移到 /opt/XXX/YYY
@data =`find . -type f -mmin -61 -prune -print`; //程式每小時跑一次; 找出61 分鐘內異動的檔案
if ($#data > -1)
{
  open(FTPFH,"|ftp -n");
  print FTPFH "open 192.168.1.2\n";
  print FTPFH "user username password\n";
  print FTPFH "cd /AAA/BBB\n"; //移到 server 端的 /AAA/BBB
  print FTPFH "bin\n";
  foreach $f (@data)
  {
    chomp;
    print FTPFH "put $f\n";
  }
  print FTPFH "bye\n";
  close(FTPFH);
  //&send_mail;
};
 板主 : 徵求中
 > Perl - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Perl - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Perl
1 HKLN.net 2850 
2 Benson 480 
3 Jsn 470 
4 pail 240 
5 可愛處理器 170 
6 菜鳥小德 160 
7 mrhsuap 160 
8 kalua 120 
9 110 
10 jackkon 100 
Perl
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125