linux awk 改写文件,批处理修改文件内容的问题，使用awk命令

不会写awk，来一个perl的

#!/usr/bin/env perl

use utf8;

use strict;

use warnings;

foreach my $file (@ARGV) {

open (my $fh, '

open (my $oh, '>', $file.".out") or die "Can not open file $file.out : $!";

while (my $line = ) {

$line =~ s/(\d*-\d*-\d* \d*:\d*:\d*)\.\d/$1/;

print $oh $line;

}

close $fh;

close $oh;

}

来一个perl6的

#!/usr/bin/env perl6

use v6;

use MONKEY-SEE-NO-EVAL;

sub MAIN(Str :r(:$regex), Str :s(:$substr), Str :e(:$ext) = '.out', Int :i(:$ignore-line) = 0, *@files) {

for @files -> $file {

my $out = open $file ~ ".out", :w;

for $file.IO.lines.kv -> $index, $line is copy {

next if $index <= $ignore-line;

$line ~~ EVAL "s/" ~ $regex ~ "/" ~ $substr ~ "/";

$out.say: $line;

}

$out.close;

}

}

用法

./script.p6 -r='(\d*\-\d*\-\d*\s\d*\:\d*\:\d*)\.\d' -s='$0' *files