perl - 我想使用 perl 中的文件处理删除 txt 文件中的部分行

Question

这样如果输入文件中的行是：

abc！阿斯达斯
 美国广播公司，萨达斯达
 美国广播公司。

输出文件应该是：

美国广播公司
 美国广播公司，
 美国广播公司。

Answer 1

这是一种方法。split如果您的数据有任何不同，您可能需要进行调整。它现在所做的只是在空间上分割。

#!/usr/bin/perl

use strict;
use warnings;

open (my $in, '<', "in.txt") or die $!;
open (my $out, '>', "out.txt") or die $!;

while (<$in>) {
    my ($val) = split ' ';
    print $out "$val\n";
}

close ($in);
close ($out);

如果我必须这样做，这就是我将从命令行执行的操作：

awk '{ print $1 }' in.txt > out.txt

Answer 2

file.txt 包含您帖子中的文本。

Perl 脚本：

use strict;
open(IN, 'file.txt');
while(<IN>){
   chomp;
   my(@elems) = split(/\s+/, $_);
   print $elems[0] . "\n";
}