Perl Socket 问题请教!--版主请!

joyaid

各位好.
我写了一个小socket的server端.工作机制很简单,就是遍历文件,然后如果标志文件存在就生成一个session_id.这个session_id是system 调用系统命令.生成一个8位的随即字符串.

在socket部分,将变量$session_id 用send函数传送给client端.
可是client端无法获得该值.

我调试和判断后认为,应该是在$session_id 在语句体中的变量类型有问题,应该加上my. 但是,还是不行.
如果将send 的内容改为:
print CLIENT "hello world!\n";
send(CLIENT,$flag,0);

或者
print SESSION (my $s = localtime);  #直接调一个系统函数;

client端都是可以接收到值的.

因为本人是perl初学者,对于perl细节问题理解的不是很透彻.尤其是对于局部变量这块.
麻烦各位高手多多指教!代码如下:


============================
#!/usr/bin/perl
#LastUpdated:2006-06-21
#Server end

##use strict;
use warnings;

use IO::Handle;            
use Socket;   

#File define;
$prefix="/opt/modules/kdn/etc/";
$pds_filename="pds_channel_list.txt";
$server_config_file= $prefix.$pds_filename;
$flag_file=".ht_file";
$changename=".ht_file.old";
my $syn_start=0;

#Socket define;
$port=6880;               
$address=sockaddr_in($port,INADDR_ANY);  
socket(SERVER,AF_INET,SOCK_STREAM,getprotobyname('tcp'));  
bind(SERVER,$address);         
listen(SERVER,10);


#Become a Daemon
my $pid = fork();
print $pid,"\n";

if($pid) {
  #end parent process
  print "#parent process\n";
  exit(0);
}else {
  print "#child process";
}

# set new process group
setpgrp;

#Loop ;
while(1) {
  sleep(30);
  #Open file and read erveryline;
        open( OPF, $server_config_file)||die "Cannt open File: $server_config_file\n";
        @content = <OPF>;
        close (OPF);
       
        foreach $line (@content){
                 next if ($line =~ /^\s+/ || $line =~ /^#*$/);
          
           @str = (split( /,/, $line));
           $codename = $str[0];
           $filepath = $str[1];
           #print ("$codename\n$filepath\n$server_config_file\n");
           $flag_all = $filepath.$flag_file;
          
          
           if (-e $flag_all){
              $syn_start = 1;
             my $flag = $syn_start;
              if ($syn_start == 1){
                      print ("syn_start flag: $syn_start\n");
                      $sessionid = system 'date +%N | md5sum | head -c 8';
                      #print ("$sessionid\n");
                      ## example:rename(/opt/data/.ht_file,/opt/data/.ht_file.old);
                      #rename("$flag_all","$filepath/$changename");                     
              }
           }else {
              warn "$flag_all doesnt exist\n";
              }
        }
   
  open ("TEST",">>/tmp/test.log");
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $year+=1900;$mon++;
  print TEST ("INFO:$year-$mon-$mday $hour:$min:$sec.running is OK!\n");
  close (TEST);
  
next unless (accept(CLIENT,SERVER));
CLIENT->autoflush(1);
print CLIENT "$flag\n";
send(CLIENT,$flag,0);
close CLIENT;}
close SERVER;
=====================================


#!/usr/bin/perl -w
#LastUpdated:2006-06-16
#client end

##use strict;
use warnings;


use IO::Handle;            
use Socket;               
$port=6880;                 
$host='localhost';         
$packhost=inet_aton($host);     
$address=sockaddr_in($port,$packhost);


while(1) {
  sleep(10);
        socket(CLIENT,AF_INET,SOCK_STREAM,6);
        connect(CLIENT,$address);         
        CLIENT->autoflush(1);                    
        recv(CLIENT,$sessionid,length($sessionid),0);
        $sessionid=<CLIENT>;
        print "RECV:$sessionid\n";         
        close CLIENT;            
}

joyaid

UP

海天

哈哈，看不懂程序，但是我知道局部变量是用my声明的，全局变量用our，临时变量用local声明。
所以最好编程的时候use strict

shaoyongabo477

up

joyaid

我的天啊!Perl这个版是怎么了?我的这个问题不是很难啊.
麻烦就在这 ->   $sessionid = system 'date +%N | md5sum | head -c 8';
如果实在没人能帮助解决.那我就用rand(100);生成随即数了.这样省了一个变量定义.

aaronvox

大家的问题太无聊 高手都不愿意理了
充分利用google和书籍吧

shute

1. 
   
2. while(1) {
   
3.   sleep(10);
   
4.         socket(CLIENT,AF_INET,SOCK_STREAM,6);
   
5.         connect(CLIENT,$address);         
   
6.         CLIENT->autoflush(1);                    
   
7.         [color=Red]recv(CLIENT,$sessionid,length($sessionid),0); [/color]
   
8.         $sessionid=<CLIENT>;
   
9.         print "RECV:$sessionid\n";         
   
10.         close CLIENT;            
    
11. }
    

复制代码

这里的$sessionid还没取到，就用length不对吧

joyaid

server端:
print CLIENT "$flag\n";
send(CLIENT,$flag,0);
这有个问题,都没看出来??? send和print重了.

joyaid

TO : 5楼aaronvox .
socket 问题无聊么?
这个问题符合<提问的智慧>所定义的要求.
代码是我自己写的.
我在提问前查过相关知识,并自己独立思考过.
我自己debug过.并确定了问题大致的范围.

作为版主有义务回答!至少他们可以说不知道.当然,没有回帖,也可以被默认为不知道.或者是没有尽职尽责.
我记得2周前我帖错了一个帖子的,标题为"code",在5分钟内,帖子就被删除,并给我发了站内消息.
有如此权限的人,为什么就不能为perl学习者提供些帮助呢?
现在是提问的第六天!