Warum macht Perl's /// was ich will?

Question

Ich benutze Perl für ein Skript, das Eingabe als zwei kurze DNA-Stränge aufnimmt. Als eine Ausgabe verkette ich die zwei Zeichenketten-Zeichenketten und drucke dann die zweite Zeichenkette, die über ihrer Kopie am Ende der verketteten Zeichenkette aufgereiht ist. Zum Beispiel: Wenn Eingabestring ist AAAA und TTTTT dann Druck:

AAAAATTTTT 
    TTTTT 

Ich weiß, es gibt auch andere Möglichkeiten, dies zu tun, aber ich bin neugierig, warum meine Verwendung tr /// funktioniert nicht.

Der Code für das Programm ist:

use strict; 
use warnings; 
print "enter a DNA sequence \n"; 
$DNA1=<>; #<> shorthand for STDIN 
$DNA1=~ s/\r?\n?$//; 
print $DNA1 "\n\n"; 
print "enter second DNA sequence \n"; 
$DNA2=<>; 
$DNA2=~ s/\r?\n?$//; 
print $DNA2 "\n\n"; 
$DNA= join("",($DNA1,$DNA2)); 
print "Both DNA sequences are \"$DNA\" \n\n"; 
$DNA3=$DNA1; 
$DNA3=~ tr/ATCGatcg//; 
print $DNA3 "\n\n"; 
$DNA4= join("",($DNA3,$DNA2)); 
print $DNA4 "\n\n"; 
exit; 

Answer 1

Ihr tr ändert jeder ACTGatcg und entfernt sie. Ich denke du willst

$DNA3 =~ tr/atcgATCG/ /; 

Answer 2

Sie benötigen einen Platz in der zweiten Hälfte des tr Befehl setzen.

Alternativ scheint es, dass, was Sie versuchen, eine Variable zu tun schaffen so viele Felder enthält, wie Zeichen in der ersten Saite waren:

my $spaces = ' ' x length($DNA1); 

Answer 3

Es könnte nur ein einfacher Syntaxfehler sein. Versuchen:

$DNA3 =~ tr/ATCGatcg/ /; 

, wo der zweite Schrägstrich Ihre zwei Übersetzungseinheiten trennt, und Sie haben ein Leerzeichen zwischen den zweiten und dritten Schrägstrichen.

Viel Glück!

Edit: mein Fehler - missverstanden, was Sie tun wollten. Antwort entsprechend angepasst :)

Answer 4

Ist das das Programm, das Sie wollen?

 
#!perl 

my $s1 = 'AAAAAAAAA'; 
my $s2 = 'TCGAGCTA'; 

print 
    $s1, $s2, "\n", 
    ' ' x length($s1), $s2, "\n";