[Perl] Новичкам: задаем вопросы

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
[Perl] Новичкам: задаем вопросы

Страница 101 из 156

101

Опции темы

Поиск в этой теме

Опции просмотра

#1001

24.03.2009, 14:11

ph1l1ster

Постоянный

Регистрация: 11.03.2008

Сообщений: 347

С нами: 9561436

Репутация: 462

perl желательно, но смысл понятен, полюбому можно неиспользую for. ток как?)

#1002

24.03.2009, 15:23

akil

Новичок

Регистрация: 03.11.2007

Сообщений: 9

С нами: 9748340

Репутация: 12

можно если написать

Код:

while($get->content){
  if (/<a href=\"(.*)\">/)
  {
     print "$1\n";
  }
}

#1003

24.03.2009, 15:40

demond

Участник форума

Регистрация: 05.11.2008

Сообщений: 105

С нами: 9217801

Репутация: 71

Я бы сделал что-то типа такого:

Код:

 print $1 while($get->content =~ /<a href=\"(.*)\">/igm);

А вообще в регулярных выражениях есть еще такая штука: \G - граница, на которой остановился предыдущий глобальный поиск, выполняемый командой m/.../g, может она поможет, если такой код не сработает!

#1004

24.03.2009, 17:09

roddik

Познающий

Регистрация: 14.01.2009

Сообщений: 93

С нами: 9116636

Репутация: 39

Код:

my @arr = $get->content =~ /<a href=\"(.*)\">/g;
print join "\n", @arr;

#1005

27.03.2009, 18:35

KaZ@NoVa

Постоянный

Регистрация: 05.07.2008

Сообщений: 555

С нами: 9394886

Репутация: 1467

Отправить сообщение для KaZ@NoVa с помощью AIM

Отправить сообщение для KaZ@NoVa с помощью Yahoo

Цитата:

Сообщение от ph1l1ster

Код:

if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}

выводит только первую найденную. как вывести все найденные?

Попробуй вместо 1 написать all

#1006

27.03.2009, 18:38

roddik

Познающий

Регистрация: 14.01.2009

Сообщений: 93

С нами: 9116636

Репутация: 39

Цитата:

Сообщение от ph1l1ster

Код:

if ($get->content =~ /<a href=\"(.*)\">/)
{
print "$1\n";
}

выводит только первую найденную. как вывести все найденные?

Код:

my $a = q[f549ty3945g9h48hg34hg430ghgh4gh3470gh473g5834];
my @b = $a =~ /(\d+)/g;
print join "\n", @b;

__END__
549
3945
9
48
34
430
4
3470
473
5834

#1007

27.03.2009, 22:53

[dei]

Участник форума

Регистрация: 24.11.2008

Сообщений: 205

С нами: 9190406

Репутация: 362

Цитата:

Сообщение от Bermood

Проблемы с компиляцией Perl 5.Подскажите!
<javascript:alert("Help!")>

http://www.activestate.com/activeperl/

#1008

30.03.2009, 00:21

zavra

Участник форума

Регистрация: 12.03.2008

Сообщений: 159

С нами: 9559919

Репутация: 137

Привет! Я хочу сграббить все главные темы с blogs.yandex.ru.

PHP код:


		
			
$req = $ua->get("http://blogs.yandex.ru")->as_string;

my $topic= $1 if $req=~/<i class=\"ico\"><\/i>(\w+)</;

printf "$topic";

Однако я получу только первую тему. Как сделать так, чтобы получить все три темы?

#1009

30.03.2009, 00:37

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

напиши типа

PHP код:


		
			
my @topic = $req =~ /<i class="ico\"><\/i>(\w+)</gm;

print @topic;

#1010

31.03.2009, 02:05

genom--

Постоянный

Регистрация: 09.07.2006

Сообщений: 937

С нами: 10441826

Репутация: 1686

ps юзайте дефолтывою переменную куда совпадение с маской поиска закидывается $& чтобы лишний массив topic не пихать

Страница 101 из 156

101

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[c/c++] Новичкам: задаем вопросы	_Great_	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	5421	21.04.2026 07:37
[php] Новичкам: задаем вопросы	_Great_	PHP	16396	17.06.2010 21:19
Вопросы по Ipb 2.0	Voodoo_People	Уязвимости CMS / форумов	26	15.02.2005 22:57

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход