在Perl中按字母字符串拆分

Question

我是Perl的新手，我目前正尝试仅在几个字母上拆分字符串。 我查看了其他答案，它们似乎特定于该问题，或者缺少评论来理解答案。

最终目标是将一个非常长的CSV文件拆分为可接收的部分，以便以后使用。 样本数据将是

HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />

我希望通过“ <br />”将字符串拆分成自己的字符串，然后将字符串存储在数组中。到目前为止，我尝试拆分的字符串是：

my $line1 = split("/<br />", $Line);

并通过打印输出来对其进行测试，但这是行不通的。

Answer 1

split函数返回标量上下文中的分割数。 要获取拆分列表，需要在列表上下文中调用split ：

my $str   = q{HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />};
my @lines = split qr{<br\s?/>}, $str;

Answer 2

$str = 'HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />HOME 123454 monkey lion 6.4.2.10 ( ABCD EFGH (Tue 20th August 2000) 12345 True )<br />';

my @list = split(qr'<br />', $str);

say $_ for @list;