数组 – 使用perl中的<$socket [i]>读取数组中的套接字
发布时间:2020-12-16 06:05:49 所属栏目:大数据 来源:网络整理
导读:我想阅读我的插座并对它们做一个“getline”. my @socket1;$socket1[0] = IO::Socket::INET-new( Type = SOCK_STREAM,PeerAddr = "127.0.0.1",Proto = "tcp",PeerPort = $dbase_param{camera_stream}) or die "Cannot open socket on port " . $dbase_param{
我想阅读我的插座并对它们做一个“getline”.
my @socket1; $socket1[0] = IO::Socket::INET->new( Type => SOCK_STREAM,PeerAddr => "127.0.0.1",Proto => "tcp",PeerPort => $dbase_param{camera_stream} ) or die "Cannot open socket on port " . $dbase_param{camera_stream} . ".n"; print { $socket1[0] } "n"; my $ligne = <$socket1[0]>; while ( !( $ligne =~ /Content-Length:/ ) ) { $ligne = <$socket1[0]>; } 它将告诉我在第二个$ligne =< $socket1 [0]>模式匹配(m //)中使用未初始化的值$ligne; 我不明白 解决方法
尖括号也用于glob(),
perl -MO=Deparse -e '$ligne = <$socket1[0]>;' use File::Glob (); $ligne = glob($socket1[0]); 所以如果你没有使用普通标量作为套接字,你可能会更明确地使用 $ligne = readline($socket1[0]); (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |