|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Smirnov 2:5020/400 19 Mar 2001 13:57:21
To : All
Subject : Re: <title> </title>
--------------------------------------------------------------------------------
> MS> foreach (<DATA>) {
> MS> if ( $str = /.*\.html$/ ) {
>
> А это зачем?!
Это я глючу ;-)
> MS> $title=m|<title>(.*)</title>|; #Regexp
>
> m|<title>(.*)</title>| ? $title=$1 : undef $title;
Да, коротко и красиво.
Hо ведь мы не знаем, в какой строчке html-файла находится тег <title>,
поэтому приходится читать с начала файла и искать тег.
А насчет того, где доступен $1, я не уверен.
Пока работает только так:
foreach (<DATA>) {
chomp;
if ( m|<title>(.*)</title>| && ($title=$1) ) {
print "тря-ля-ля...$title";
last;
}
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
