Это поможет вам.
$re['phone_v'] = 0;
$re['phone'] = 1;
$crusers[0]['phone'] = 1;
if($re['phone_v'] == "1"){
echo "Yes";
}else{
if($re['phone_v'] == "0")
{
for($i=0;$i < count($crusers);$i++)
{
if ($re['phone'] == $crusers[$i]['phone'])
{
echo "Yes11";
}else{
echo "No";
}
}
}
}
Почти какое-либо время, когда Вы спрашиваете, "Как я могу сделать X в Perl?", ответ должен посмотреть на Поиск CPAN для нахождения модуля, который делает это.
Для загрузки с сети семейство LWP модулей может помочь Вам. Для парсинга документов попробуйте что-то Каналом, RSS или Atom на имя.
Четыре года спустя, тем не менее, я теперь рекомендую Mojolicious, который имеет его собственный модуль агента пользователя и очень мощную поддержку парсинга DOM и различных способов вытащить части документа. В зависимости от того, что Вы хотите, Вам, вероятно, больше не нужен специальный модуль канала.
Оба XML:: RSS и XML:: Atom существует. Предупредите - XML:: Atom, кажется, активно не сохраняется и по сообщениям имеет ошибки. Но основ должно быть достаточно для получения Вас движение.
Выбирать подачу LWP:: Простой хороший выбор.
Я обнаружил, что XML :: Feed намного лучше справляется с ошибками, которые вы будет, если вы попытаетесь проанализировать произвольные каналы, создание которых вы не контролируете.