Как я могу проверить, возвращает ли запрос к базе данных результаты?

Это не столько вопрос Perl, сколько вопрос базы данных, и нет хорошего способа узнать, сколько результатов у вас есть, пока вы их не получите. У вас есть два варианта:

1. Выполните запрос, который выполняет «счетчик выбора (*)», чтобы узнать, сколько строк имеется, а затем другой запрос, чтобы получить фактические строки или
2. Выполните запрос и сохраните результаты в хеше, затем подсчитайте, сколько записей у вас есть в хеше, а затем просмотрите хеш и распечатайте результаты.

Например, с головы до ног:

my @results = ();
while (my $ref = $sth->fetchrow_hashref()) {
   push @results, $ref;
}

if ($#results == 0) {
  ... no results
} else {
  foreach $ref (@results) {
    my $temp = $template;
    ....
 }

Очень простой способ:

$sth->execute();

my $first = 1;
while (my $ref = $sth->fetchrow_hashref()) {
    if ( $first ) {
        print "We currently have the following vacancies:\n";
        $first = 0;
    }
    my $temp  = $template;
    ...
}
if ( $first ) {
    print "No vacancies found\n";
}

Немного более эффективный способ (избегая условного выражения внутри цикла), если вы не возражаете, чтобы он немного изменил способ вывода страницы (все сразу, а не по строкам), вы можете создать переменную для хранения вывод непосредственно перед циклом:

my $output = '';

а затем внутри цикла измените любой оператор печати, чтобы он выглядел так:

$output .= "whatever we would have printed";

затем после цикла:

if ($output eq '')
{
  print 'We have no vacancies.';
}
else
{
  print "We currently have the following vacancies:\n" . $output;
}

Просто добавьте еще один запрос .. примерно так:

# count the vacancies    
$numinfo = $dbh->prepare("SELECT COUNT(*) FROM $table WHERE EXPIRY >= ?");
$numinfo->execute($date);
$count = $numinfo->fetchrow_arrayref()->[0];

# print a message
my $msg = '';
if   ($count == 0) $msg = 'We do not have any vacancies right now';
else               $msg = 'We have the following vacancies';
print($msg);

Если вы используете Mysql, метод "строк" работает нормально:

$sth->execute();

if ($sth->rows) {
  print "We have data!\n";
}

while(my $ref = $sth->fetchrow_hashref()) {
...
}

Метод и некоторые предостережения подробно описаны в "perldoc DBI". Всегда начинайте с perldoc.

use Lingua::EN::Inflect 'PL';

$sth->execute();
my $results = $sth->fetchall_arrayref( {}, $max_rows );

if (@$results) {
    print "We currently have the following ", PL("vacancy",scalar @$results), ":\n";

    for my $ref (@$results) {
        ...
    }
}

Поскольку каждый хочет оптимизировать повторные тесты для проверки того, был ли напечатан заголовок в решении Грэма, я представляю его небольшую вариацию:

$sth->execute();

my $ref = $sth->fetchrow_hashref();
if ($ref) {
  print "We currently have the following vacancies:\n";
  while ($ref) {
    my $temp  = $template;
    ...
    $ref = $sth->fetchrow_hashref();
  }
} else {
    print "No vacancies found\n";
}

Perldoc DBI говорит:

 For a non-"SELECT" statement, "execute" returns the number of rows
 affected, if known. If no rows were affected, then "execute"
 returns "0E0", which Perl will treat as 0 but will regard as true.

Итак, ответ - проверить возвращаемое значение $ sth-> execute ():

 my $returnval = $sth->execute;
 if (defined $returnval && $returnval == 0) {
     carp "Query executed successfully but returned nothing";
     return;
 }

Поскольку ваш запрос представляет собой ВЫБРАТЬ, вы не можете использовать ряды или значение, возвращаемое самим выполнять.

Однако вы можете заранее подсчитать, сколько строк (т.е. вакансий) выберет ваш запрос, добавив еще один запрос ... примерно так:

# Retrieve how many vacancies are currently offered:
my $query = "SELECT COUNT(*) AS rows FROM $table WHERE expiry >= ?";
$sth = $dbh->prepare($query);
$sth->execute($date);
$numVacancies = $numinfo->fetchrow_arrayref()->[0];

# Debug:
print "Number of vacancies: " . $numVacancies . "\n";

if ( $numVacancies == 0 ) { # no vacancy found...
    print "No vacancies found!\n";
}
else { # at least a vacancy has been found...
    print "We currently have the following vacancies:\n";

    # Retrieve the vacancies:
    my $sql = "SELECT * FROM $table where expiry >= '$date' ORDER BY expiry";
    my $sth = $dbh->prepare($sql);
    $sth->execute();

    ...
}

Или, аналогично, вместо "подготовить" и "выполнять" запроса, а затем использования "fetchrow_array", вы можете сделать все за один вызов, используя selectrow_array:

# Retrieve how many vacancies are currently offered:
my $query = "SELECT COUNT(*) AS rows FROM $table WHERE expiry >= ?"; 
my $numVacancies = $dbh->selectrow_array($query, undef, $date);

# Debug:
print "Number of vacancies: " . $numVacancies . "\n";

То же самое и для selectall_arrayref:

# Retrieve how many vacancies are currently offered:
my $query = "SELECT COUNT(*) AS rows FROM $table WHERE expiry >= ?";
my $numVacancies = $dbh->selectall_arrayref($query, {Slice => {}}, $date);

# Debug:
print "Number of vacancies: " . @$numVacancies[0]->{rows} . "\n";

Однако, если вы используете selectrow_array или selectall_arrayref, вы также можете получить количество вакансий непосредственно из результата исходного запроса:

# Retrieve the vacancies:
my $sql = "SELECT * FROM $table where expiry >= ? ORDER BY expiry";
my $vacancies = $dbh->selectall_arrayref($sql, {Slice => {}}, $date);

# Debug:
print "Number of vacancies: " . scalar @{$vacancies} . "\n";