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

Discussion in 'PHP' started by _Great_, 26 May 2007.

Thread Status:
Not open for further replies.
  1. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Для парсинга страниц используются регулярные выражения, дополнительные модули тут не нужны. Для получения содержимого страниц юзайте модуль LWP
     
  2. vladan

    vladan New Member

    Joined:
    21 Feb 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    Может кто подскажет как работать с модулем dbi?
    Code:
    $dbh->do("ЗАПРОС");
    Возвращает кол-во измененных строк, как мне показать сами строки?Запрос примерно такой

    Code:
    SELECT `namesite` FROM  `users` WHERE  `name` LIKE  '$domen'
     
  3. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    А с документацией по модулю ознакомиться - не вариант?
    http://search.cpan.org/~timb/DBI-1.609/DBI.pm
     
    _________________________
  4. 090808

    090808 Member

    Joined:
    15 Mar 2009
    Messages:
    171
    Likes Received:
    46
    Reputations:
    10
    Где взять инклуд Javascript.pm?
     
  5. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    http://search.cpan.org/~claesjac/JavaScript-1.15/lib/JavaScript.pm
     
  6. vladan

    vladan New Member

    Joined:
    21 Feb 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    попробовал так

    Code:
    my $namesite = $dbh->prepare("SELECT `namesite` FROM  `users` WHERE  `name` LIKE  '$domen' LIMIT 0 , 30");
                                  $sth->execute( $namesite ); 
                                  $name = $sth->fetchrow_array;
    print "$name";
    
    не получаю ни чего. Подскажи
     
  7. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    А по мануалу попробовать?
     
    _________________________
  8. vladan

    vladan New Member

    Joined:
    21 Feb 2009
    Messages:
    7
    Likes Received:
    0
    Reputations:
    0
    решил так

    Code:
    $sth = $dbh->prepare("SELECT `namesite` FROM  `users` WHERE  `name` LIKE  '$domen' LIMIT 0 , 30");
    $sth->execute(); 
    @row = $sth->fetchrow_array;
    
    print "@row";
     
  9. daniel_1024

    daniel_1024 Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    260
    Likes Received:
    227
    Reputations:
    386
    подскажите как сделать чтобы программа считывала из заданного пользователем с клавиатуры текстовика по строке, и производила с ней какие - либо действия ? и результат потом записывала в текстовый файл.
     
  10. LStr1ke

    LStr1ke Elder - Старейшина

    Joined:
    29 Jul 2009
    Messages:
    801
    Likes Received:
    145
    Reputations:
    73
    PHP:
    <form method="POST">
        <textarea name="input_text" rows="10" cols="50"></textarea>
        <input type="submit" />
    </form>
    <?php
    if(isset($_POST['input_text'])) 
    {
        
    $text_arr explode("\n",$_POST['input_text']);
        
    $handler fopen("result.txt","w");
        for(
    $i 0$i count($text_arr); $i++) 
        {    
            
    fputs($handler,"Строка $i > ".$text_arr[$i]."\n");
        }
        
    fclose($handler);
    }
    ?>
     
  11. daniel_1024

    daniel_1024 Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    260
    Likes Received:
    227
    Reputations:
    386
    можно то же самое на perl ? а не на пхп
    топик всё-таки называется "[Perl] Новичкам: задаем вопросы"..я сюда и постил.
     
  12. .Slip

    .Slip Elder - Старейшина

    Joined:
    16 Jan 2006
    Messages:
    1,571
    Likes Received:
    977
    Reputations:
    783
    $file = <STDIN>;
    open(FILE, "<$file");
    while($line = <FILE>)
    {
    #действия
    }
    open(FILE2, ">$file2");
    close(FILE);
    close(FILE2);
    Ты это ожидал увидеть?
     
    2 people like this.
  13. daniel_1024

    daniel_1024 Elder - Старейшина

    Joined:
    15 Jul 2009
    Messages:
    260
    Likes Received:
    227
    Reputations:
    386
    del
     
    #1413 daniel_1024, 31 Jan 2010
    Last edited: 3 Feb 2010
  14. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    696
    Likes Received:
    404
    Reputations:
    134
    хелп.нужен скрипт на перле со скулей в запросе. БД -сибейз.

    чтоб не было проблем, вот с чего начинется рабочий скрипт:
    или дампер баз Sybase на перле.
     
    #1414 $n@ke, 3 Feb 2010
    Last edited: 3 Feb 2010
  15. Fepsis

    Fepsis Elder - Старейшина

    Joined:
    17 Sep 2008
    Messages:
    791
    Likes Received:
    391
    Reputations:
    72
    Парни, знаю, что вопрос уже поднимался, но всё же, гляньте профессиональным взглядом... Может подскажите где косяк...

    Заливаю картинку на сервер:


    Code:
    sub rload
      {
    	my ($url, $post_data, $ref) = @_;
    	my $request = HTTP::Request->new(POST  => $url);
    
    	$request->header(
    
    	'User-Agent' => "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.4) Gecko/20091016 Firefox/3.5.4",
    	'Content-Length' => length($post_data),
    	'Referer' => $ref
    
    	);
    
    
    	$request->content_type('multipart/form-data; boundary=---------------------------1234567890');
    	$request->content($post_data);
    
    
    	my $result = $robot->request($request);
    	$cookie_jar->extract_cookies($result);
    	return $result->headers_as_string()."\n\n".$result->content();
    }
    
    
    $url = 'http://урл';
    $ref = 'http://урл';
    
    
    open(F, 'foto.jpg'); 
    $file = join("", <F>);
    close(F);
    
    
    $post_data =
    "---------------------------1234567890\n".
    "Content-Disposition: form-data; name=\"a\"\n\n".
    "addfoto\n".
    "---------------------------1234567890\n".
    "Content-Disposition: form-data; name=\"s\"\n\n".
    "---------------------------1234567890\n".
    "Content-Disposition: form-data; name=\"d\"\n\n".
    "1\n".
    "---------------------------1234567890\n".
    "Content-Disposition: form-data; name=\"to\"\n\n".
    "---------------------------1234567890\n".
    "Content-Disposition: form-data; name=\"addfile\"; filename=\"foto.jpg\"\n".
    "Content-Type: image/jpeg\n\n".
    $file."\n";
    
    
    $ex = rload($url, $post_data, $ref);
    ПС: то, что я картинку открываю неправильно, это я знаю... Обещаю исправиться :) Это вроде не столь важно, так как при таком открытии картинка искажённая получается, но мне хотябы искажённую залить пока или получить ответ, что формат картинки неверный.. А так возвращает форму загрузки картинки.. :(
     
  16. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Fepsis, perldoc HTTP::Request::Common. Там есть пример, как отсылать POST-ом файл
     
    1 person likes this.
  17. Fepsis

    Fepsis Elder - Старейшина

    Joined:
    17 Sep 2008
    Messages:
    791
    Likes Received:
    391
    Reputations:
    72
    krypt3r, спасибо огромное за подсказку... В коде моего предыдущего поста я уже несколько косяков исправлял, переписывал на сокетах - нифига не работало..

    С HTTP::Request::Common сделал буквально в несколько строк.. Всё пашет как надо.. ;)
     
  18. taxpayer

    taxpayer Member

    Joined:
    17 Jan 2010
    Messages:
    31
    Likes Received:
    7
    Reputations:
    3
    HTTP::Request::Common - оболочка над сокетами. Криво написал на сокетах вот и не работает ;)
     
    1 person likes this.
  19. 1mposible

    1mposible New Member

    Joined:
    13 Feb 2010
    Messages:
    8
    Likes Received:
    1
    Reputations:
    0
    Знающие сей чудесный язык програмирования помогите!!!
    Нада написать скрипт.
    его задача:
    Заполнение Форм На заданном сайте и нажатие на определённую кнопку. Но Заполнение формы должно идти из файла (базы тхт,мускуль, без разницы.) , причём каждое новое заполнение - берёться из последующей строки (Пример:1.Вася 2.Петя 3.Женя 4.Юля ... ; 1 заполнение Вася, 2 заполнение Петя, 3 заполнение Женя, 4 Заполнение Юля и т.д.)
    + К этому должен показываться вывод, пошла одна из строк или нет...
    Кстати вот нашёл коментарии в нете мб поможет комуто...
    PS на сколько я думаю , надо будет использование кукизов и хешей...
    Знаю что кайми у вас тут хорошо в перле понимает...
     
  20. anubis666

    anubis666 New Member

    Joined:
    17 Aug 2009
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    Привет всем) я бы хотел у Вас спросить какой нужен модуль для того что бы фильтровать текст на наличие html тегов. То есть в форме есть поле opisanie после того как содержимое поля отправится на сервер мне нужно его проверить на наличие html тегов и если таковые имеются то удалить их.
     
Thread Status:
Not open for further replies.