Hola:
Puedes hacerlo con una expresión regular:
Using perl Syntax Highlighting
my $palabra = "magnifico";
$palabra =~ /^(\w{3})/;
print "Los tres primeros caracteres: $1"; #imprime mag
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
EXPLICANDO LA EXPRESIÓNEl
^ es para especificar el principio de la cadena, luego viene encerrado en paréntesis el
\w que le dice al motor de exp. reg. que queremos encontrar todo aquello que sean letras y números, es decir, valores alfanuméricos. Después viene los
{}; los
{} son cuantificadores, ahí ponemos el
3 para decir que queremos tres instancias de valores alfanuméricos, es decir, tres caracteres.
Los paréntesis en este caso los usamos para salvar el contenido en la variable especial $1.
Si quieres saber más acerca de las expresiones regulares, puedes checar los
tutoriales que tenemos aquí:
http://perlenespanol.com/tutoriales/exp ... regulares/SALUDOS