高手救命,實(shí)在沒(méi)辦法了,毫無(wú)頭緒~

┏.璇轉(zhuǎn)

我要寫(xiě)一個(gè)帶EXPECT模塊的Server程序  現(xiàn)在一點(diǎn)頭緒也沒(méi)有 高手能不能幫我列一個(gè)思路
以及程序里所需要用到的參數(shù) 我剛接觸Perl 還沒(méi)有憑空寫(xiě)過(guò)程序 沒(méi)有頭緒啊

程序要求是這樣的:

受到前臺(tái)發(fā)來(lái)的socket消息
判斷前4位是否為quit或cmds
如果不是，則丟棄

      如果是cmd:，則向expect輸出$cmd
                    獲取的結(jié)果，socket發(fā)回給前臺(tái)
                  同時(shí)記錄到日志文件/slview/nms/logs/webterm/yyyymmdd/ip.log
        
         如果是quit，則關(guān)閉expect
                           同時(shí)記錄關(guān)閉連接信息到日志文件/slview/nms/logs/webterm/yyyymmdd/ip.log


急啊,明天要交工啦~~~~


[ 本帖最后由 ┏.璇轉(zhuǎn) 于 2006-9-7 17:48 編輯 ]

┏.璇轉(zhuǎn)

不用去管里面的亂七八糟的變量,我只是想知道結(jié)構(gòu)就行,就是要用到的函數(shù)和參數(shù)的結(jié)構(gòu),我也不知道我說(shuō)的對(duì)不對(duì)問(wèn)的對(duì)不對(duì),總之我已經(jīng)抓狂了,弄了好幾天根本沒(méi)辦法~~
5555555555555

┏.璇轉(zhuǎn)

期待期待啊~~~~  救星在哪里.....................

dajun

你的意思是建立一個(gè)服務(wù)器程序，他接收客戶端用expect發(fā)了的消息，判斷一下，再返回些數(shù)據(jù)？
這樣的話很簡(jiǎn)單了。

┏.璇轉(zhuǎn)

要求好象是 expect模塊在server里面  而不是在client里面  怎么辦呀?

dajun

1. 
   
2. 
   
3. 
   
4. # cat so.pl
   
5. #!/usr/bin/perl
   
6. 
   
7. use strict;
   
8. use IO::Socket::INET;
   
9. 
   
10. my $sock = IO::Socket::INET->new(
    
11.                         Protp           => 'tcp',
    
12.                         LocalPort       => '7890',
    
13.                         Type            => SOCK_STREAM,
    
14.                         Listen          => '10',
    
15.                         Reuse           => '1',
    
16.                         Timeout         => '5',
    
17.                         );
    
18. 
    
19. if (not defined $sock) {
    
20.         print "socket error!\n";
    
21.         exit(1);
    
22. }
    
23. 
    
24. while(1) {
    
25.         my $buf = "";
    
26.         my $c;
    
27.         my $ret = 0;
    
28.         if (accept($c, $sock)){
    
29.                 $ret = read($c, $buf, 4);
    
30.                 #if $ret ....
    
31.                 if ($buf =~ /^cmds/){
    
32.                         print "I got cmds, I can do expect cmds here\n";
    
33.                 }
    
34.                 elsif ($buf =~ /^quit/){
    
35.                         print "I got quit, I can send quit to expect here\n";
    
36.                 }
    
37.         }
    
38. }
    
39. 
    
40. 
    

復(fù)制代碼

# perl so.pl
I got quit, I can send quit to expect here
I got cmds, I can do expect cmds here
I got quit, I can send quit to expect here


其他的你自己加吧，而且這個(gè)代碼也不完善

┏.璇轉(zhuǎn)

啊,首先謝謝您~~辛苦了 幫我寫(xiě)了一個(gè)程序
但是有個(gè)問(wèn)題,就是我如果想把expect模塊加進(jìn)去,改怎么辦呢?

    基本思路是這樣:   就是我做一個(gè)類(lèi)似聊天室的網(wǎng)頁(yè), 做這個(gè)的目的就是關(guān)于登陸方面,用戶輸入用戶名和密碼 通過(guò)expect模塊來(lái)達(dá)到登陸的目的.

其他的您寫(xiě)的我基本看的懂了,就剩一個(gè)問(wèn)題就是如果加expect模塊呢?

dajun

那你就研究一下expect模塊或者用open來(lái)調(diào)用系統(tǒng)的expect吧，
然后把得到的結(jié)果再write到socket。

┏.璇轉(zhuǎn)

好的,謝謝你

最后一個(gè)問(wèn)題,關(guān)于您寫(xiě)的程序,  程序里面的  my $buf = "";     分別代表什么呢?
                                                             my $c;
                                                             my $ret = 0;

┏.璇轉(zhuǎn)

$buf為接收到的前臺(tái)信息,   $c是客戶端的套接字,  對(duì)么?

$ret=0;是什么意思就不是怎么太懂了...   請(qǐng)指教...