Perl vs Регулярные выражения

[FANTAzeRus]

Имеем: два тега

и

Нужно: проверить есть ли что нибудь внутри, кроме других тэгов и пробельных символов

Помогите плиз!!! Горю!!!

[NeoNox]

Вариант:
if ($text =~ /

.+?[^<> ]<\\/p>/){print "Ok!"}

[FANTAzeRus]

$text="

g e g r

";
if ($text =~ /

.+?[^<> ]<\\/p>/) {print "Ok!"}

Возвращает ЛОЖЬ!!!!

[Chs]

Еще вариант:
if ($text =~ /

.*?<\\/p>.*/) {print "Ok!"}

[FANTAzeRus]

2 Chs: Ты сам то пробовал этот вариант??

$text="

"; Возвращает True
$text="

"; Возвращает True

А должно быть False!!!

[Chs]

Ну постановку невнимательно прочитал - извиняй.

if ($text =~ /

(.+?)<\\/p>.*/)
 {
   $t = $1;
   $t =~ s/<[^>]+>//g;
   print "Ok!" if ($t =~ /\\S/);
 }

[NeoNox]

FANTAzeRus:
Нужно: проверить есть ли что нибудь внутри, кроме других тэгов и пробельных символов

FANTAzeRus:
$text="

g e g r

"; if ($text =~ /

.+?[^<> ]<\\/p>/) {print "Ok!"}

Возвращает ЛОЖЬ!!!!

У тебя же между тегами есть пробелы...
Ты определись что тебе нужно.