0

以下のエントリを含むテキストファイルがあります：

Name  type  startTime   Endtime    comments
my   I      01-03-2016  02-03-2016 zoom
my   F     01-03-2016  02-03-2016  zoom2
abd   F     03-03-2016  04-03-2016  zoom5
my   I      01-03-2016  02-03-2016 zoom6

現在の日付が 3 月 18 日の場合: 出力は次のようになります。

Name  type  startTime   Endtime    comments
my   I      **02-03-2016**  ***18-03-2016*** zoom
my   F     01-03-2016  02-03-2016  zoom2
abd   F     03-03-2016  04-03-2016  zoom5
my   I      **02-03-2016**  ***18-03-2016*** zoom6

条件はIf name == my && type ==I、開始時刻を終了時刻で更新する必要があります。終了時刻は、処理される現在の日付になります。

上記の要件でそのファイルを処理するための最良の方法論を選択するのを手伝ってくれる人はいますか。

私の要件がクリアされることを願っています:)ありがとう、マドゥ

4

2 に答える 2

1

純粋な Perl ソリューションは次のようになります

#!/usr/bin/env perl

use strict;
use warnings;

open(my $fh, "<", "file.txt") || die $!;
my ($header, @lines) = <$fh>;
close($fh);

my @keys = split(/[\s\t]+/, $header);

open($fh, ">", "file.txt") || die $!;
print $fh join("\t",@keys), "\n";

my @cdate = (localtime)[3,4,5];
$cdate[1] += 1;
$cdate[2] += 1900;

foreach my $line (@lines) {
    my %tmp;
    @tmp{@keys} = split(/[\s\t]+/, $line);
    if($tmp{'Name'} eq 'my' && $tmp{'type'} eq 'I') {
        $tmp{'Endtime'} = sprintf("%02d-%02d-%04d", @cdate)
    }

    print $fh join("\t", @tmp{@keys} ),"\n"
}

close($fh)
于 2016-03-18T09:13:11.673 に答える