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

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

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

    m0nzt3r моня

    Joined:
    22 Jun 2004
    Messages:
    2,139
    Likes Received:
    671
    Reputations:
    591
    ну а что тут показывать?)
    ну:

    Code:
    $num = 0;
    $regex = '<input type="radio" id="cb'.$num.'" name="cid\[\]" value="(.+?)"';
    $res->content =~ /$regex/;
    print $1;
    
    так?:)
     
    #721 m0nzt3r, 13 Aug 2008
    Last edited: 13 Aug 2008
  2. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,937
    Likes Received:
    805
    Reputations:
    224
    Пример
    $bm =~ s/<name>/$name/g;
     
    1 person likes this.
  3. Roba

    Roba Banned

    Joined:
    24 Oct 2007
    Messages:
    241
    Likes Received:
    299
    Reputations:
    165
    Code:
    #!/usr/bin/perl
    use strict;
    my $s = 'bla-x3k-bla';
    my $regex = "-(.+)-";
    $s=~/$regex/;
    
    print $1."\n";
    
     
    1 person likes this.
  4. Xszz

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

    Joined:
    23 Apr 2007
    Messages:
    187
    Likes Received:
    42
    Reputations:
    9
    $num = 0;
    $regex = qr[<input type="radio" id="cb'.$num.'" name="cid\[\]" value="(.+?)"];
    $res->content =~ $regex;
    print $1;
     
  5. $p01nt

    $p01nt Elder - Старейшина

    Joined:
    19 Feb 2008
    Messages:
    164
    Likes Received:
    20
    Reputations:
    1
    my $arr=system(ls);
    my @xx=split(' ',$arr);
    print @xx;

    получаю список папок в скляр, теперь мне надо что бы в массиве были эти данные, НО не все папки в одном значение (т.е. $xx[0]=все) а $xx[0]=первая папка. Как сделать?
     
  6. n3m0

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

    Joined:
    11 May 2007
    Messages:
    136
    Likes Received:
    92
    Reputations:
    11
    Code:
    #!/usr/bin/perl
    use Data::Dumper;
    print Dumper split ' ',`ls` 
    
     
  7. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,509
    Likes Received:
    389
    Reputations:
    101
    opendir/readdir/closedir
     
  8. .::BARS::.

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

    Joined:
    13 Oct 2007
    Messages:
    427
    Likes Received:
    45
    Reputations:
    10
    Впервые пытаюсь апустить скрипт.. в чем проблема http://4iks.ru/cgi-bin/drug.pl ? скрипт добавления в друзья http://forum.antichat.ru/showpost.php?p=786700&postcount=136 как правильно запустить скрипт?

    Если можно расскажите подробней!
     
    #728 .::BARS::., 18 Aug 2008
    Last edited: 18 Aug 2008
  9. .::BARS::.

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

    Joined:
    13 Oct 2007
    Messages:
    427
    Likes Received:
    45
    Reputations:
    10
    ТО есть я могу его запустить на топсервере, на винде?
     
  10. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    768
    Likes Received:
    417
    Reputations:
    288
    смотри сразу консольные pl и cgi это разные хрени - выводы хедеры и тд жеще под cgi намного --- запускай из консоли я думаю -- и смотри код
     
  11. .::BARS::.

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

    Joined:
    13 Oct 2007
    Messages:
    427
    Likes Received:
    45
    Reputations:
    10
    не понял ни слова.... лучше проще... можно ли денвер, топсервер?
     
  12. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,509
    Likes Received:
    389
    Reputations:
    101
    У Генома язык подозрительно заплетается что-то ))) .::BARS::., уверен, что сервак поддерживает CGI? Залей пробную цегеишку в cgi-bin
    Code:
    #!/usr/bin/perl
    print "Content-Type: text/html\n\n";
    print "<html><body><h1>This is CGI-script</h1>" .
          "<p>Apache installed</p></body></html>";
    exit 0;
    
    Поставь права 755 и вызови из браузера. Если прошло гуд, то куда-нить в начало скрипта drug.pl вставь
    Code:
    print "Content-Type: text/html\r\n\r\n";
    
    и запусти еще раз. Если не пойдет, то проверь на сервере наличие модулей LWP и HTTP, - возможно, их там нет
     
  13. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    768
    Likes Received:
    417
    Reputations:
    288
    ээээээээ пияный писал ))))

    да блин открой скрипт да глянь под что он заточен
    тупо помойму консольный скрипт запускать из под веб сервера 0 лудше уже перл слить и не париться - тк там потом серавно с выводом лаги будут
     
  14. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    35
    Likes Received:
    5
    Reputations:
    0
    С регулярками тока начал разбиратся, но уже столкнулся с проблемой.
    Имею кусок HTML в переменной $data

    HTML:
    .........
    </td><td width="20px" style="vertical-align:top">
     <div class="vred">
      <dl class="clex">
       <dt>Статус:</dt>
       <dd>
           Загорает на пляже )
       </dd>
    
          <dt>Будет скора дома:</dt>
       <dd>может быть</dd>   
    .........
    
    имею следующий код на perl:
    Code:
    $data=~/<dt>Имя:<\/dt>\n\s+<dd>\n(.+)\n\s+<\/dd>/
    $status=$1;
    
    хочется что-бы в $status попало "Загорает на пляже )"

    Где я ошибся?
     
  15. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    35
    Likes Received:
    5
    Reputations:
    0
    Всё разобрался, дело было в кодировке =)
     
  16. n3m0

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

    Joined:
    11 May 2007
    Messages:
    136
    Likes Received:
    92
    Reputations:
    11
    timlame,

     
  17. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    35
    Likes Received:
    5
    Reputations:
    0
    еще вопросик по регуляркам

    итак, имеем переменную $data, которая содержит следующие данные:
    Code:
    want
    understand
    all
    11
    and
    would
    all
    the
    veshches
    things
    a
    a
    a
    a
    had
    done...and
    would
    not
    able
    really
    stop
    him
    a
    And
    nor
    would
    
    Задача, выкинуть отсюда все слова длинной 1 или 2 символа. Для этого я использую следующий регепс:
    Code:
      $data=~s/\n.{1,2}\n/\n/gs;
    
    но я получаю следующие:

    Code:
    want
    understand
    all
    and
    would
    all
    the
    veshches
    things
    a
    a
    had
    done...and
    would
    not
    able
    really
    stop
    him
    And
    nor
    would
    
    остались двa "a", почему ???
     
  18. Xszz

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

    Joined:
    23 Apr 2007
    Messages:
    187
    Likes Received:
    42
    Reputations:
    9
    foreach ( split "\n",$data ){
    next if ( length($_) <= 2 );
    print $_,"\n";
    }
     
    1 person likes this.
  19. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    35
    Likes Received:
    5
    Reputations:
    0
    ну это неспортивно, хотелось бы одной регуляркой обойтись ;)
     
  20. Xszz

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

    Joined:
    23 Apr 2007
    Messages:
    187
    Likes Received:
    42
    Reputations:
    9
    Code:
    $data =~ s/^\w{1,2}$//gm
     
Loading...
Thread Status:
Not open for further replies.