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!!!
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
0