当我使用文件句柄处理多行字符串时，如何避免 Perl::Critic 警告？

Question

除了下面所示的字符串作为文件句柄解决方案之外，是否有人有解决方案来一次处理一行一行的多行字符串？

my $multiline_string = "line one\nline two\nline three\nline four";
my $filehandle;
open( $filehandle, '<', \$multiline_string )
    or croak("Can't open multi-line string as a filehandle: $!");
while ( defined (my $single_line = <$filehandle>) ) {
    # do some processing of $single_line here ...
}
close( $filehandle );

我不想使用文件句柄的原因很弱。当我在任何文件句柄上的打开命令和关闭命令之间有超过 10 行源代码行时，Test::Perl::Critic 就会发牢骚。我正在对 $single_line 进行相当多的处理，所以我实际上在 open call 和 close call 之间有大约 40 行代码，而且我没有看到任何方法可以将其减少到 10 行。

而且我真的不知道想要忽略我的构建中的 Perl::Critic 测试，因为这实际上是一个不错的测试，每当我在代码中打开实际磁盘文件时我都希望通过它。

Answer 1

通过创建子例程并在文件的每一行中调用它，可以让 Perl Critic 高兴，也让您自己更高兴。

use strict; use warnings;

sub do_something {
    my ($line) = @_;
    # do something with $line
}

open my $fh, '<', \$multiline_string
    or die "Cannot open scalar for reading: $!";

while(<$fh>) {
    chomp;
    do_something($_);
}

close $fh; 

Answer 2

嗯，抱怨的目的不就是让你拥有只做一件事的更小的代码块吗？创建一个子例程来执行每行所需的操作。

许多人建议split /\n/。 split /^/ 更像是文件句柄的方式。

Answer 3

怎么样：

my $multiline_string = "line one\nline two\nline three\nline four";
my @lines = split(/\n/,$multiline_string);
foreach my $line (@lines) {
    #do stuff with string
}

Answer 4

我可能遗漏了一些东西，但是你可以这样做：

my @lines = split(/\n/,$multiline_string);
foreach my $single_line (@lines) {
  ...
}

Answer 5

早在我知道可以将多行字符串硬塞到文件句柄中之前，就已经存在 split：

foreach my $single_line (split /\n/, $multiline_string) {
    # process $single_line here
    # although note that it doesn't end in a newline anymore
}

在此处插入有关使用文字和不可移植 \n 的免责声明。

Answer 6

Perl::Critic 很好，但是当你开始沉迷于它的一些任意性时要求，它开始浪费你的时间而不是节省你的时间。我只是让文件句柄超出范围，而不用担心关闭：

 my $multiline_string = "line one\nline two\nline three\nline four";

 {
     open my( $fh ), '<', \$multiline_string )
         or croak("Can't open multi-line string as a filehandle: $!");
     while ( defined (my $single_line = <$fh>) ) {
         # do some processing of $single_line here ...
     }
 }

很多人使用正则表达式或拆分，但我认为这是草率的。您不需要创建新列表并在程序中使用更多内存。

Answer 7

您可以使用正则表达式。

#!/usr/bin/perl

use strict;
use warnings;

my $s = "line one\nline two\nline three\nline four";

while ($s =~ m'^(.*)
或者你可以使用split：
for my $line ( split m'\n', $multiline_string ){

  # ...

}

gm) {
    print "'$1'\n";
}

die "Exited loop too early\n" unless pos $s == length $s;

或者你可以使用split：

Answer 8

就我个人而言，我喜欢使用 $/ 来分隔行在多行字符串中。

my $multiline_string = "line one\nline two\nline three\nline four";
foreach (split($/, $mutliline_string)) {
  process_file($_);
}
sub process_file {
  my $filename = shift;
  my $filehandle;
  open( $filehandle, '<', $filename )
      or croak("Can't open multi-line string as a filehandle: $!");
  while ( defined (my $single_line = <$filehandle>) ) {
      process_line($single_line);
  }
  close( $filehandle );
}
sub process_line {
  my $line = shift;
  ...
}