URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 2873
[ Назад ]
Исходное сообщение
"help"
Отправлено vic , 30-Апр-04 11:48
Как в perl результат
while (@row=$sth->fetchrow_array()){
print ("/t",@row),"/n";
}
записать в отдельный файл
Содержание
- help,ACCA, 06:43 , 03-Май-04
Сообщения в этом обсуждении
"help"
Отправлено ACCA , 03-Май-04 06:43
open OUT, ">filename.txt";
while (@row=$sth->fetchrow_array()){
print OUT join("\t",@row),"\n";
}
close OUT;