|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ivan Frolcov 2:5020/175.2 09 Apr 2004 16:21:08
To : Eugene Efremov
Subject : HTML->MySQL
--------------------------------------------------------------------------------
Tue Mar 30 2004 14:37, Eugene Efremov wrote to Eugen Pozdniakov:
EE> А чего тут делать?
Правильно. Трясти надо.
EE> print "INSERT htmlbase (filename, htmldata) VALUES\n";
EE> foreach(`ls *.html`)
"Извозчик ответил коротко, но сильно"
EE> {
EE> open(HTML,"$_") or die("File $_ not foind");
Если не секрет - кавычки около $_ зачем?
Далее, разумеется, ничего неожиданного:
EE> $fn=$_;
EE> $text="";
EE> while(<HTML>)
EE> {
EE> s/'/\\'/g;
EE> $text.=$_;
EE> }
EE> print "('$fn','$text'),\n";
EE> close(HTML);
EE> }
EE> print "('default','<html><body><p>This file has no name');\n";
EE> Получаешь на выходе sql.
Короче, жуть вампирная.
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
HTML->MySQL |
Eugen Pozdniakov |
26 Mar 2004 11:43:09 |
 Re: HTML->MySQL |
Yury Kopyl |
26 Mar 2004 12:05:16 |
|
HTML->MySQL |
Ivan Frolcov |
26 Mar 2004 12:29:48 |
 HTML->MySQL |
Eugene Efremov |
30 Mar 2004 15:37:40 |
 HTML->MySQL |
Ivan Frolcov |
09 Apr 2004 16:21:08 |
|
|
