Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - Dema

Страницы: [1]
1
Базы данных / КАК ДОБАВИТЬ ДАННЫЕ?
« : 06 Июня 2003, 00:27:37 »
ЕСТЬ ТАКАЯ ФОРМА:
#!/usr/bin/perl
use CGI ;
use strict;
print "Content-Type:text/html;win-1251\\n\\n";
print "

test

\\n";
print "
";
print "Заполните пожалуйста предложенную форму и введенные Вами данные будут добавлены в таблицу ";
print "
";
print "
";
print "    NPP  ";
print "    NUMBER ";
print"         FILM   ";
print"   AUTORS ";
print "\\n";
print "\\n";
print "\\n";
print"TIMECODE";
print"   ANNOTATION  ";
print "\\n";
print "\\n";
print "\\n";
print"DATA               DATA                           DATA";
print "\\n";
print"RELEASE            OCENKI                         END";
print "\\n";

print"";
print"                          ";
print"  ";

                           print "\\n";
                           print "\\n";
                           print "\\n";

print"                 
 ";
 print "\\n";
И ТАКОЙ СКРИПТ:
#!/usr/bin/perl
use CGI ;
$query = new CGI;
print "Content-Type:text/html;win-1251\\n\\n";
print "
test
\\n";
use dbi;
use Mysql;
$dbh = Mysql->connect($localhost, $ddd, $root);
$dbh->selectdb("ddd");
          $np = $query->param("npps");
        $numb = $query->param("numbers");
         $fil = $query->param("films");
       $autor = $query->param("autorss");
        $time = $query->param("timecodes");
       $annot = $query->param("annotations");
    $data_rel = $query->param("date_of_recordss");
   $data_ocen = $query->param("data_ocenkis");
     $data_en = $query->param("data_ends");


 $sth = $dbh->query ("insert into records(npp) values ($np)");
 $sth = $dbh->query ("insert into records(number) values ($numb)");
 $sth = $dbh->query ("insert into records(film) values (\'$fil\')");
 $sth = $dbh->query ("insert into records(autors) values (\'$autor\')");
 $sth = $dbh->query ("insert into records(time_code) values ($time)");
 $sth = $dbh->query ("insert into records(annotation) values (\'$annot\')");
 $sth = $dbh->query ("insert into records(data_ocenki) values ($data_ocen)");
 $sth = $dbh->query ("insert into records(date_of_rec) values ($data_rel)");
 $sth = $dbh->query ("insert into records(data_end) values ($data_en)");

print "http://localhost/\'>в начало";
 print "\\n";
ВОПРОС:
ПОЧЕМУ В БАЗУ ДАННЫХ ВНОСИТСЯ ТОЛЬКО СТРОКА FILM?

2
Perl / проблема с кодировкой
« : 17 Мая 2003, 14:21:13 »
perl при передаче форм из одного скрипта другому в котором (другом) на основе результата формы создается запрос к mysql пишет абракадабру насколько я понял либо mysql не понимает русского языка, либо perl передает вместо русского языка абракадабру. если кто нибудь встречался с такой проблемой помогите. кодировки менял не помогает.

3
Всё о Html / обработчик событий
« : 13 Мая 2003, 15:50:01 »
есть скрипт на перле который обращается к базе данных при помощи select где в option записано одно из полей этой самой базы
не могу сообразить как сделать обработчик событий чтобы он в зависимости от выбранного значения в этом поле после нажатия на кнопку ok выдавал все остальное прочитал море литературы по htmlу ничего что мне надо не нашел. а может все таки плохо искал?

4
Perl / список элементов
« : 12 Мая 2003, 13:41:15 »
есть список элементов выбранных из mysql по одному столбцу:
$sth = $dbh->query("select film from records");
 print "\\n";
 print "";
 как сделать так, чтобы в зависимости от выбранного пользователем элемента по нему выдавалась подробная информация то есть остальные поля.
по типу
$sth = $dbh->query("select * from records where film=выбранному элементу");
подскажите пожалуйста.

5
Всё о Html / вывод в виде таблицы
« : 02 Мая 2003, 23:18:45 »
есть некий скрипт в perle в котором имеется запрос к базе данных mysql как сделать так чтобы он в htmle выдавал в виде таблицы а то он выдает только в одну строку. :(

6
Perl / вывод таблицы
« : 14 Апреля 2003, 20:50:46 »
есть некий скрипт в perle, обращающийся к некой базе mysql. Как ни пытался в браузере выдает весь результат запроса в одну строку или столбец. подскажите как сделать так, чтобы выдавало запрос в виде таблицы.

7
Perl / есть трабла со скриптом
« : 11 Апреля 2003, 21:28:11 »
все тот же скрипт:
#!/usr/bin/perl
use CGI;
print "Content-Type:text/html\\n\\n";
print "

test

\\n";
use dbi;
use Mysql;
$dbh = Mysql->connect($localhost, $ddd, $root);
$dbh->selectdb("ddd");
$sth = $dbh->query("select * from records");
@arr = $sth->FetchRow;
$count = $arr; # Figure out how many elements.
for ($i=0;$i<=$count;$i++)
{
print "br".$arr[$#i];
}
выдает только последнюю запись таблицы, а должен весь столбец, может подскажете в чем дело?

8
Perl / в htmle ничего не выдает
« : 07 Апреля 2003, 16:40:16 »
есть такая прога на perle:
#!/perl/bin/perl
use dbi;
use Mysql;

use CGI qw(:standard);
$dbh = Mysql->connect($localhost, $ddd, $root, $ddd);
$dbh->selectdb("ddd");
$sth = $dbh->query("select * from records");
@arr = $sth->FetchRow;
$count = $#arr; # Figure out how many elements.
for ($i=0;$i<=$count;$i++) { # Print out the table names.
print(" ".$arr[$i]);
}
из-под perla выдает все как положено, а в htmle вообще ничего не выдает. в htmle пробовал и через form и через exec ничего не выходит, что не так?

9
Perl / публикация баз данных в интернете
« : 05 Апреля 2003, 18:52:22 »
люди надо написать диплом на тему "публикация баз данных в интернете" а я ни mysql, ни perl, ни html в глаза не видел. с mysql вроде разобрался с perlom чуть чуть тоже а вот собрать все это в кучу не могу поможите пожалуйста кто чем может.  я для примера написал вот такую программу:
#!/perl/bin/perl

use dbi;
use Mysql;
    $dbh = Mysql->connect($localhost, $ddd, $root, $ddd);
    $dbh->selectdb("ddd");
   $sth = $dbh->query("select * from subchapters");
@arr = $sth->FetchRow;

 $count = $#arr;                # Figure out how many elements.
  for ($i=0;$i<=$count;$i++) {   # Print out the table names.
    print("   ".$arr[$i]."\\n");
  }
в perle все работает а в html сунуть не могу. :(  :(

10
Perl / из .pl в .exe
« : 02 Апреля 2003, 12:46:37 »
подскажите ламеру как скомпилировать файл perla в .exe

11
Perl / дайте совет pleeeeeease.
« : 30 Марта 2003, 10:32:55 »
посоветуйте пожалуйста что нибудь по данной проблеме:
когда в perle подключаю mysql он (perl) сильно ругается. что я делаю не так? ppm подключены, mysql сервер настроен, все вроде должно работать, но не работает:help me pleeeeeeease. заранее спасибо.

12
Perl / help me please
« : 28 Марта 2003, 16:10:32 »
что надо настроить в mysql если perl выдает следующее:
can\'t locate object method "connect" via package "mysql" (perhaps you forgot to load "mysql") at ddd.pl line 3
mysql administrator загружен нормально.

Страницы: [1]