XMLファイルの編集 - 文字列を見つけてテキストブロックを削除し、/文字列を見つけて新しいテキストブロックを挿入します。

Question 1

~のためㅏPOSIXsedとheadユーティリティはもちろん一般in文書：

{   sed  -ne'/^<ric id="AUG03250639E=YBAU">$/q;p'
    head -n21 >/dev/null
    cat
}   <in >out

Answer

~のためㅏPOSIXsedとheadユーティリティはもちろん一般in文書：

{   sed  -ne'/^<ric id="AUG03250639E=YBAU">$/q;p'
    head -n21 >/dev/null
    cat
}   <in >out

Question 2

構文解析および/または操作という事実に加えて正規表現を含むxmlせいぜい誤解の所持がありますが（気をつければこんなに簡単なのも効果があるかもしれませんが）、ほぼ正しいです。

GNU sedの使用：

sed –i -e '/<ric id="AUG03250639E=YBAU">/,+21d'  a.xml

-isedが（）オプションをサポートしていない場合は、--in-place一時ファイルを使用してこれを行うことができます（sedが後で動作する方法）。

TF=$(mktemp)
sed -e '/<ric id="AUG03250639E=YBAU">/,+21d'  a.xml > "$TF" && mv "$TF" a.xml

試しているように、シェルからファイルを読み取り、出力をそのファイルにリダイレクトすることはできません。シェルが最初にすることは、ファイルを上書きして空にすることです。これは、sedスクリプトが実行される前に発生します。

より複雑なXML解析操作の場合は、シェルスクリプトのXMLパーサーを使用するか、xmlstarletPerlまたはPython（または考えられるほとんどすべての言語）用のXML解析ライブラリのいずれかを使用してください。

Answer

構文解析および/または操作という事実に加えて正規表現を含むxmlせいぜい誤解の所持がありますが（気をつければこんなに簡単なのも効果があるかもしれませんが）、ほぼ正しいです。

GNU sedの使用：

sed –i -e '/<ric id="AUG03250639E=YBAU">/,+21d'  a.xml

-isedが（）オプションをサポートしていない場合は、--in-place一時ファイルを使用してこれを行うことができます（sedが後で動作する方法）。

TF=$(mktemp)
sed -e '/<ric id="AUG03250639E=YBAU">/,+21d'  a.xml > "$TF" && mv "$TF" a.xml

試しているように、シェルからファイルを読み取り、出力をそのファイルにリダイレクトすることはできません。シェルが最初にすることは、ファイルを上書きして空にすることです。これは、sedスクリプトが実行される前に発生します。

より複雑なXML解析操作の場合は、シェルスクリプトのXMLパーサーを使用するか、xmlstarletPerlまたはPython（または考えられるほとんどすべての言語）用のXML解析ライブラリのいずれかを使用してください。

Question 3

XMLを解析するために正規表現を使用しないでください。汚いです。壊れやすい、壊れやすいコードを生成します。できるように問題を引き起こす可能性がある多くのものがあります。要素の形式をXMLとして指定することは完全に有効です。

<calculation name="AB" field="SEC_YLD_1" />

または：

<calculation
    field="SEC_YLD_1"
    name="AB"
/>

そして他のさまざまなオプション - すべて意味上同じですが...同じ正規表現と一致しません。

たとえば、パーサーを使用すると非常に簡単です。これを簡単に行う方法はperlありますか？XML::Twig

削除：

#!/usr/bin/env perl
use strict;
use warnings;
use XML::Twig;

my $twig = XML::Twig -> parsefile ( 'your_file.xml' );

$_ -> delete for $twig -> get_xpath('//ric[@id="AUG03250639E=YBAU"]');

$twig -> set_pretty_print('indented');
$twig -> print;

注 - 重複したアイテムがある場合は削除してください。

これで新しいアイテムを作成します。コピーして修正したいようです。したがって：

#!/usr/bin/env perl
use strict;
use warnings;
use XML::Twig;

my $twig = XML::Twig -> parsefile ( 'your_file.xml' );

#find one to copy - this will just get the first 'ric' element. 
my $ric_to_copy = $twig -> get_xpath('//ric',0); 
#copy it
my $new_ric = $ric_to_copy -> copy;
#alter the new one
$new_ric -> set_att('id', 'BBBBB=YBAU' );
#paste it
$new_ric -> paste ( 'last_child', $ric_to_copy->parent);
$twig -> set_pretty_print('indented');
$twig -> print;

次に、STDOUTを読み込み、印刷します。特定のファイルに印刷できます。

my ( $output, '>', 'new.xml') or die $!;
print {$output} $twig -> sprint;
close ( $output );

Answer