mirror of
https://github.com/zeux/pugixml.git
synced 2024-12-28 23:03:00 +08:00
ab28c3b45e
git-svn-id: http://pugixml.googlecode.com/svn/trunk@139 99668b35-9821-0410-8761-19e4c4f06640
8 lines
155 B
Perl
8 lines
155 B
Perl
#!/usr/bin/perl
|
|
|
|
$lines = join('', <>);
|
|
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
|
|
$lines =~ s/.+include\/c\+\+.+\n//g;
|
|
|
|
print $lines;
|