|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Eugene Efremov 2:5020/518.48 30 Mar 2004 15:37:40 To : Eugen Pozdniakov Subject : HTML->MySQL -------------------------------------------------------------------------------- Friday March 26 2004 10:43, Eugen Pozdniakov wrote to All: EP> Есть куча небольших (до 3Кб) .html файлов (более 2000). Hадо код перегнать EP> в базу MySQL. EP> Кто-нить делал подобное, подкинте идею реализации. А чего тут делать? print "INSERT htmlbase (filename, htmldata) VALUES\n"; foreach(`ls *.html`) { open(HTML,"$_") or die("File $_ not foind"); $fn=$_; $text=""; while(<HTML>) { s/'/\\'/g; $text.=$_; } print "('$fn','$text'),\n"; close(HTML); } print "('default','<html><body><p>This file has no name');\n"; Получаешь на выходе sql. WBR, Eugene --- GoldED+/W32 1.1.5-030609 * Origin: 4mirror@mail.ru (2:5020/518.48) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/400140695dea.html, оценка из 5, голосов 10
|