☰

双重匹配 - 如果前一行与另一个模式匹配，则替换后续行中的模式？

tag-icon • tag-icon awk sed calendar
双重匹配 - 如果前一行与另一个模式匹配，则替换后续行中的模式？

我正在尝试替换.ics 文件中的条目，如果它与另一行的当前条目匹配VEVENT（导出不正确）：VTODOdate

BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20220340T140000
END:VEVENT
BEGIN:VEVENT
DTSTART:20230620T193700
END:VEVENT
BEGIN:VEVENT
DTSTART:20210210T193800
END:VEVENT
END:VCALENDAR

第二个 VEVENT 条目具有当前时间，因此它应该变为：

BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO

BEGIN:VEVENT和行之间有更多条目END:VEVENT，为了清楚起见，我对它们进行了编辑。

我已经用 sed 尝试过此操作，但范围选择整个文件中第一次出现的 VEVENT，而不是第一次出现后（或之前）匹配的模式，因此它会替换所有这些模式。

sed -i "/BEGIN:VEVENT/,/DTSTART:$(date +%Y%m%dT%H%M)/{s/VEVENT/VTODO/}" org.ics

我试图将其适应另一个我认为相关的问题：查找一个字符串并在找到第一个字符串后替换另一个字符串

sed -n "/DTSTART:$(date +%Y%m%dT%H%M)/,${/END:VEVENT/{x//{x b}g s/VEVENT/VTODO/}}" org.ics

但它根本不起作用： sed: -e expression #1, char 25: unexpected，'`

答案1

所以以下应该有效：

sed 'H;/BEGIN:VEVENT/h;/END:VEVENT/!d;x;/DTSTART:'"$(date +%Y%m%dT%H%M)"'/s/VEVENT/VTODO/g' org.ics

解释：

H：附加到创建缓冲区（空间）的保留空间，然后我们进行模式匹配

/BEGIN:VEVENT/h并将其存储在保留空间中，所以现在我们运行另一个模式匹配

/END:VEVENT/!d如果模式不匹配，则将其删除。

x;交换与模式空间保持空间，所以现在我们在模式空间中有我们需要的行

DTSTART... 最后，如果该行与日期匹配，则替换该行。 sos/.../.../g仅当存在匹配时才执行。

/DTSTART:'"$(date +%Y%m%dT%H%M)"/s/VEVENT/VTODO/g

更新

sed '1n;H;/BEGIN:VEVENT/h;/END:VEVENT/!d;x;/DTSTART:'"$(date +%Y%m%dT193700)"'/s/VEVENT/VTODO/g' org.ics | sed '$aEND:CALENDAR

答案2

在每个 Unix 机器上的任何 shell 中稳健地使用任何 awk：

$ cat tst.sh
#!/usr/bin/env bash

awk -v now="$(date +'%Y%m%dT%H%M')" '
    $0 == "BEGIN:VEVENT" {
        eventType = 1
        event = $0
        next
    }
    eventType {
        event = event ORS $0
        if ( $0 == ("DTSTART:" now) ) {
            eventType = 2
        }
        if ( $0 == "END:VEVENT" ) {
            if ( eventType == 2 ) {
                sub(/^BEGIN:VEVENT/,"BEGIN:VTODO",event)
                sub(/END:VEVENT$/,"END:VTODO",event)
            }
            print event
        }
        next
    }
    { print }
' "${@:--}"


$ ./tst.sh file
BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20220340T140000
END:VEVENT
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VEVENT
DTSTART:20210210T193800
END:VEVENT

唯一失败的方法是，如果您的输入中可以有其他一些部分，其中可以包含与任何 BEGIN:、END: 或 DSTART: 行匹配的行，但我怀疑这在您的输入中是否有效 - 您如果是的话，必须向我们展示它是如何指定的。

上述解决方案的重要之处在于，它将整个文字行与目标字符串进行比较，而不仅仅是对输入中可能出现的位置进行部分匹配。

答案3

它不是解决问题，只是提示：

sed s/'$'/':'/ org.ics |awk 'BEGIN{RS="BEGIN";FS=":";CD="20220340"} NR>1 {AA[1]="BEGIN";for(i=2;i<=NF;i++){AA[i]=$i;if($i =="DTSTART" && $(i+1) ~ CD ){AA[2]="VTODO"}};for(i in AA){printf AA[i]":"};print ""}'

其中sed命令在每行末尾添加 : （冒号），RS="BEGIN"将 RowSeparator 设置为关键字 BEGIN （这就是它忽略的原因！），FS=":"将 FieldSeparator 设置为 ":" 。在每个“行”中（从关键字 BEGIN 到下一个 BEGIN，更好地说是“记录”），字段被复制到AA[i]以 i=2 开头的数组成员中，因为 AA[1] 必须是被忽略的 BEGIN。同时检查关键字 DTSTART 和当前日期，并在必要时将 VEVENT 更改为 VTODO。检查该行后，将打印数组 AA[]，并以 : 作为分隔符。

这只是提示，我没有测试过。你必须自己调试和调整。也就是说，如果不需要，您可以清除结尾 : 。

答案4

我们可以有这样的解决方案TXR:

@(repeat)
@  (cases)
BEGIN:VEVENT
DTSTART:@{date}T@{time}
END:VEVENT
@    (output)
BEGIN:VTODO
DTSTART:@{date}T@{time}
END:VTODO
@    (end)
@  (or)
@line
@    (do (put-line line))
@  (end)
@(end)

这本身会将所有条目重写为VTODO：

$ txr  cal.txr cal.ics
BEGIN:VCALENDAR
BEGIN:VTODO
DTSTART:20220340T140000
END:VTODO
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VTODO
DTSTART:20210210T193800
END:VTODO
END:VCALENDAR

我们可以从命令行绑定date和变量：time

$ txr -Ddate=20230620 cal.txr cal.ics
BEGIN:VCALENDAR
BEGIN:VEVENT
DTSTART:20220340T140000
END:VEVENT
BEGIN:VTODO
DTSTART:20230620T193700
END:VTODO
BEGIN:VEVENT
DTSTART:20210210T193800
END:VEVENT
END:VCALENDAR

现在只匹配并重写第二个条目。

漂亮版本：

通过 vim 语法高亮

相关内容