|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 19 Mar 2001 21:40:23 To : smb@mh.vstu.edu.ru Subject : Re: <title> </title> -------------------------------------------------------------------------------- du.ru> From: ran@ran.pp.ru (Artem Chuprina) Здравствуй, Michael Smirnov. В твоём письме от Mon, 19 Mar 2001 17:01:54 +0000 (UTC) написано: >> > А два - лучше делать (.*?) между тэгами. >> > Мало ли... >> Это на случай "<title>\n</title>" ? :-) >> Hет. >> Это на случай: <title>>....</title><!-- <title> .... </title> --> smver> Спасибо! smver> Судя по увеличению скорости работы, smver> теперь скрипт считывает только необходимую часть файла: Hет. Hо он это делает за одну операцию. smver> open(DATA, $file) or die "Can't open input file\n"; smver> local $/ = undef; smver> if ( <DATA> =~ m|<title>(.*?)</title>|is ) { smver> print "$1 \n"; smver> } -- Artem Chuprina E-mail: ran@ran.pp.ru Programmer FIDO: 2:5020/371.32 Memonet Ltd. Phone: +7-095-284-1356 --- ifmail v.2.15dev5 * Origin: NTV Internet (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/164833c68c40d.html, оценка из 5, голосов 10
|