ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Smirnov 2:5020/400 19 Mar 2001 21:01:54
To : All
Subject : Re: <title> </title>
--------------------------------------------------------------------------------
> > > А два - лучше делать (.*?) между тэгами.
> > > Мало ли...
> > Это на случай "<title>\n</title>" ? :-)
> Hет.
> Это на случай:
> <title>....</title><!-- <title> .... </title> -->
Спасибо!
Судя по увеличению скорости работы,
теперь скрипт считывает только необходимую часть файла:
open(DATA, $file) or die "Can't open input file\n";
local $/ = undef;
if ( <DATA> =~ m|<title>(.*?)</title>|is ) {
print "$1 \n";
}
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
