Введение в СУБД MySQL


Example.13.3 - часть 2


порядке,

# поэтому $fields[0], $types[0], $ndt_null[0] and $length[0]

относятся к одному полю.

foreach $field (0..$#fields) {

print "\n";

print "$fields[$field]$types[$field]";

print $length[$field]

if $types[$field] eq 'SQL_CHAR';

print "";

print 'Y' if ($not_null[$field]);

print "\n"; }

print <

Data

    END_OF_HTML

    # Теперь мы будем построчно перемещаться по данным с помощью

    DBI::fetchrow_array().

    # Мы сохраним данные в массиве в таком же порядке, как и в

    информационных

    # массивах (§fields, @types, etc,), которые мы создали раньше.

    while(my(@data)=$table_data->fetchrow_array) {

    print "

  1. \n
      ";
  2. for (0..$#data) {

    print "

  3. $fields[$_] => $data[$_]
  4. \n"; }

    print ""; }

    print "END_OF_HTML;

    END_OF_HTML




    Начало  Назад  Вперед