RE: Help with semi colons and Oracle blocks through dbi

[Karger, Amir]

> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Friday, June 15, 2001 3:49 AM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: AW: Help with semi colons and Oracle blocks through dbi
> 
> 
> Somthing like
> 
> my $block_count = 0;
> while(<STDIN>) {
>     $block_count++ if /[bB][eE][gG][iI][nN]/;
>     s/;//g if $block_count == 0;
>     $block_count-- if /[eE][nN][dD];/;
>     print;
> }
>

How about:

    $block_count++ if /begin/i;

Amir Karger
Curagen Corporation