字符串在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;