Question

设A，B，C，D为单词

输入文件：

..
A/B/C/D 
W/B/C/Z 
L/B/C/O   
..

输出文件：

..
A/B/C/A
W/B/C/W 
L/B/C/L 
..

将word D替换为word A同一行，仅当行中存在/B/C/分隔符且其他行明智时

要完成该任务的sed/awk/perl oneliner

Answer 1

这是一个awk解决方案：

awk -F/ -v OFS=/ '$2=="B" && $3=="C" {$4=$1}1' input.txt

Answer 2

pearl.306> echo "A/B/C/D"|awk '{split($0,a,"/");print a[1]"/"a[2]"/"a[3]"/"a[1]}'
A/B/C/A
pearl.307>

另一种方式是：

pearl.309> echo "A/B/C/D" | awk -F"/" '{OFS="/"}{$NF=$1;print}'
A/B/C/A
pearl.310> 

pearl.318> cat file1
A/B/C/D
W/B/C/Z
L/B/C/O
pearl.319> awk -F"/" '{OFS="/"}{$NF=$1;print}' file1
A/B/C/A
W/B/C/W
L/B/C/L
pearl.320>

Answer 3

你可以这样做：

sed -re 's/^([^/]*)(\/B\/C\/)([^/]*)$/\1\2\1/' file

演示：

$ cat file
A/B/C/D
W/B/C/Z
L/B/C/O

$ sed -re 's/^([^/]*)(\/B\/C\/)([^/]*)$/\1\2\1/' file
A/B/C/A
W/B/C/W
L/B/C/L

Answer 4

这可能对您有用：

sed 's|^\(\(.\)/B/C/\).|\1\2|' file

如果A/B/C/D是真实的话，例如wordA/wordB/wordC/wordD，然后：

sed 's/|^\(\([^/]*\)/wordB/wordC/\).*|\1\2|' file

Answer 5

这应该可以解决问题。 perl -p -e's / D / A / g'

在sed sed -e's / D / A /'

中

Answer 6

 perl -pe 's#(/B/C/)(.*)#$1$`#' file

这应该有效+

正则表达式用同一行unix上的另一个单词替换单词

6 个答案: