compter les n premiers caractére d'une chaine

$chaine = "yoda";
$chaine2 = $chaine;
$n = 3;
$chaine2 =~ s/(.{$n}).*/$1/;

======= chaine2 vaut "yod"

comment je peux mettre dans une var les n premiers caractéres d'une
chaine ???

perldoc -f substr

--
Patrick Mevzek . . . . . . Dot and Co (Paris, France)
<http://www.dotandco.net/> <http://www.dotandco.com/>
Dépêches sur le nommage <news://news.dotandco.net/dotandco.info.news>

Salut,

On Mon, 14 Nov 2005 16:46:40 +0100, damien guerin
<damien.guerin2@wanadoo.fr> wrote:

$chaine = "yoda";
$chaine2 = $chaine;
$n = 3;
$chaine2 =~ s/(.{$n}).*/$1/;

======= > chaine2 vaut "yod"

Méthode intéressante, mais $chaine2 = substr($chaine,0,3) sera
probablement plus rapide, et quand même nettement plus lisible!

Jacques.
--
Oxado http://www.oxado.com/