|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Smirnov 2:5020/400 19 Mar 2001 17:51:34
To : All
Subject : Re: <title> </title>
--------------------------------------------------------------------------------
> smver> foreach (<DATA>) {
> smver> chomp;
> smver> if ( m|<title>(.*)</title>| && ($title=$1) ) {
> smver> print "тря-ля-ля...$title";
> smver> last;
> smver> }
>
> <title>Заголовок,
> разрезанный на две строки</title>
>
> вышеприведенная конструкция, вкупе с модификатором s оператора m, как раз
> спасает. Зато прочесть придется весь файл. Можно было бы порекомендовать
> $/="</title>", что позволит вырезать содержимое <title>..</title>, но не
> позволит решить задачу, стоящую на самом деле, то есть вырезать заголовок
> HTML-документа - имена тегов case insensitive.
Да, работает:
$_=join('',<DATA>);
if ( m|<title>(.*)</title>|is && ($title=$1) ) {
print "......";
}
Жаль, что не работает это:
if ( <DATA> =~ m|<title>(.*)</title>|is && ($title=$1) ) {
print "......";
}
Хотелось бы как-нибудь совместить чтение из файла с поиском
в одной строчке.
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: <title> </title> 