bracket_detector.pl
public text v1 · immutable#!/usr/bin/perl
$akt_lvl = 0;
while(<STDIN>) {
print $akt_lvl.": ".$_;
@d1 = split(/\{/, $_);
@d2 = split(/\}/, $_);
$akt_lvl = $akt_lvl + @d1 - @d2;
}
#!/usr/bin/perl
$akt_lvl = 0;
while(<STDIN>) {
print $akt_lvl.": ".$_;
@d1 = split(/\{/, $_);
@d2 = split(/\}/, $_);
$akt_lvl = $akt_lvl + @d1 - @d2;
}