mirror of
https://github.com/zeux/pugixml.git
synced 2025-01-22 07:31:11 +08:00
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;
|