7 lines
56 B
Perl
7 lines
56 B
Perl
|
while (<>)
|
||
|
|
{
|
||
|
|
if (/./ && !/^#pragma/)
|
||
|
|
{
|
||
|
|
print $_
|
||
|
|
}
|
||
|
|
}
|