форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"perl mysqld"
Сообщение от A Clockwork Orange on 23-Мрт-04, 11:24  (MSK)
Есть такй файл #!/usr/bin/perl use DBI; use DBD::mysql; $dbh = DBI->connect('dbi:mysql:radius:localhost:3306','db_admin','123'); $cur = $dbh->prepare ("SELECT username, acctstarttime FROM radacct WHERE username='test';"); $cur->execute; Как в перле сделать что бы -вывод выдан был на экран -вывод был выдан в файл
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "perl mysqld"
Сообщение от Brainbug on 23-Мрт-04, 11:53  (MSK)
>Est' takj fajl > >#!/usr/bin/perl > >use DBI; >use DBD::mysql; > >$dbh = DBI->connect('dbi:mysql:radius:localhost:3306','db_admin','123'); > >$cur = $dbh->prepare ("SELECT username, acctstarttime FROM radacct WHERE username='test';"); >$cur->execute; > >Kak v perle sdelat' chto by >-vyvod vydan byl na `ekran >-vyvod byl vydan v fajl $cur=$dbh->prepare("select bla-bla-bla ;") || die "Prepare failed";         $cur->execute() || die "Execute failed";                 while (($usr_name,$acc_time)=$cur->fetchrow_array){                        Dobavlaje6 vivod ispolzuja print ili printf ili kakije tam e6e est funkcii vivoda.                 } Tak zhe i s failom, toka pered etim otkroj fail i pi6i v fd potom zakroj fd i vse.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "perl mysqld"
	Сообщение от A Clockwork Orange on 23-Мрт-04, 12:18  (MSK)
	вывод пошел все в одну строку
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "perl mysqld"
	Сообщение от Brainbug on 23-Мрт-04, 12:25  (MSK)
	>vyvod poshel vse v odnu stroku print "bla-bla-bla\n"; man perlfunc
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "perl mysqld"
	Сообщение от Narg on 23-Мрт-04, 12:28  (MSK)
	>вывод пошел все в одну строку а признак конца строки ставил? \n  для print или printf
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "perl mysqld"
	Сообщение от A Clockwork Orange on 23-Мрт-04, 12:31  (MSK)
	ptintf $usr_name \n пробовал ошибку валит
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "perl mysqld"
	Сообщение от A Clockwork Orange on 23-Мрт-04, 12:32  (MSK)
	получилось с ковычками
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.