|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Denis 2:5020/400 14 May 2003 18:05:51
To : All
Subject : почему код не работает?
--------------------------------------------------------------------------------
Хай ВСЕМ!!!!
Вот мой неработающий код:
============================
open HTML, ">titles.htm";
print HTML "<body>\n";
while(<*.txt>){
open FL, "<$_";
@fcontent = <FL>;
close FL;
$cont = "@fcontent";
$cont =~ s/.*?<title>/B/gi;
$cont =~ s/<\/title>.*/E/gi;
# print HTML "<a href=$_><font color=006699 size=+1>$cont</font></a><br>\n";
print HTML "ыфваджфлыва";
}
print HTML "</body>";
close HTML;
print "\n\rCompleted.";
<>;
============================
Это просто файлик под виндос, но он не работает.
Как вы наверное поняли, я из тхт файлов текущей директории выдираю все слова
между тэгами <title> and </title>
и забиваю их в html формат файла, и файл тоже хтмл.
После выполнения кода у меня в файле выходном только <body></body> Почему?
Возможно... скорее всего надо описать глобальные переменные?
Hо как тогда, сделать так чтобы эта штуковина заработала?
С Уважением, Denis.
E-mail: d86@rol.ru
--- ifmail v.2.15dev5
* Origin: Golden Telecom (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
