ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 13.04.2007, 21:22
flipper
Участник форума
Регистрация: 05.09.2006
Сообщений: 184
Провел на форуме:
888851

Репутация: 203
По умолчанию

Код:
#/usr/bin/perl -w 

open(FIL, "<file.html");
open(SUC, ">SUCCESS.txt");
@fil=<FIL>;
foreach $str(@fil) {
   if ($str=~m/<a href="\/album\/(\d+)\/"/) {
         push (@URLS,"$1\n");
}}
print SUC @URLS;
 close (FIL);
 close (SUC);
ps: подпись у топикстартера прикольная
 
Ответить с цитированием

  #12  
Старый 13.04.2007, 22:23
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601

Репутация: 495
По умолчанию

Цитата:
Сообщение от flipper  
ps: подпись у топикстартера прикольная
ну плин перл учу месяц-немогу понять я эти регулятивные выражения, а услуги спэма предоставляю добросовисно
 
Ответить с цитированием

  #13  
Старый 14.04.2007, 00:04
hidden
Постоянный
Регистрация: 23.04.2006
Сообщений: 622
Провел на форуме:
5887054

Репутация: 1292


По умолчанию

Цитата:
Сообщение от KSURi  
да на*** вы чето в регесп суете, если человек говорит, что ему тупо надо числа эти в файл забросить?

Код:
# $html - тут сорец страницы
my @nums = $html =~ /\d+/g;
open(OUT, '>', 'out.txt') || die $!;
print OUT join("\n", @nums);
close OUT;
А теперь немного подумаем? Сколько циферок оно соберёт на странице типа:
PHP код:
<td><input type="radio" name="iconid" value="12" id="rb_iconid_12" tabindex="1" onclick="swap_posticon('pi_12')"  /></td>
<
td width="12%"><label for="rb_iconid_12"><img src="images/icons/icon12.gif" alt="Wink" id="pi_12" onclick="rb_iconid_12.click()" /></label></td>
<
td><input type="radio" name="iconid" value="11" id="rb_iconid_11" tabindex="1" onclick="swap_posticon('pi_11')"  /></td>
<
td width="12%"><label for="rb_iconid_11"><img src="images/icons/icon11.gif" alt="Red face" id="pi_11" onclick="rb_iconid_11.click()" /></label></td>
<
td><input type="radio" name="iconid" value="10" id="rb_iconid_10" tabindex="1" onclick="swap_posticon('pi_10')"  /></td>
<
td width="12%"><label for="rb_iconid_10"><img src="images/icons/icon10.gif" alt="Talking" id="pi_10" onclick="rb_iconid_10.click()" /></label></td>
<
td><input type="radio" name="iconid" value="9" id="rb_iconid_9" tabindex="1" onclick="swap_posticon('pi_9')"  /></td>
<
td width="12%"><label for="rb_iconid_9"><img src="images/icons/icon9.gif" alt="Unhappy" id="pi_9" onclick="rb_iconid_9.click()" /></label></td
А ведь ему явно задано, что циферки должны находиться внутри href
Код:
$xxx = '
<td><a href="/users/1456031/"id="good">Username</a></td>;
<td><a href="/users/1456032/"id="good">Username</a></td>;
<td><a href="/users/1456033/"id="good">Username</a></td>;
';

@yyy = $xxx =~ m#<a href="/users/(\d+)/"#gi;

open(OUT, '>', 'out.txt')|| die $!;
print OUT join "\n", @yyy;
close OUT;
Так и просто, и правильно.
 
Ответить с цитированием

  #14  
Старый 14.04.2007, 00:18
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию

Цитата:
Сообщение от hidden  
А теперь немного подумаем? Сколько циферок оно соберёт на странице типа:
PHP код:
<td><input type="radio" name="iconid" value="12" id="rb_iconid_12" tabindex="1" onclick="swap_posticon('pi_12')"  /></td>
<
td width="12%"><label for="rb_iconid_12"><img src="images/icons/icon12.gif" alt="Wink" id="pi_12" onclick="rb_iconid_12.click()" /></label></td>
<
td><input type="radio" name="iconid" value="11" id="rb_iconid_11" tabindex="1" onclick="swap_posticon('pi_11')"  /></td>
<
td width="12%"><label for="rb_iconid_11"><img src="images/icons/icon11.gif" alt="Red face" id="pi_11" onclick="rb_iconid_11.click()" /></label></td>
<
td><input type="radio" name="iconid" value="10" id="rb_iconid_10" tabindex="1" onclick="swap_posticon('pi_10')"  /></td>
<
td width="12%"><label for="rb_iconid_10"><img src="images/icons/icon10.gif" alt="Talking" id="pi_10" onclick="rb_iconid_10.click()" /></label></td>
<
td><input type="radio" name="iconid" value="9" id="rb_iconid_9" tabindex="1" onclick="swap_posticon('pi_9')"  /></td>
<
td width="12%"><label for="rb_iconid_9"><img src="images/icons/icon9.gif" alt="Unhappy" id="pi_9" onclick="rb_iconid_9.click()" /></label></td
А ведь ему явно задано, что циферки должны находиться внутри href
Код:
$xxx = '
<td><a href="/users/1456031/"id="good">Username</a></td>;
<td><a href="/users/1456032/"id="good">Username</a></td>;
<td><a href="/users/1456033/"id="good">Username</a></td>;
';

@yyy = $xxx =~ m#<a href="/users/(\d+)/"#gi;

open(OUT, '>', 'out.txt')|| die $!;
print OUT join "\n", @yyy;
close OUT;
Так и просто, и правильно.
Незабываем, что первоначальное задание было в одной строке, с одной парой цифр. По нему я и писал.
 
Ответить с цитированием

  #15  
Старый 14.04.2007, 00:21
hidden
Постоянный
Регистрация: 23.04.2006
Сообщений: 622
Провел на форуме:
5887054

Репутация: 1292


По умолчанию

Цитата:
Сообщение от KSURi  
Незабываем, что первоначальное задание было в одной строке, с одной парой цифр. По нему я и писал.
Так-же не пропускаем 7-ой пост
 
Ответить с цитированием

  #16  
Старый 14.04.2007, 00:28
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию

Цитата:
Сообщение от hidden  
Так-же не пропускаем 7-ой пост
Не читал, тк "зае*** порционно выдавать" =\

Последний раз редактировалось hidden; 14.04.2007 в 00:34.. Причина: Мат
 
Ответить с цитированием

  #17  
Старый 14.04.2007, 00:49
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601

Репутация: 495
По умолчанию

Ребята спасибо помогли разобрался
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Иллюстрированный самоучитель по Perl system_32 PHP, PERL, MySQL, JavaScript 0 14.03.2007 08:01
Опасность ошибок Perl недооценивалась? 1251soldier Мировые новости 0 01.12.2005 20:56
Books Perl FRAGNATIC PHP, PERL, MySQL, JavaScript 0 11.08.2005 16:58
Безопасность приложений на Perl k00p3r Чужие Статьи 0 12.06.2005 09:39



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


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




ANTICHAT.XYZ