Figured it out.
New question though. Here's my code:
#!/usr/bin/perl
use DBI;
use strict;
my $dbh = DBI->connect ( "dbi:mysql:dbname=rt3_devel;host=10.0.2.27",
"svr", "XXXXXXXX") or die "Cannot connect to database!\n";
my $sth = $dbh->prepare("SELECT DISTINCT Content FROM
ObjectCustomFieldValues") or die "Cannot prepare statement: $DBI::errstr\n";
$sth->execute;
my @profiles;
while (my $profile = $sth->fetchrow()){
# next if $profile = "Routine";
# next if $profile = "Normal";
# next if $profile = "Unusual";
push(@profiles, $profile);
}
foreach (@profiles){ print $_ . "\n" };
$sth->finish;
I need to skip three items in the database and not have them placed in
the array. However, if I use next such as the lines commented out above
I get no output whatsoever. Even uncommenting one gives me nothing.
How do I tell the script to discard the three items but continue to
populate the database with everything else?
Mathew
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
