Criar arquivo a partir de entrada padrão em Perl

[Debora Santos2]

Eu preciso usar a entrada padrão pra que o usuário forneça sequências de DNA depois preciso inverter essas sequencias e gerar um arquivo .fasta com as sequências invertidas

Mas não sei como gerar o arquivo

Esse é o script que eu fiz até agora pra inverter as sequencias

 

print "seja bem-vindo(a)!\n";

#armazemando as sequencias em strings
print "digite sua primeira sequência\n";
my $seq1 = <STDIN>;

print "digite sua segunda sequência\n";
my $seq2 = <STDIN>;

print "digite sua terceira sequência\n";
my $seq3 = <STDIN>;

# Inversão da ordem das sequências acima:
$seq1_invertido = reverse $seq1;
$seq2_invertido = reverse $seq2;
$seq3_invertido = reverse $seq3;

 

Como eu faço pra gerar o arquivo com as sequencias invertidas?

Editado Setembro 27, 2021 por Debora Santos2