+ Responder ao Tópico



  1. #1

    Padrão Ler cada caracter em uma string perl

    Oi, galera queria saber como fazer as seguintes coisas em perl:

    Passo a passo:

    1: Tinha uma @inicial = 111010000011111
    Fiz o seguinte dividi ela em tres, ficando da seguinte forma

    2: @segunda = 11101, 00000, 11111 ou seja agora cada posicao da minha lista é uma string, e queria sabe como ler cada posicao dessa string pois preciso contar a frequencia de cada caracter nela o que seria:

    $segunda[1] = contem 4 uns e 1 0

    Nao sei se fui bem claro mais quem puder me ajudar obrigado!

  2. #2

    Padrão

    opa amigo não intendir direiro seu post mas vou tentar ajudar!

    sua Array @segunda esta dividido em 3 partes

    my @segunda = (11101, 00000, 11111);
    print $segunda[0] . "\n";
    print $segunda[1] . "\n";
    print $segunda[2] . "\n";

    test# perl teste.pl
    11101
    0
    11111
    test#

    isso quer queria saber?

    se nao for tenta explica melhor

    Citação Postado originalmente por wcsmagalhaes Ver Post
    Oi, galera queria saber como fazer as seguintes coisas em perl:

    Passo a passo:

    1: Tinha uma @inicial = 111010000011111
    Fiz o seguinte dividi ela em tres, ficando da seguinte forma

    2: @segunda = 11101, 00000, 11111 ou seja agora cada posicao da minha lista é uma string, e queria sabe como ler cada posicao dessa string pois preciso contar a frequencia de cada caracter nela o que seria:

    $segunda[1] = contem 4 uns e 1 0

    Nao sei se fui bem claro mais quem puder me ajudar obrigado!

  3. #3

    Padrão tentando ser mais claro

    my @inicial = “1011110110, 1110000110, 0000011000”

    0 1 2

    $inicial [0] = 1011110110
    $inicial [1] = 1110000110
    $inicial [2] = 0000011000

    Agora preciso por exemplo ler cada caracter da string $inicial [0], por exemplo:

    $inicial [0] = 1 0 1 1 1 1 0 1 1 0

    0 1 2 3 4 ......

    0

    Na verdade precisaria ler cada posição do meu vetor $inicial [0] e depois calcular por exemplo:

    Quantidade de zeros em $inicial [0] = 3
    Quantidade de zeros em $inicial [0] = 7

    Acho que agora tentei ser o mais claro possível, mais valeu mesmo pela ajuda.

  4. #4

    Padrão Impressao em forma de matriz

    Galera queria saber se alguem poderia me ajudar com isso?

    #!/usr/bin/perl

    # Modo desjado de impressao
    # 0 1 2 3
    # 0 1 2 3
    # 0 1 2 3
    # 0 1 2 3
    # 0 1 2 3
    #
    #
    @alelos = (00000, 11111, 22222, 33333);
    $max_alelle = 5;
    $loci = 4;
    for ($i = 0; $i < $max_alelle; $i++)
    {
    for ($j = 0; $j < $loci ; $j++)
    {
    print "$alelos[$i][$j]\t";
    }
    print "$alelos[$i][$j]\n";
    }

    Queria imprir dessa forma em uma matriz bidimensional.

    Valeu se alguem puder me ajudar.