Perl - cambiar de lugar un texto en perl

   
Vista:

cambiar de lugar un texto en perl

Publicado por Aldair (1 intervención) el 21/08/2013 18:06:43
Hola a todos...
tengo una duda, quiero que <TSeq_orgname>.*<\/TSeq_orgname> vaya antes de <TSeq_accver>.*<\/TSeq_accver> cómo le hago

saludos y gracias!!!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
while ( my $lines = <TINY> ) {
        foreach ($lines) {
            if (m/<TSeq_accver>.*<\/TSeq_accver>/) {
                $lines =~ s/<TSeq_accver>//g and $lines =~ s/<\/TSeq_accver>//g ;
                $lines =~ s/ //g;
                chomp($lines);
 
                print New_File ">$lines\_";
            } elsif (m/<TSeq_orgname>.*<\/TSeq_orgname>/) {
                $lines =~ s/<TSeq_orgname>//g and $lines =~ s/<\/TSeq_orgname>//g ;
                $lines =~ s/\s{2}//g;
                chomp($lines);
                print New_File "$lines\n";
            } elsif (m/<TSeq_sequence>.*<\/TSeq_sequence>/) {
                $lines =~ s/<TSeq_sequence>//g and $lines =~ s/<\/TSeq_sequence>//g;
                $lines =~ s/ //g;
                chomp($lines);
                print New_File "$lines\n";
            }
        }
    }
    close TINY;
    close New_File;
}
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder