perl - perlでファイルハンリングを使ってtxtファイルの行の一部を削除したい

Question

入力ファイルの行が次の場合：

abc !アスダス
 abc、サダスダ
 abc。

出力ファイルは次のようになります。

abc
 abc、
 abc。

Answer 1

ここにそれを行う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";
}