- 论坛徽章:
- 307
|
本帖最后由 sunzhiguolu 于 2016-06-03 17:46 编辑
我先来一个, 如果大家有其他的解决方案 还请大家指点... - #!/usr/bin/perl
- use strict;
- use warnings;
- while (<>){
- next if (m~</?xml>~ or /\A\s*\z/);
- my ($line, @aData) = ($_);
- while (m~<([^/>]+)>~g){
- push (@aData, "<$1>") if (!($line =~ s!</$1>!!));
- }
- push (@aData, $_) for ($line =~ m~</[^>]+>~g);
- print "@aData\n" if (@aData);
- }
复制代码 perl abc.pl abc
------------------------------------------------------------------------------
<strong> </a>
<ab>
<fdgsfg>
<1234234> <aaa>
<sdfsd> <abc> <aaa>
|
|