将标量写入文件句柄的方法

猪鼻插葱

文件句柄只能对文件进行操作　问一下　如何将一个标量写入文件句柄

黑色阳光_cu

什么需求？

猪鼻插葱

{:3_201:}急用　谁给说说怎么用　谢谢了

猪鼻插葱

需求是这样的　
我从套接字中接收到返回的信息　我把信息给了一个标量　
然后我需要把这些信息发送到下一个套接字　下一个套接字接收的参数为文件句柄　
所以我需要把信息写到一个文件句柄里　不知道我这样表述清除没？

zhlong8

socket 还能传文件句柄的？

黑色阳光_cu

需求是这样的　
我从套接字中接收到返回的信息　我把信息给了一个标量　
然后我需要把这些信息发送到下一 ...
猪鼻插葱 发表于 2010-10-26 18:58

   
open(FILE, ">", "urfile.txt");
${*FILE} = 5;

这样子？

zhlong8

这个只是把 typeglob 的 scalar 域变成5，没啥意义啊

黑色阳光_cu

这个只是把 typeglob 的 scalar 域变成5，没啥意义啊
zhlong8 发表于 2010-10-26 19:11

主要我没搞清楚他要干嘛。

zhlong8

我也一样等楼主解释

猪鼻插葱

{:3_186:}　我上代码吧　这是发送的

1. 
   
2. sub _send {
   
3.     my ($self, $fh) = (@_);
   
4.     local (*_);
   
5.     local ($/) = "\r\n";
   
6.     $self->{sock}->autoflush(0);  # use less writes (thx to Sam Horrocks for the tip)
   
7.     while (<$fh>) {
   
8.           s/^\./../;
   
9.           $self->{sock}->print($_) or die "$0: write error: $!\n";
   
10.     }
    
11.     $self->{sock}->autoflush(1);  # restore unbuffered socket operation
    
12.     $self->{sock}->print(".\r\n") or die "$0: write error: $!\n";
    
13. }
    

复制代码

这个是接收的

1. 
   
2. sub _receive{
   
3. my ($self) = @_;
   
4.     my ($tmp, $reply);
   
5.     return undef unless $tmp = $self->{sock}->getline;
   
6.     while (defined $tmp) {
   
7.                 $reply .= $tmp;
   
8.                 return undef unless $tmp = $self->{sock}->getline;
   
9.     }
   
10.     $reply .= $tmp;
    
11.     $reply =~ s/\r\n$//;
    
12.     return $reply;
    
13. ｝
    

复制代码

需要把接收到的标量　转换到句柄里　使用_send发送出去