mirror of
https://github.com/zeux/pugixml.git
synced 2024-12-28 23:03:00 +08:00
7d24b9b565
git-svn-id: http://pugixml.googlecode.com/svn/trunk@607 99668b35-9821-0410-8761-19e4c4f06640
14 lines
267 B
Perl
14 lines
267 B
Perl
#!/usr/bin/perl
|
|
|
|
$prefix = join(' ', @ARGV);
|
|
$prefix .= ' ' if ($prefix ne '');
|
|
|
|
$lines = join('', <STDIN>);
|
|
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
|
|
$lines =~ s/.+include\/c\+\+.+\n//g;
|
|
|
|
foreach $line (split /\n/, $lines)
|
|
{
|
|
print "$prefix$line\n";
|
|
}
|