Форум АНТИЧАТ - Показать сообщение отдельно

Пиф он имел регулярку ^^

Php:

PHP код:


		
			
$site = file_get_contents('http://www.antichat.ru'); 

preg_match("#<div>(.*)</div>#isU", $site, $out); 

echo $out['1']; // Это твой id

Perl: (Покажу напримера файла)
Сделал файл page.html с содержанием:

Код HTML:

<html>
<head>
<title>PERL regexp</title>
</head>
<body>
<h1>File where I serach text</h1>
<DIV>I NEED THIS TEXT</DIV>
</body>
</html>

Тут I NEED THIS TEXT то что нам надо искать...
Вот perl скрипт:

PHP код:


		
			
#!/usr/bin/perl



open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";

while(defined($file = <DATAFILE>)) 

{

if($file=~m%(<DIV>(.*)</DIV>)%igs)

    {

$file=~s%(<DIV>(.*)</DIV>)%%igs;

print "Result: $2";

    }

}

Запустил, результат:

Цитата:

C:\Perl\bin>perl scr/reg.pl
Result: I NEED THIS TEXT
C:\Perl\bin>