|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Denis Poznyakov 2:5020/400 14 May 2003 19:05:28
To : Denis
Subject : Re: почему код не работает?
--------------------------------------------------------------------------------
open HTML, ">titles.htm";
print HTML "<body>\n";
while(<*.html>){
{ open FL, $_; $/=undef; $cont = <FL>; close FL; }
if ($cont =~ /<title>(.*?)<\/title>/) {
print HTML "<a href=$_><font color=006699
size=+1>$1</font></a><br>\n";}
}
print HTML "</body>";
close HTML;
print "\n\rCompleted.";
"Denis" <d86@rol.ru> wrote in message news:b9tifb$ode$1@news.rol.ru...
> Хай ВСЕМ!!!!
>
> Вот мой неработающий код:
> ============================
> 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: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: почему код не работает? 