小编Die*_*dia的帖子

我有一长串这样的文字：

text = 'Quisiera yo detectar los puntos... pero solo los puntos aislados. Los puntos suspensivos no los quiero detectar. A eso me refiero.'

我想得到这个输出：

phrases = ['Quisiera yo detectar los puntos... pero solo los puntos aislados.',
' Los puntos suspensivos no los quiero detectar.',
' A eso me refiero.']

问题是第一个短语中的三个点。我找不到将它们与常见的单点分隔符区分开的正则表达式。有没有办法用正则表达式来实现？

只是找不到这个语法(<$SOCKET>)的作用,虽然我猜它是变量中对象的某种默认评估或行为.

我试图测试我的Apache服务器(在安装mod_evasive模块之后)与这个假定的DoS探测器(这进入100次循环),但它总是返回响应400 Bad Request.试图对代码进行decypher,我已经陷入了下面的注释行.

use IO::Socket;
use strict;

my($response);
my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
                                  PeerAddr=> "127.0.0.1:80");
if (! defined $SOCKET) { die $!; }
print $SOCKET "GET / HTTP/1.1\n\n";

$response = <$SOCKET>; ## What are those < > signs???

print $response;
close($SOCKET);

然后我的主要兴趣是能够进行测试,所以我首先需要知道为什么我得到400错误代码来修复它.

而且,BTW,为了好奇,我想了解<$SOCKET>语法含义,因为我无法在任何地方找到它.