sed 中的命令替换

Question

我想将文本文件的前六个字符读入一个字符串，并在该文件中的每个其他非空行前面加上该字符串。此类文件的示例可能是：

04/17 Walmart .toys $ 70 .cash $ -70

Caltex .gas 20 $ .cheque $ -20

McDonalds .burger 1 $ .cash $ -1

每个条目，即：每个非空行，都需要一个日期，为了便于数据输入，只在第一行输入了日期。条目由 1 个或多个空行分隔。输出如下所示：

04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1

我可以将非空字符串与^[^@]+[ ]*.[ ]([^;{}:]+)[ ]*$ 之类的内容匹配，但我不知道如何为非空行实际实现。

This Bash script 看起来对我很有吸引力，但我不知道如何在开头插入我的字符串。

我也无法在 StackOverflow 上找到我的问题的直接答案。

我尝试了一个接受文件名的脚本：

read -n 6 date < $1
sed 's/^/$(echo $date)/' | \
sed 's/^$(echo $date)\n//' | > $newName

我能够想出在每一行前面加上空格的日期（例如字符串：'04/17'），然后从后面没有任何内容的每一行中删除相同的日期。

但是，sed 似乎不接受命令替换：

sed: -e expression #1, char 10: unknown option to `s'

Answer 1

你应该可以通过一个sed 命令来做到这一点：

read -rn 6 date < "$1"
sed -E 's#^([a-zA-Z]+)#'"$date"' \1#g' "$1" > newfile

捕获组确保在插入日期之前行中至少有一个字符。

编辑：根据您对问题的修改：

newfile="output.txt"
lineone=$(head -1 "$1");

read -rn 6 date <<< "$lineone"
sed -E 's#^([a-zA-Z]+)#'"$date"' \1#g; 1s#^.*$#'"$lineone"'#' "$1" > "$newfile" 

由于您没有进行就地编辑，您可以进行 $date 插入，然后返回并换出第一行，因为它会以两个日期结束。可能有“更好”的方法来做到这一点，例如使用Perl，或丢失第二个sed 命令，尽管这至少应该让您了解它的工作原理......

结果（新文件）：

04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1

注意：在 sed 的某些版本中，扩展正则表达式的选项可以 可以是-r 或-E。

Answer 2

纯bash回答：

unset n
while read -r x ; do
    case "${#n}$x" in 6) ;; 6*) x="$n$x" ;; *) n="${x:0:6}" ;; esac
    echo "$x"
done < file > newfile

输出：

04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1

Answer 3

使用 Perl：

perl -plE 'if($.==1){$d=substr($_,0,6);next}elsif(/./){s/^/$d/}' file > new

输出

04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1

或者在同一个文件中备份到file.bak

perl -i.bak -plE 'if($.==1){$d=substr($_,0,6);next}elsif(/./){s/^/$d/}' file

或相同的文件没有备份

perl -i -plE 'if($.==1){$d=substr($_,0,6);next}elsif(/./){s/^/$d/}' file

或者，如果您不确定日期中的前导零，

perl -plE 'if($.==1){($d)=m|^(\d+/\d+\s)|;next}elsif(/./){s/^/$d/}' file

将匹配第一行开头的任何digit(s) / digit(s) space。

正如评论中提到的l'L'l，上面也将日期添加到伪空行（该行看起来像空），例如它至少包含一个空格。在这种情况下，而不是/./:

• 使用/\w/ - 因此，仅在包含至少一个单词字符的行前添加日期；
• 或使用/\S/ - 当包含至少一个非空格字符时

解释：

perl -plE '                    # Run the commands on every input line and print them.
    if( $. == 1) {             # If it is the 1st line
        $d = substr($_, 0, 6); # take the first 6 characters and store it to $d
        next                   # And continue to the next line.
    }
    elsif( /\S/ ) {            # Else if the line contains any nonspace character
        s/^/$d/                # add to the beginning the content of $d
    }
    ' file > new

Answer 4

斜杠终止sed命令，将分隔符更改为其他内容：

"s#^#$(echo $date)#"

你也可以这样写：

"s#^#$date#"

但是请注意，这种方法通常很脆弱（正如您所发现的那样），因为您不能将变量视为文字字符串。

---

根据更新问题的示例，我建议使用单个 awk 命令来进行文本处理。像这样的东西可以给你示例输出：

$ cat file
04/17 Walmart .toys $ 70 .cash $ -70

Caltex .gas 20 $ .cheque $ -20

McDonalds .burger 1 $ .cash $ -1

$ awk 'NR==1{d=$1}NR>1&&NF>0{$0=d" "$0}1' file
04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1