我正在尝试在 perl 中处理文本文件。我需要将文件中的数据存储到数据库中。我遇到的问题是某些字段包含换行符,这让我有点失望。包含这些字段的最佳方法是什么?
示例 data.txt 文件:
ID|Title|Description|Date
1|Example 1|Example Description|10/11/2011
2|Example 2|A long example description
Which contains
a bunch of newlines|10/12/2011
3|Example 3|Short description|10/13/2011
当前(损坏的)Perl 脚本(示例):
#!/usr/bin/perl -w
use strict;
open (MYFILE, 'data.txt');
while (<MYFILE>) {
chomp;
my ($id, $title, $description, $date) = split(/\|/);
if ($id ne 'ID') {
# processing certain fields (...)
# insert into the database (example)
$sqlInsert->execute($id, $title, $description, $date);
}
}
close (MYFILE);
从示例中可以看出,在 ID 2 的情况下,它被分成几行,在尝试引用那些未定义的变量时导致错误。您将如何将它们分组到正确的字段中?
提前致谢!(我希望问题足够清楚,很难定义标题)