[Cascavel-pm] editar string

[Eden Cardim]

On 5/9/07, lgonzaga em lncc.br <lgonzaga em lncc.br> wrote:
> Esta ocorrendo pois você está colocando o "." antes de TODOS os valores de
> $u.
>
> Como você disse que está começando a aprender Perl, saiba que existem meios
> mais fáceis e rápidos de fazer o que você quer.
>
> Dentro do loop "foreach $o (@arquivo) {"
> basta você usar o mecanismo de substituição das expressões regulares:
>
> $o =~ s/\.[0-9]{6,8}//;

Eu usaria um join:

<sai isso>
        $string = "";
        foreach $u (@arquivo2) {
            $string .= ".$u";
        }
</sai isso>

<entra isso>
$string = join ', ', @arquivo2;
</entra isso>

-- 
Eden Cardim
Instituto Baiano de Biotecnologia
Núcleo de Biologia Computacional e Gestão de Informações Biotecnológicas
Laboratório de Bioinformática