9 lines
100 B
Perl
9 lines
100 B
Perl
|
# remove #pragma once and empty lines
|
||
|
|
while (<>)
|
||
|
|
{
|
||
|
|
if (!/#pragma once/ && ! /^$/)
|
||
|
|
{
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
}
|