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" />및 기타 항목과 같은 단항 태그가 있다는 것은 정규식을 사용하여 한 줄씩 구문 분석하면 언젠가 코드가 이상하게 충돌한다는 것을 의미합니다.

이를 수행하는 방법은 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