|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
