Bashを使用したxmlファイルの追加

Question 1

このスクリプトをファイルに入れます（例： 'increase.awk'）：

BEGIN { i = 1 }
/.*<process>value=""<\/process>.*/ { split($0, a, "value=\"\"") ; print a[1] "value=\"" i++ "\"" a[2] ; next }
/.*/ { print $0 }

それから電話してください。

gawk -f increase.awk < yourinputfile

説明：awkでは、split("string", a, "separatorstring")「separatorstring」を区切り文字として使用して、「string」をaという配列に分割します。したがって、a[1]には最初の「区切り文字列」までのすべての内容が含まれ、a[2]には行末または次の「区切り文字列」までのすべての内容が含まれます。

Answer

このスクリプトをファイルに入れます（例： 'increase.awk'）：

BEGIN { i = 1 }
/.*<process>value=""<\/process>.*/ { split($0, a, "value=\"\"") ; print a[1] "value=\"" i++ "\"" a[2] ; next }
/.*/ { print $0 }

それから電話してください。

gawk -f increase.awk < yourinputfile

説明：awkでは、split("string", a, "separatorstring")「separatorstring」を区切り文字として使用して、「string」をaという配列に分割します。したがって、a[1]には最初の「区切り文字列」までのすべての内容が含まれ、a[2]には行末または次の「区切り文字列」までのすべての内容が含まれます。

Question 2

このXMLを使用しないでください。必要に応じて考えてみてください。 XMLは、スペースを積極的に無視する構造化データ型です。 eg<attr name="fish" />などの単項タグがあるということは、正規表現を使って1行ずつ解析すると、いつかコードが奇妙にクラッシュすることを意味します。

これを行う方法は、XMLパーサーを使用することです。どちらを使うかは個人的な好みの問題ですが、私はスクリプトXML::Twig（perlモジュール）が好きです。

説明したように問題を解決するには：

#!/usr/bin/env perl

use strict;
use warnings;

use XML::Twig;

sub increment_value {
    my ( $twig, $process ) = @_;
    my ($value) = ( $process->text =~ m/(\d+)/ );
    print "Got $value\n";
    if ( defined ( $value ) ) { 
        $process->set_text( 'value="' . ++$value . '"' );
    } 
    else {
        $process -> delete;
    }
}

my $twig = XML::Twig->new(
    'pretty_print'  => 'indented',
    'twig_handlers' => { 'process' => \&increment_value },
);
$twig->parsefile( 'your_file.xml'  );
$twig->print;    #prints to stdout.

processこれは、テキストを抽出、変換、および置換する要素ごとの「処理」をトリガーします。

Answer