如何将xml标头/父标签添加到perl中的变量？

Question

我是Perl

的新手

<nst:root arg='1' arg2='2' arg3='3'>
   <a>1</a>
   <b>2</b>
</nst:root>

我想要2变量，

$root = '<nst:root arg='1' arg2='2' arg3='3'>';
$rootClose = '</nst:root>';

我想要一个正则表达式。因为我无法逐行阅读。我的xml文件也可以如下所示

<nst:root arg='1' arg2='2' arg3='3'><a>1</a><b>2</b></nst:root>

我不想阅读完整的文件。因为我有100个文件，一个文件包含超过10k行。

Answer 1

试试这个

open(my $fh,"<your file name");
while(<$fh>){
   $test=$_;
   if ($test =~ /([^>]*)>.*<([^>]*)/g) {
      print qq{$1>  <$2>};
   }
last;
}