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

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

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

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    null_access
    перед сборкой делай
    Code:
    ./configure -Dusethreads
    А потом уже стандартное
    Code:
    make && make test && make install
     
  2. null_access

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

    Joined:
    31 Jan 2005
    Messages:
    128
    Likes Received:
    6
    Reputations:
    0
    а как разобрать перл который сейчас собран? чтобы начать эту сборку :confused: я так понял что это мне нужно его заново в дистрибутивах скачать? или как то можно то что уже собрано поправить и пересобрать? вообще не представляю где нужно находиться в какой директории. :rolleyes:
     
  3. alextoun

    alextoun Вылет с Трассы

    Joined:
    7 May 2006
    Messages:
    563
    Likes Received:
    216
    Reputations:
    96
     
  4. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    C:\>perl -e "$write=24; $two=2;$rez=$two * $write; print $rez;"
    48

    вот както так -- точки с запятой не забывай
     
    #64 genom--, 14 Jul 2007
    Last edited: 14 Jul 2007
    1 person likes this.
  5. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    ахуеть чувак, с таким же успехом ты можешь код на питоне совать в интерпретатор пхп

    ЗЫ: http://translate.google.com/
     
    #65 KSURi, 14 Jul 2007
    Last edited: 14 Jul 2007
    1 person likes this.
  6. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Code:
    my $res = `cmd args`
    В $res окажется, то, что должно было вывестись в STDOUT.
     
  7. alextoun

    alextoun Вылет с Трассы

    Joined:
    7 May 2006
    Messages:
    563
    Likes Received:
    216
    Reputations:
    96
    ошибку пишет NAme_format
     
  8. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    помогите с регулярными выражениями, пишу авторегер акков для одного сайта, он в странице нам выдает коды безопасности вот такие:
    Code:
      <input type="hidden" name="code" id="code" value="ca2af9b616333f9cb3ab3d90e2597e73">
     <input type="hidden" name="mu" id="mu" value="1776749550">
    нужно выдрать ca2af9b616333f9cb3ab3d90e2597e73 и 1776749550 и присвоить их переменным
     
  9. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Code:
    /value="([a-f0-9]{32})"/
    
    Code:
    /value="(\d+)"/
    
     
    1 person likes this.
  10. Ilia_dozor

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

    Joined:
    26 May 2007
    Messages:
    36
    Likes Received:
    2
    Reputations:
    -1
    ПРИВЕТ всем..вот есть сплоит
    http://www.securitylab.ru/poc/extra/298626.php
    Хм...установил ActivePerl запускаю c:\sp.pl
    и тут загвоздка....как правильно ввести параметры,которые он хочет.....
    и кто юзал етот сплоит напишите.мне нада искать страницу типа wp-app.php
    или нет..короче напишите знактооки перла че да как..заранее всем благодарен!!!!
     
  11. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Подскажите вот такую весчь:
    есть сайт-архив валлпаперов - babene.ru.

    http://babene.ru/jpgs/2007/07/22/u14_4305.jpg - чисто адрес рисунка

    нужен скрипт или намёк, который тянет с этого сайта картинки в этой директории
     
  12. cylaaaan

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

    Joined:
    31 Aug 2006
    Messages:
    0
    Likes Received:
    44
    Reputations:
    8
    Подскажите, как сделать скрипт.
    Нужен что то типа парсера.
    Что бы из одного файла, набитого разным мусором, выгребал только 10-значные числа.
    И записывал их в другой файл разделяя ";\n"
    ---
    1234567890;
    1234567890;
    1234567890;
    1234567890;
    1234567890;
    ---
    и удалял первые 3 цифры

    ---
    4567890;
    4567890;
    4567890;
    4567890;
    4567890;
    ---
     
    #72 cylaaaan, 28 Jul 2007
    Last edited: 28 Jul 2007
  13. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    вот как то так


    open ss,"<in.txt";
    open yy,">out.txt";
    while($a=<ss>){
    while($a=~/[0-9]{10}/){$str=$&;$a=~s/$&//i;
    $str=reverse $str;
    for(1..3){chop $str;}
    $str=reverse $str;
    print yy "$str;\n";
    }
    }

    close ss;close yy;

    не оч элегантно но я хочу спать и туго ща соображаю -- входной файл in.txt выходной out.txt
     
  14. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Code:
    open(IN, 'in.txt') || die $!;
    open(OUT, '>', 'out.txt') || die $!;
    while(<IN>)
    {
      chomp;
      print OUT substr($1, 3) . ";\n" foreach(/(\d{10})/g)
    }
    close IN;
    close OUT;
    UPDATE:
    genom-- жесть
     
  15. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    я простой сталевар я варю жесть =) -- мда чет у меня substr из головы вылетел сидел вчера ночью бумал как бкувы срезать =)
     
  16. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Скажите, как сделать так, что бы при обходе хэша в цикле его элементы выводились в нужном порядке.
    Пример:
    %hash =('1'=>'1',
    '2'=>'2',
    '3'=>'3');

    while ( ($k, $v) = each(%hash) ){
    print "$k = $v \n";
    }

    выводит:
    1 = 1
    3 = 3
    2 = 2
    Почему? надо что бы 1,2,3
     
  17. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,249
    Likes Received:
    585
    Reputations:
    31
    vladest проверь то же самое от 1 до 5. вроде ошибки нет=\
     
  18. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    perldoc -f each
    Code:
    Entries are returned in an apparently random order. The actual
    random order is subject to change in future versions of perl,
    but it is guaranteed to be in the same order as either the
    "keys" or "values" function would produce on the same
    (unmodified) hash. Since Perl 5.8.1 the ordering is different
    even between different runs of Perl for security reasons (see
    "Algorithmic Complexity Attacks" in perlsec).
    Через each ты не получишь в порядке объявления
     
  19. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    4 = 4
    1 = 1
    3 = 3
    2 = 2
    5 = 5

    Гг!
     
  20. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    Code:
    %hash =('1'=>'1',
    '2'=>'2',
    '3'=>'3');
    
    foreach $k (sort keys %hash){
    print "$k => $hash{$k} \n";
    }
     
    1 person likes this.
Thread Status:
Not open for further replies.