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;
|