Right regex to match -- comments or blank line?

[Dave Sisk]

Hi Folks:

I need the right regex to match either a comment line (--) or a blank line.
What I've got below doesn't seem to be working like I'd expect. I've posted
a snippet of what I have below...would anyone be kind enough to point me in
the right direction? I also apparently need to strip the ';' off the end
of the INSERT statement...

TIA,
Dave

-----------------------------------------------------------
while(<SCRIPT>) {

chomp;

$insert = $_;

unless ($insert =~ /^--|^\s+$\n/) {

$rv = $dbh->do($insert);

}

}

The script I'm reading in looks like this:

-- Some comments on this line, the next line is a blank line, then the next
lines are inserts.

insert into sometable values('whatever1');

insert into sometable values('whatever2');

etc.

[jan]

chomp(); is removing the \n;

try:
unless ($insert =~ /^--|^\s?$/)

Cheers,
Jan

"Dave Sisk" <ds***@nc.rr.com.0nospam0> wrote in message news:<0Q*********************@twister.southeast.rr .com>...

Hi Folks:

I need the right regex to match either a comment line (--) or a blank line.
What I've got below doesn't seem to be working like I'd expect. I've posted
a snippet of what I have below...would anyone be kind enough to point me in
the right direction? I also apparently need to strip the ';' off the end
of the INSERT statement...

TIA,
Dave

-----------------------------------------------------------
while(<SCRIPT>) {

chomp;

$insert = $_;

unless ($insert =~ /^--|^\s+$\n/) {

$rv = $dbh->do($insert);

}

}

The script I'm reading in looks like this:

-- Some comments on this line, the next line is a blank line, then the next
lines are inserts.

insert into sometable values('whatever1');

insert into sometable values('whatever2');

etc.

[Jürgen Exner]

"jan" <ja*@ossifrage.net> wrote in message
news:fc**************************@posting.google.c om...

chomp(); is removing the \n;

Actually it is removing whatever the value of $/ is. Granted, by default
that is \n, but some people may change it and wonder why chomp() doesn't
work any more.

jue

[Jim Gibson]

In article <fc**************************@posting.google.com >, jan
<ja*@ossifrage.net> wrote:

[top-posting fixed]

"Dave Sisk" <ds***@nc.rr.com.0nospam0> wrote in message
news:<0Q*********************@twister.southeast.rr .com>...

Hi Folks:

I need the right regex to match either a comment line (--) or a blank line.
What I've got below doesn't seem to be working like I'd expect. I've posted
a snippet of what I have below...would anyone be kind enough to point me in
the right direction? I also apparently need to strip the ';' off the end
of the INSERT statement...

TIA,
Dave

-----------------------------------------------------------
while(<SCRIPT>) {
chomp;
$insert = $_;
unless ($insert =~ /^--|^\s+$\n/) {
Do you want to allow for blanks before the '--'?
Do you require a blank line have whitespace in it?

If "yes" and "no", change to:
unless ( $insert =~ /^\s*--|^\s*$/ ) {

To strip off semi-colon at end:

$insert =~ s/;\s*$//;
$rv = $dbh->do($insert);
}
}

The script I'm reading in looks like this:

-- Some comments on this line, the next line is a blank line, then the next
lines are inserts.

insert into sometable values('whatever1');

insert into sometable values('whatever2');

etc.

chomp(); is removing the \n;

try:
unless ($insert =~ /^--|^\s?$/)

Cheers,
Jan

Note: this newsgroup is defunct. Try comp.lang.perl.misc in the future.