Calcul du Nombre de caractere

Bonjour

je suis a la recherche d'une fonction que me permette de calcul du nombre
de caractere qui il y a entre le "b" de bonjour et le "i" de aujourd'hui qui est avant les ":"

(bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur)

je suis un debutant et ca fait 2 jours que je cherche mais je ne trouve pas

voici le code

Citation:

---

#!/usr/bin/perl
#

$chaine = "bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur";
print "$chaine\n";

---

Merci d'avance pour vos reponse

Stephane

Je dirais que ça dépend de ce que l'exercice doit te faire travailler...

Si c'est pour travailler en algorithmique, utiliser des boucles est suffisant.

Si c'ets plus spécifique à Perl, il existe des fonctions pour la longueure des chaine, les sous chaines etc...

bonjours

s'est juste pour calculer le nombre de caractere en perl entre la premiere lettre le la derniere lettre avant les :

c'est tout ce que je veut faire

pour l'instant j'ai le nombre total de ma chaine de caractere

Citation:

---

#!/usr/bin/perl
#

$chaine = "bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur";

print "$chaine\n";
print "longueur de la chaine: ".(length($chaine)-1)."\n";
print "\n";

---

merci d'avance

bonjour

Voici ce que j'ai fait mais ca ne marche pas

avez vous une idee

Citation:

---

use strict;

my $i = 1;
my $toto = "toto: tata";
my $caractere = ":";

print "deuxieme programme\n";

my @tab_toto = split (//, $toto);

foreach my $lettre (@tab_toto) {
while (@tab_toto != "$caractere")
{
print "@tab_toto\n";
print "$caractere\n";

$i++;
}
}

---

Merci d'avance

echo "bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur" | awk -F: ' { print length($1) }'

Citation:

---

Envoyé par becket

echo "bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur" | awk -F: ' { print length($1) }'

---

bonjour

merci pour la reponse

La commande ne marche pas en PERL

Merci d'avance

Citation:

---

Envoyé par www.rubis

bonjour

merci pour la reponse

La commande ne marche pas en PERL

Merci d'avance

---

Ben oui puisque c'est un appel depuis le shell vers le programme "awk".

Je ne connais pas le PERL donc je peux pas t'aider. Mais je connais Python qui est très similaire. Et en Python, je ferais ainsi

Code:

---

print "%d" % len("bonjour il ne fait pas tres chaud aujourd'hui: demain il fera meilleur".split(":")[0])

---