perl - 使用 Text::CSV::Slurp 时如何将空格设置为分隔符

Question

文本文件如下所示：

Interface IP-Address OK? Method Status Protocol
FastEthernet0/0 10.35.195.1 YES NVRAM up up
FastEthernet0/1 unassigned YES manual up down
SSLVPN-VIF0 10.35.195.1 YES unset up up
Loopback0 10.35.255.193 YES NVRAM up up
Loopback1 10.35.255.196 YES NVRAM up up
Loopback2 10.35.255.201 YES NVRAM up up
Loopback3 10.35.255.211 YES NVRAM up up

分隔符 char 是空格而不是 "," ，这是Slurp. 如何让它发生？

我尝试sep_char如下所示，但失败了。

my $data = Text::CSV::Slurp->load(file => 'table.txt',sep_char >= 0x20);

Answer 1

您有语法问题。

那应该是=>之后sep_char，不是>=。此外，一个简单的sep_char => ' '就足够了（而不是0x20）。

Answer 2

Text::CSV::Slurp 使用Text::CSV模块来解析文件的行。您使用的加载方法将选项传递给Text:CSV 的构造函数，您可能有错字：

my $data = Text::CSV::Slurp->load(file => 'table.txt', sep_char => ' ');

重要提示： Text::CSV_XS 并非旨在检测用于引用和分隔字段的字符。解析是使用预定义的设置完成的。