高手救命,实在没办法了,毫无头绪~

┏.璇轉

我要写一个带EXPECT模块的Server程序  现在一点头绪也没有 高手能不能帮我列一个思路
以及程序里所需要用到的参数 我刚接触Perl 还没有凭空写过程序 没有头绪啊

程序要求是这样的:

受到前台发来的socket消息
判断前4位是否为quit或cmds
如果不是，则丢弃

      如果是cmd:，则向expect输出$cmd
                    获取的结果，socket发回给前台
                  同时记录到日志文件/slview/nms/logs/webterm/yyyymmdd/ip.log
        
         如果是quit，则关闭expect
                           同时记录关闭连接信息到日志文件/slview/nms/logs/webterm/yyyymmdd/ip.log


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


[ 本帖最后由 ┏.璇轉 于 2006-9-7 17:48 编辑 ]

┏.璇轉

不用去管里面的乱七八糟的变量,我只是想知道结构就行,就是要用到的函数和参数的结构,我也不知道我说的对不对问的对不对,总之我已经抓狂了,弄了好几天根本没办法~~
5555555555555

┏.璇轉

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

dajun

你的意思是建立一个服务器程序，他接收客户端用expect发了的消息，判断一下，再返回些数据？
这样的话很简单了。

┏.璇轉

要求好象是 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. 
    

复制代码

# 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


其他的你自己加吧，而且这个代码也不完善

┏.璇轉

啊,首先谢谢您~~辛苦了 帮我写了一个程序
但是有个问题,就是我如果想把expect模块加进去,改怎么办呢?

    基本思路是这样:   就是我做一个类似聊天室的网页, 做这个的目的就是关于登陆方面,用户输入用户名和密码 通过expect模块来达到登陆的目的.

其他的您写的我基本看的懂了,就剩一个问题就是如果加expect模块呢?

dajun

那你就研究一下expect模块或者用open来调用系统的expect吧，
然后把得到的结果再write到socket。

┏.璇轉

好的,谢谢你

最后一个问题,关于您写的程序,  程序里面的  my $buf = "";     分别代表什么呢?
                                                             my $c;
                                                             my $ret = 0;

┏.璇轉

$buf为接收到的前台信息,   $c是客户端的套接字,  对么?

$ret=0;是什么意思就不是怎么太懂了...   请指教...