1. Perl / Говнокод #6045

    −126

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    #!/usr/bin/perl
    
    @zips = ();
    while(<>){
    @zips = m{([a-z]5[a-z])}igx;
    for(my $j=0;$j<=$#zips;$j++){
    $i = index($_,$zips[$j]);
    print "$zips[$j] pos $i\n";
    };
    print "$zips\n";
    
    }

    Находит комбинацию буква 5 буква

    Запостил: AliceGoth, 20 Марта 2011

    Комментарии (2) RSS

    Добавить комментарий