 |
|
02.01.2009, 23:39
|
|
Участник форума
Регистрация: 11.05.2007
Сообщений: 149
Провел на форуме:
6373157
Репутация:
247
|
|
Код:
perl -F':' -ane 'print @F' test.txt | tee -a parse.txt
|
|
|
03.01.2009, 02:32
|
|
Новичок
Регистрация: 31.12.2008
Сообщений: 1
Провел на форуме:
4654
Репутация:
0
|
|
извините конечно за тупой вопрос, но КАК использовать перл скрипт?????
|
|
|
|
03.01.2009, 15:39
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
ставь active perl -- погугли для скачки
создаешь файл с расширением .pl - это будет скрипт
птом или кликай два раза по нем и выстави задержку на гашение
или пуск - выполнить - cmd и там уже путь к скрипту и запускай
|
|
|
|
04.01.2009, 00:23
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
Есть файл
wqrwqretret
idiot:1
neidiot:2
dgdfbfcgdfgdfg
idiot:3
neidiot:5
asfsafsdf
и т.д.
Мну хочет вытащить инфу после idiot и neidiot и записать в файл в виде
1:2
1:2
1:2
и т.п.
значитс грузится этот текст в массив @array
Потом с помощью foreach перебирается каждый елемент, если в строке $_ найдено idiot или neidiot, то записывается в переменную, дальше мне нужно если оба эти элемента присутсвуют вывести их, но тут то и загвоздка, ведь присутсвует только один элемент...Вообщем код:
foreach(@array) {
chomp($_);
if($_=~m/регулярка/ig) { $idiot=$_}
if($_=~m/регулярка/ig) { $neidiot=$_}
}
Все свои бредовые идейки потер ибо не получается  |
|
|
|
04.01.2009, 00:30
|
|
Постоянный
Регистрация: 21.08.2008
Сообщений: 302
Провел на форуме:
458686
Репутация:
-25
|
|
Всем привет! Всех с новым годом! Помогите с литературой по перл? пхп освоил теперь вот хочу перл освоить помогите!!
|
|
|
|
04.01.2009, 01:13
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
Провел на форуме:
9257858
Репутация:
979
|
|
"perl за 24 часа"
|
|
|
|
04.01.2009, 02:13
|
|
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Потом с помощью foreach перебирается каждый елемент, если в строке $_ найдено idiot или neidiot, то записывается в переменную, дальше мне нужно если оба эти элемента присутсвуют вывести их, но тут то и загвоздка, ведь присутсвует только один элемент...Вообщем код:
Ты отчеты пинча на логины и пароли парсить пытаешься что ли?
|
|
|
|
04.01.2009, 14:45
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
насчет литературы:
можешь читать ченить типо perl за 24 часа и потом уже по неообходимости инфу добывать в нете или perl доке по модулям различным и фичам
или читай сразу большие и толстые книги у Кристиансона хорошие
|
|
|
|
05.01.2009, 01:10
|
|
Познающий
Регистрация: 12.11.2007
Сообщений: 94
Провел на форуме:
4789789
Репутация:
71
|
|
Я советую вот эту почитать .
Perl. Специальный справочник
Всё очень хорошо описано...
|
|
|
|
05.01.2009, 14:19
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
Помогите с многопточностью
use LWP::Simple;
use strict;
use threads;
use threads::shared;
my $start : shared=20;
my $finish : shared=100;
my $potok=5;
my @tred;
for (my $i=0;$i<=$potok;$i++) {
$tred[$i]=threads->create(\&pars,$start,$finish);
print "$i create\n";
}
my $last=$#tred;
for (my $x=0;$x<=$last;$x++){
$tred[$x]->join;
}
sub pars {
my $start=$_[0];
my $finish=$_[1];
while ($start < $finish){
my $url="url/$start/";
print "Search on URL: $url\n";
my $response=get $url;
$start++;
}
Каждая нить выполняет один и тот же запрос, т.е. я поставил 5 потоков и у меня вместо:
1,2,3,4,5
Выполняется
1,1,1,1,1,2,2,2,2,2....
Подскажите поажлуйста как исправить |
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
