j'ai un bout de script qui me permet de traduire une chaine d'ADN en ARN (c'est-à-dire de convertir tous les T d'une chaine en U)

Voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl -w
 
use strict;
 
print "\nSaisie de la sequence ADN\n";
my $sequence = <STDIN>; 
 
sub Convertion
 
{
 
my ($sequence) =@_;
 
$sequence =~ tr/ATGCatgc/UACGuacg/;
print "\nLa sequence ARN est : $sequence\n";
}
Convertion ($sequence);
J e suis sous MAC OS et j'exécute ce script depuis un terminal. L e problèle est que dès que je saisie ( copie-colle) une séquence de plus de 1024 caractère la traduction n'a pas lieu alors que en dessous de 1024 caractères "tout se passe bien".

D'où vient ce pbl?
je pensais qu'en perl , il n'y avait pas de pbl de "taille".