求程序思路~達(dá)人來(lái)~在線等(急)

┏.璇轉(zhuǎn)

接了個(gè)程序要求,但是剛學(xué)Perl不久,還沒(méi)有從0開(kāi)始編程,所以剛遇到?jīng)]有任何思路,主要就是不知道用什么函數(shù)~  請(qǐng)高手指教


程序要求大致如下:


WebTermCmd.cgi
  從本頁(yè)獲取登錄狀態(tài),LoginStatus
--------------------------------------------------------------------------------------
  #狀態(tài)0
  if(loginstatus == 0 || loginstatus== undef) {(初始化)
   &action0();
  }
----------------------------------------------------------------------------------------
#狀態(tài)1
  elsifif( Loginstatus==1){ (待登陸)
    從form參數(shù)獲取登陸信息
    調(diào)用后臺(tái)的WebTerm.pl程序，參數(shù)為ip 用戶(hù)名 密碼 登錄方式
    eg:/slview/nms/bin/WebTerm.pl 10.0.0.191 slview slview`123 telnet

   if 調(diào)用失敗,{
   alert "登陸失敗，請(qǐng)重新輸入"
   &action0();
   }
   elsif調(diào)用成功{
   調(diào)用ouputresult函數(shù)，向result frame輸出"登錄成功"
   &action1();
   }
  }
--------------------------------------------------------------------------------------------
  #狀態(tài)2
  elsifif( Loginstatus==2){ (已登陸)
    if($cmd ne ''){
    向后臺(tái)的WebTerm.pl發(fā)送socket消息"cmd: $cmd"
    收到的消息，調(diào)用ouputresult函數(shù)，輸出到WebTermResult的textarea
   }
    &action1();
  }
--------------------------------------------------------------------------------------------
  #狀態(tài)3
  elsifif( Loginstatus==3){ (待退出)
    向后臺(tái)的WebTerm.pl發(fā)送socket消息"quit"
    resetresult(),清除result frame的textarea內(nèi)容
    &action0();
  }
--------------------------------------------------------------------------------------------

大概就是這樣  里面的action0()   action1()   不用理先  只是給個(gè)程序的大概結(jié)構(gòu)  說(shuō)白了就是用什么函數(shù)代表上面的一堆中國(guó)字....

麻煩了~~~

[ 本帖最后由 ┏.璇轉(zhuǎn) 于 2006-9-12 16:31 編輯 ]

rollingpig

http://72891.cn/viewthr ... &extra=page%3D1

Search for CGI……

┏.璇轉(zhuǎn)

暈~~ 全英文的...........................

┏.璇轉(zhuǎn)

那個(gè)啥,斑竹,謝謝你的指點(diǎn),但是俺確實(shí)看不懂那英文啊,能不能簡(jiǎn)單幫俺說(shuō)說(shuō)這個(gè)程序呀~~~   
麻煩你啦斑竹~~~

┏.璇轉(zhuǎn)

其實(shí)就是只有4個(gè)狀態(tài)   乍一看很多很麻煩  但是仔細(xì)一看 其實(shí)就幾個(gè)句子而已   

還望大家?guī)蛶兔?nbsp; 明天要交工  現(xiàn)在能靠自己寫(xiě)出來(lái)的東西太少  還在熟悉...

麻煩了大家了哈~~

woqpalsk

一言難盡。。。支持你兄弟