11 lines
120 B
Perl
11 lines
120 B
Perl
![]() |
#!/usr/bin/perl
|
||
|
|
||
|
$/ = undef;
|
||
|
while(<>)
|
||
|
{
|
||
|
s!/\*.*?\*/!!gso;
|
||
|
s!^\s+!!gmo;
|
||
|
s!^(//.*)?(\n|$)!!gmo;
|
||
|
print;
|
||
|
}
|