regex - 除了在 perl 中将每个单词放在单独的行上之外，尝试输入格式化的文本文件并删除所有空格

Question

#!/usr/bin/perl
use strict;
use warnings;

open (my $inFile, '<', 'electricity.txt') or die $!;

while (<$inFile>) {
  chomp $_;
  $_ = split(/\s+/);
  print $_;
}
close ($inFile);

当我运行它时，我得到一堆数值作为输出。我不确定为什么。

标签： regexperl

Answer 1

我最终是这样做的......

#!/usr/bin/perl
use strict;
use warnings;



open (my $inFile, '<', 'electricity.txt') or die $!;

while (my $lines = <$inFile>) {

  chomp $lines;
    $lines =~ s/\s+/\n/g;
  print $lines;

  foreach my $line (split /\s+/, $lines) {
        $count{$line}++;
    }



}
close ($inFile);