Hello
 
Tout d'abord n'ayez pas peur à la vue de mon sujet c'est bien plus simple qu'il n'y parait ^^ J'explique mon but de manière précise afin que vous puissiez m'aider de manière plus efficace
 
Je souhaiterai ajouter un certain nombre à un nombre existant dans un fichier.
Je m'explique.
 
Je travaille sur base d'un fichier texte contenant des séquences d'adn.
Chaque séquence se voit attribuer un numéro (format "FASTA" si ça vous intéresse).
 
Voici un exemple type de fichier fasta contenant de l'ADN:
 

Mon fichier possède en réalité 50 séquences, donc numérotées de 00 à 49.

Pour vous éparger les détails, je dois effectuer une modification sur toutes ces séquences, en réalité inverser leur ordre :

Je dispose et maitrise les outils pour faire cette opération.
 
Voici mon problème :
Je dois AJOUTER au fichier de base (séquences 00 à 49, ordre initial "ATCG" ) ce meme fichier mais dont les séquences ont été inversées (je sais le faire no soucy) mais j'ai besoin que le numérotation continue.
Ainsi :

Comment puis-je faire ?
Les tutos sont légion sur internet, mais cela devient très vite compliqué et nous apprenons sed "sur le tas" (et sans mentir j'en ai un peu ras le bol des tutos ).
 
Pour résumer, comment ajouter un nombre (dans ce cas-ci "50" ) à un nombre existant (dans ce cas-ci de "00" à "49" ) afin d'automatiser la tache ?
 
En espérant ne pas avoir abusé avec mon poste, merci beaucoup à ceux qui tenteront de m'aider

Utilises un langage plus adapté, comme perl
Par exemple, ce script (test.pl)

#!/usr/local/bin/perl
use strict;
use warnings;
 
my @a = <>;
my $inc;
foreach (@a) {
    next if (/^[ \t\n]+$/);
    if (/^>(\d+)/) { $inc = $1; }
    print;
}
foreach (@a) {
    next if (/^[ \t\n]+$/);
    if (/^>/) { 
    s/(\d+)/++$inc/e;
    }
    else {
    chop;
    $_ = reverse $_;
    $_.= "\n";
    }
    print;
}

Sur un fichier test comme celui ci:
ADN.txt

le script perl appelé par: perl test.pl ADN.txt donne:

Bon sinon, un script moins général comme celui ci:

#!/usr/local/bin/perl
use strict;
use warnings;
 
 
if ($#ARGV < 1) {
    die("Not enough arguments \n" );
}
open(INP, "<$ARGV[0]" ) or die("Cannot open file '$ARGV[0]' for reading\n" );
my @a = <INP>;
close INP;
my $inc = $ARGV[1];
foreach (@a) {
    next if (/^[ \t\n]+$/);
    if (/^>/) { 
    s/(\d+)/++$inc/e;
    }
    else {
    chop;
    $_ = reverse $_;
    $_.= "\n";
    }
    print;
}

appelé par: perl test.pl ADN.txt 30 donne:

Je détaillerais si ça t'intéresse.
A+,

Alors je me tente à programmer en Shell dans un forum (désolé g po linux sous la main). On va voir si je suis rouillé (je suis dans l'univers CroSoft depuis quelques mois) donc :
 
#!/bin/ksh
# $1 sera ton fichier de début
# $2 sera celui à ajouter à la fin
# $3 ton fichier de sortie
typeset -i LAST_NUMBER
LAST_NUMBER=`grep '>' $1 | tail -1 | cut -c2-`
cat $1 > $3
while read LINE
do
  LAST_NUMBER=`expr $LAST_NUMBER + 1`
  echo ">$LAST_NUMBER" >> $3
  echo $LINE >> $3
done < `grep -v '>' $2`
 
En relisant, je suis plus sur d'avoir compris l'exercice