Linux Баш скрипт - Заменить последнее вхождение строки в файле

Question

У меня есть XML-файл, который выглядит примерно так, и я только хочу, чтобы заменить последнее вхождение/пересылки с/ShipHdr/ShipmentX:

<ShipmentX> 
    <ShipHdr> 
    <RefID>REF01</RefID> 
    <HeaderReferenceNumber>1234565</HeaderReferenceNumber> 
    <Shipment> 
    <RefCode>GHIJK</RefCode> 
    <ShipmentStatusCode>FG</ShipmentStatusCode> 
    </Shipment> 
    <Summary> 
    <TotalWeight>10</TotalWeight> 
    </Summary> 
</Shipment> 

Выход:

<ShipmentX> 
    <ShipHdr> 
    <RefID>REF01</RefID> 
    <HeaderReferenceNumber>1234565</HeaderReferenceNumber> 
    <Shipment> 
    <RefCode>GHIJK</RefCode> 
    <ShipmentStatusCode>FG</ShipmentStatusCode> 
    </Shipment> 
    <Summary> 
    <TotalWeight>10</TotalWeight> 
    </Summary> 
    </ShipHdr> 
</ShipmentX> 

Любые советы о том, как я могу это сделать с помощью Perl или SED в Баш скрипт?

Спасибо!

Answer 1

Использование tac и awk:

tac xml | awk '!p && /<\/Shipment>/{p=1;print "</ShipmentX>\n </ShipHdr>"; next} 1'| tac 
<ShipmentX> 
    <ShipHdr> 
    <RefID>REF01</RefID> 
    <HeaderReferenceNumber>1234565</HeaderReferenceNumber> 
    <Shipment> 
    <RefCode>GHIJK</RefCode> 
    <ShipmentStatusCode>FG</ShipmentStatusCode> 
    </Shipment> 
    <Summary> 
    <TotalWeight>10</TotalWeight> 
    </Summary> 
    </ShipHdr> 
</ShipmentX> 

Answer 2

В Perl регулярное выражение является $n =~ s/(?s).*\K<\/Shipment>/<\/ShipHdr> <\/ShipmentX>/;

Или, вы можете избежать LTS с этим синтаксисом:

$n =~ s{(?s).*\K</Shipment>}{</ShipHdr> </ShipmentX>};

Это регулярное выражение находит только Последнее</Shipment>, независимо от того, что происходит после него, т.е. после него не будет другого </Shipment>.