ce n'est pas plus simple d'utiliser split ?
while (<IN>){
chomp;
my ($sequence, $charge, $modification) = split /\t/;
print "$sequence\t$charge\t$modification\n";
}
avec juste un test...
ce n'est pas plus simple d'utiliser split ?
while (<IN>){
chomp;
my ($sequence, $charge, $modification) = split /\t/;
print "$sequence\t$charge\t$modification\n";
}
avec juste un test...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.