If you have no '{}'s in mid-line comments, you could -
#!/usr/bin/perl -w
use strict;
my ($open, $close) = (0,0);
while( <> ) {
$open += () = $_ =~ m'{'g unless /^#/;;
$close += () = $_ =~ m'}'g unless /^#/;
}
print "Opens: $open\nCloses: $close\n";
# bracket_check.pl < filename
-G
On T
See inline comment:
> -Original Message-
> From: Balint, Jess [mailto:JBalint@;alldata.net]
> Sent: Tuesday, October 22, 2002 2:17 PM
> To: '[EMAIL PROTECTED]'
> Subject: Missing Bracket
>
>
> Hi all. I am sorry to post a question such stupid as this
> one, but it has me
> stumped. I ha
I would guess that you are missing a curly bracket '}' somewhere in your
program, but the program doesn't realize it until the end. The only way to
find it that I know of is to use good spacing in your program and walk
through { by { looking to make sure that it's paired correctly.
