有什么辦法刪除遠(yuǎn)程服務(wù)器的文件

tanyangxf

fxbird

perl學(xué)過(guò)，不過(guò)沒(méi)用過(guò)，全忘了。用java或ruby不行嗎

tanyangxf

如果是批量就用我發(fā)給你的perl腳本就行了，只是單個(gè)服務(wù)器操作，就直接ssh上去刪吧。java和ruby不懂。應(yīng)該也是可以的。

tingyu

可以看看開(kāi)源工具STAF，遠(yuǎn)程執(zhí)行命令，但是不安全。

godymoon

回復(fù) 6# tanyangxf

1. my $ssh = Net::SSH::Perl->new($host,options => ["ConnectTimeout 5","StrictHostKeyChecking no"]);
   
2. 
   
3. $ssh->login($user, $pass);
   

復(fù)制代碼

perl中ssh能向expect自動(dòng)識(shí)別提示符嗎？如果可以的話，確實(shí)可以省去不少時(shí)間，expect交互時(shí)間太慢了

lubinc

通過(guò)smb連接過(guò)去更舒服�。ㄒ�給用戶權(quán)限）

yifangyou

scp命令可以遠(yuǎn)程執(zhí)行命令

tanyangxf

回復(fù) 15# godymoon


    perl中就不用expect了。。perl的ssh模塊就已經(jīng)實(shí)現(xiàn)這個(gè)功能了。你仔細(xì)看看腳本，去找個(gè)測(cè)試環(huán)境運(yùn)行下。只有shell才需要結(jié)合expect的。perl不需要，perl基本能干shell+awk+sed+expect能干的所有事。系統(tǒng)管理和運(yùn)維用perl是個(gè)不錯(cuò)的選擇。

godymoon

回復(fù) 18# tanyangxf

   
    那不錯(cuò)啊，以后好好看看； 光是看代碼，就感覺(jué)比expect簡(jiǎn)單、省時(shí)