私は次のような結果を得ました。
(2+05:10)
(10:19)
(00:45)
この出力は1日の時間と分を表します。これを得るために、「:」をそれぞれ「d」、「h」、「m」に置き換えたいと思います。
2d05h10m
10h19m
00h45m
現在私が試した結果、
sed -e 's/(//g; s/)//g; s/+/:/g'|awk '{split($0,s,":"); print s[1]"d" s[2]"h"s[3]"m"}')
これは提供されます(私はここで壊れています!)
6d05h20m
3d15h17m
1d02h27m
00d08hm
00d11hm
02d25hm
02d30hm
16d50hm
5d00h39m
21d48hm
答え1
〜のように聞こえる
< file tr '+:)' dhm | tr -d '('
そうするでしょう。または、パターンをより明示的に一致させます。
sed 's/(\([0-9]\{1,\}\)+\([0-9]\{1,\}\):\([0-9]\{1,\}\))/\1d\2h\3m/g
s/(\([0-9]\{1,\}\):\([0-9]\{1,\}\))/\1h\2m/g' < file
一部のsed
実装では、拡張正規表現を使用して単純化できます。
sed -E 's/\(([0-9]+)\+([0-9]+):([0-9]+)\)/\1d\2h\3m/g
s/\(([0-9]+):([0-9]+)\)/\1h\2m/g' < file
または単一のs
コマンドを使用してくださいperl
。
perl -pe 's{\((?:(\d+)\+)?(\d+):(\d+)\)}{
($1 && "$1d") . "$2h$3m"}ge' < file
または:
perl -pe 's/\((\d*\+?\d+:\d+\))/$1 =~ y|+:)|dhm|r/ge' < file
答え2
シンプルだが少し効率が低いPerlスクリプトで十分です。
cat output_file | perl simple.pl
Simple.pl
@seps=split /:/,"d:h:m";
while(<>) {
chomp ;
$_=~s/[\(\)]//g; #remove braces
@x = split /:/, $_; #get parts
$s="";
for($i=$#x,$j=$#sep;$i>=0; $i--,$j--) { #iterate on parts and corresponding separator
$s=$x[$i].$seps[$j].$s; #create print string
}
print "$s\n"; #print this line
}
答え3
解決策はありませんawk
。以下はゼロ個の要素が省略されています。
解析.awk
# Start with empty variables
{ d = h = m="" }
# Determine format and set variables accordingly.
# Force numeric interpretation by multiplying by one
NF==5 { d = $2*1; h = $3*1; m = $4*1 }
NF==4 { d = "" ; h = $2*1; m = $3*1 }
# Only set value if the number is greater than zero
{
d = d > 0 ? d "d" : ""
h = h > 0 ? h "h" : ""
m = m > 0 ? m "m" : ""
}
length(d h m) > 1 { print d h m }
length(d h m) == 0 { print "Now" }
次のように実行します。
awk -f parse.awk -v FS='[()+:]' file
出力:
2d5h10m
10h19m
45m