- BEST_PEOPLE (2:5077/15.22) ---------------------- BEST_PEOPLE (RU.INTERNET) -
From : Igor Nikolaev 2:5030/266 01 Aug 00 02:23:00
Subj : Re: Генератор прайс-листа
-------------------------------------------------------------------------------
* Forwarded from area 'RU.INTERNET'
Nikolay Pichtin <Nikolay_Pichtin@f30.n5056.z2.fidonet.org> wrote:
> "Генератор прайс-листа"
[skip рекламу]
"Генератор чего угодно"
Предлагаю неоригинальный скрипт на языке Perl,
который разработан специально для того, чтобы Вы могли
просто и с минимальными затратами времени и сил разместить
и администрировать что попадло где угадно.
Мой скрипт разработан таким образом, что генерируемый им
что попадло может иметь какой угадно дизайн по Вашему
вкусу, и состоять из любого набора символов, без каких
либо ограничений. Принимая в качестве параметра html-файл
шаблона скрипт его самостоятельно считывает и печатает.
#!/usr/bin/perl -wT
open ( FH, 'price.cvs' ); chomp ( my %hash = map { split /,/, $_, 2 } <FH> );
undef $/; open ( FF, 'form.html' ); ( my $s= <FF> ) =~ s/\$(\w*)/$hash{$1}/g;
print "Content-type: text/html\n\n$s";
--
&Copyleft; 2000 Игорь Hиколаев
P.S. Вообще-то эта фигня ещё и работает,
price.cvs: товар,цена
form.html: <td>товар</td><td>$товар</td>
Такой мишуры в ru.cgi.perl сколько угодно и
продавать её за деньги - выше моего понимания.
--
И
--- ifmail v.2.12.os.sensi * Origin: Дегенератор (2:5030/266@fidonet)
