如何将文件内容逐句存储在数组中

Question

我想打开一个文件，并将其内容存储在一个数组中，并一次更改每个句子，然后打印文件的输出。

我有这样的事情：

open (FILE , $file);
my @lines = split('.' , <FILE>)
close FILE;
for (@lines) {
s/word/replace/g;
}
open (FILE, ">$file");
print FILE @lines;
close FILE;

由于某种原因，perl 不喜欢这样并且不会将任何内容输出到新文件中。似乎不喜欢我拆分数组。有人可以解释一下为什么 perl 会这样做以及可能的解决方法吗？谢谢！

Answer 1

split 需要一个正则表达式。将split('.' , <FILE>) 更改为split(/\./ , <FILE>)

Answer 2

将my @lines = split('.' , <FILE>) 更改为my @lines = split('\.' , <FILE>)

在正则表达式中仅使用. 来匹配单个字符。所以你需要转义. 才能在句号上拆分。

Answer 3

#!/usr/local/bin/perl
use strict;
use warnings;
my $filename = "somefile.txt";
my $contents = do { local(@ARGV, $/) = $filename; <> };
my @lines = split '\.', $contents;
foreach(@lines){
#lines is an array which contains one sentence at each index.    
}

Answer 4

我发现你的脚本的第二行缺少分号（;），这是错误，而且你的脚本无法处理整个文件的内容。它只会处理一行。所以请在下面找到脚本的修改。如果有任何澄清，请告诉我。

my $file='test.txt';#input file name
open (FILE , $file);
#my @lines = split('\.' ,<FILE>); this will not process the entire content of the file.
my @lines;
while(<FILE>) {
s/word/replace/g;
push(@lines,$_);
}
close FILE;
open (FILE, ">$file");
print FILE @lines;
close FILE;

Answer 5

你的代码有很多问题。

• my @lines = split('.' , <FILE>) 只会读取第一行并将其拆分。
• split('.' 应该是 split(/\./
• my @lines = split('.' , <FILE>) 没有分号终止符。
• print FILE @lines; - 你已经失去了所有的句号！

最后我想知道，当你只是替换一个单词时，你为什么会为“句子”而烦恼。如果你真的想一次读一个句子（大概是做某种基于句子的处理），那么你需要更改记录分隔符变量$\。例如：

#!/usr/bin/perl

use strict;
use warnings;

my $file = "data.txt";
open (FILE , $file);
my @buffer;
$/ = '.';  # Change the Input Separator to read one sentence at a time.
           # Be careful though, it won't work for questions ending in ?
while ( my $sentence = <FILE> ) {
   $sentence =~ s/word/replace/g;
   push @buffer, $sentence;
}
close FILE;

.. saving to file is left for you to solve.

但是，如果您只想更改字符串，则可以通过将 $/ 设置为 undef 一口气读取整个文件。例如：

#!/usr/bin/perl

use strict;
use warnings;

my $file = "data.txt";
open (FILE , $file);
$/ = undef; # Slurp mode!
my $buffer = <FILE>;
close FILE;
$buffer =~ s/word/replace/g;
open (FILE, ">$file");
print FILE $buffer;
close FILE;

如果您真的想要处理句子并且想要得到问题，那么您可能想要吞下整个文件然后拆分它，但在您的正则表达式中使用捕获，这样您就不会丢失标点符号。例如：

!/usr/bin/perl

use strict;
use warnings;

my $file = "data.txt";
open (FILE , $file);
$/ = undef; # slurp!
my $buffer = <FILE>;
close FILE;

open (FILE, ">$file" . '.new');  # Don't want to overwrite my input.
foreach my $sentence (split(/([\.|\?]+)/, $buffer))  # split uses () to capture punctuation.
{
   $sentence =~ s/word/replace/g;
   print FILE $sentence;
}

close FILE;