bugerok
Профессор
- Регистрация
- 9 Апр 2008
- Сообщения
- 299
- Реакции
- 48
- Автор темы
- #1
Нашел скрипт для вывода значений из txt базы дынных:
База
Id1;Audi R8;35.000$;12
Другими словами, разделить не новая строка, а ";"
PHP:
#!/usr/bin/perl
$Baze_data_file='file.txt'; # Имя файла в котором лежать данные
$StartIndex=0; # Номер записи в БД с которого начинать вывод
open(yo_potok, "<$Baze_data_file"); # открыть файл на чтение
@My_DataBaze=<yo_potok>; # Массив будет теперь содержать данные из файла
close (yo_potok); # закрыть файл
# Составляем текст который будет выведен в переменную "$Body":
$Body="";
$FlagN=1;
for ($n=$StartIndex; $FlagN==1; $n=$n+1){
$n_index=$n * 4; # Где 3 - количество строк на одну запись
$Article=$My_DataBaze[$n_index];
if ($Article){ # Если поле не пустое, то запись есть
$Name=$My_DataBaze[$n_index+1];
$Cena=$My_DataBaze[$n_index+2];
$Col=$My_DataBaze[$n_index+3];
chomp($Article);
chomp($Name);
chomp($Cena);
chomp($Col);
$Body="$Body <b>Артикул:</b><i>$Article</i>;<b> Наименование:</b><i>$Name</i>;<b> Цена:</b><i>$Cena</i>;<b> Количество:</b><i>$Col</i>;<BR>";
}else{$FlagN=0;} # Если поле пустое, то записи нет, это конец базы
}
print "Content-Type: text/html\n\n"; # показать что мы начинаем вывод HTML
print "<html><body>\n"; # тело HTML
print "$Body\n";
print "</body></html>\n"; # завершить тело HTMLКак сделать, что бы скрипт работал с базой вида:
Id1;Audi R8;35.000$;12
Другими словами, разделить не новая строка, а ";"