Shell解析XML文件的问题，请高手帮忙，多谢啦。

sunzhiguolu

好像有点为难这款工具了, 毕竟不是编程语言啊!

sunzhiguolu

回复 17# blackold

如果只提取注释内的 name, listen-address label 该如何操作?

请问黑大师有何良方?

   

sunzhiguolu

yinyuemi 发表于 2016-06-30 13:11
回复 14# sunzhiguolu

如果只提取注释内的 name, listen-address label 该如何操作?

请问, 这种情况 如何指哪打哪?

jason680

回复 23# sunzhiguolu

<!-- 犯傻不成......都注释了,还能是XML格式?  指哪打哪? -->


$ xmllint --noblanks s.xml | awk ...
    <listen-address>10.120.136.14</listen-address>
<server>
    <name>pasm</name>
    <listen-address>10.120.136.14999</listen-address>
</server>
   

sunzhiguolu

回复 24# jason680
谢谢大神指点, 您批评的对!

   

sunzhiguolu

1. xmllint --noblanks f|perl -nle 'if(/<!--\z/){$P=1;next}$P=0 if(/\A-->/);print if($P)'
   

复制代码

<listen-address>10.120.136.14</listen-address>
<server>
    <name>pasm</name>
    <listen-address>10.120.136.14999</listen-address>
</server>

blackold

回复 22# sunzhiguolu


    可以用 perl 啊
scr.pl

1. #! /bin/perl -w
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use HTML::Parser;
   
6. 
   
7. my $p = HTML::Parser->new(comment_h => [sub {my $str=shift;print "$str" if $str !~ /nbsp/ }, 'tagname'],);
   
8. $p->ignore_elements(qw(head script style ));
   
9. 
   
10. $p->parse_file(shift || die) || die $!;

复制代码

1. $ ./scr.pl urfile
   
2. 
   
3.         <listen-address>10.120.136.18</listen-address>
   
4. 
   
5.       <server>
   
6.       <name>pasm</name>
   
7.       <listen-address>10.120.136.14999</listen-address>
   
8.       </server>
   
9. 
   

复制代码

sunzhiguolu

回复 27# blackold
服了, 大神厉害!!!

   

sunzhiguolu

回复 27# blackold
大神, 我多问一句. 那个空白能够处理吗?
通过 ignore_elements 函数的参数列表可以忽略空白行吗?

   

blackold

回复 29# sunzhiguolu


    可以的，想怎么处理都行

scr.pl

1. #! /bin/perl -w
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use HTML::Parser;
   
6. 
   
7. my $p = HTML::Parser->new(comment_h => [sub {my $str=shift;$str =~ s/ +(?=<)//g;$str =~ s/^ *\n//g;$str=~s/\n +/\n/g;print "$str" if $str !~ /nbsp/ }, 'tagname'],);
   
8. 
   
9. $p->parse_file(shift || die) || die $!;

复制代码