Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my $pokus = undef;
- my $test = "";
- while ($pokus = <IN>)
- {
- $test .= $pokus;
- }
- close IN;
- $test =~ s/#[^\n\\]*([\\]{1}[\n]{1}[^\n\\]*)+//g; #smazani maker na vice radek
- $test =~ s/#[^\n\\]*//g; #smazani jedno radkovych maker, includu a definici
- $test =~ s/{[\D\d]*}//g; #smazani bloku
- $test =~ s/\/\/.*\n//g; #smazani radkoveho komentare
- $test =~ s/\/\*[\D\d]*\*\///g; #smazani blokoveho komentare
- $test =~ s/([a-zA-Z_][a-zA-Z0-9_\s*]*\s[a-zA-Z_][a-zA-Z_0-9]*\s*\([a-zA-Z0-9_\s*,]*\))/\n#$1\n/g; #pred funkce zapise #
- $test =~ s/[\s]+\n[\s]+/\n/g; #smazani mezer na konci a zacatku radku
Add Comment
Please, Sign In to add comment