csv - 我可以使用 Text::CSV_XS 来解析 csv 格式的字符串而不将其写入磁盘吗？

Question

我从供应商那里得到了一个“csv 文件”(使用他们的 API)，但他们所做的只是把整个事情都写进了他们的回应中。当然，除了那些讨厌的人输入数据并放入诸如换行符之类的“功能”之外，这不会是一个重大问题。我现在正在做的是为原始数据创建一个文件，然后重新打开它以读取数据:

open RAW, ">", "$rawfile" or die "ERROR: Could not open $rawfile for write: $! \n";
print RAW $response->content;
close RAW;

my $csv = Text::CSV_XS->new({ binary=>1,always_quote=>1,eol=>$/ });
open my $fh, "<", "$rawfile" or die "ERROR: Could not open $rawfile for read: $! \n";

while ( $line = $csv->getline ($fh) ) { ...

不知何故，这似乎……不雅。似乎我应该能够从 $response->content (多行字符串)中读取数据，就好像它是一个文件一样。但我对如何做到这一点完全空白。
一个指针将不胜感激。
谢谢，
保罗

Answer 1

您可以使用字符串文件句柄:

my $data = $response->content;
open my $fh, "<", \$data or croak "unable to open string filehandle : $!";
my $csv = Text::CSV_XS->new({ binary=>1,always_quote=>1,eol=>$/ });
while ( $line = $csv->getline ($fh) ) { ... }