Perl: mesurer une chaine et la modifier
Fermé
Yonathan
-
9 oct. 2010 à 13:58
dubcek Messages postés 18587 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 12 mars 2023 - 11 oct. 2010 à 13:40
dubcek Messages postés 18587 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 12 mars 2023 - 11 oct. 2010 à 13:40
A voir également:
- Perl: mesurer une chaine et la modifier
- Modifier pdf - Guide
- Modifier liste déroulante excel - Guide
- Mesurer avec son téléphone - Guide
- Modifier extension fichier - Guide
- Modifier la taille d'un pdf - Guide
1 réponse
dubcek
Messages postés
18587
Date d'inscription
lundi 15 janvier 2007
Statut
Contributeur
Dernière intervention
12 mars 2023
5 583
11 oct. 2010 à 13:40
11 oct. 2010 à 13:40
hello
un essasi
un essasi
$ ./p7 fichier
>moi_toto_grand_et_beau length=51
ATGCTAGTCGATGCTGATCGTA
ATGGTAGTGCGCCGATGCGTCA
TGAGTCC
>moi_john_petit_et_moche length=54
ATGCTGTAGTCGTACTTGAT
TGACTAGCCATCACTACGTC
TGCATACGGATGT
$
$ cat p7
#!/usr/bin/perl
$l=0;
$n=0;
@x=();
open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>) {
chop($ligne);
@x[$n++]=$ligne;
}
for($i=0 ; $i < $n ; $i++ ) {
if (@x[$i] =~ /^\>/) {
$ii=$i;
while(@x[++$i] =~ /^[A-Z]/) {
$l+=length(@x[$i]);
}
@x[$ii] .= " length=" . $l;
$l=0;
}
}
for($i=0 ; $i < $n ; $i++) {
printf("%s\n", @x[$i]);
}
exit();