假设我有这个目录充满了文本文件(原始文本)。我需要的是一个Perl 脚本,它将一个一个地解析目录(up2bottom)文本文件并将它们的内容保存在一个新的单个文件中,由我指定。换句话说,我只是想创建一个包含许多文档的语料库。注意:这些文档必须用一些标签分隔,例如指示它们被解析的顺序。
到目前为止,我已经设法遵循了一些示例,并且我知道如何读取、写入和解析文本文件。但是我还不能将它们合并到一个脚本中并处理许多文本文件。你能提供一些帮助吗?谢谢
编辑: 用于写入文件的示例代码。
#!/usr/local/bin/perl
open (MYFILE, '>>data.txt');
print MYFILE "text\n";
close (MYFILE);
读取文件的示例代码。
#!/usr/local/bin/perl
open (MYFILE, 'data.txt');
while (<MYFILE>) {
chomp;
print "$_\n";
}
close (MYFILE);
我还发现了可用于此类任务的foreach函数,但仍然不知道如何组合它们并达到描述中解释的结果。