Article View: es.comp.os.linux.programacion
Article #14966Re: Empezando con perl
From: Salvador Petit Mart�
Date: Tue, 29 Aug 2000 00:00
Date: Tue, 29 Aug 2000 00:00
63 lines
3184 bytes
3184 bytes
Oscar Manuel <oscar@omgs.es> wrote:
> Por fin me he cogido un tutorial de perl
> (http://www.granavenida.com/perl/tutoperl-print.html) y he practicado
> con los primeros ejercicios, pero ahora he topado con dos en los que no
> s� qu� funci�n o funciones usar, y si han salido (aunque lo he repasado
> varias veces), no veo la aplicaci�n de las funciones que han salido al
> problema concreto.
> No pretendo que nadie me d� el c�digo, sino la clave para poder hacerlo
> yo.
> El primero es simplemente convertir una cadena a may�sculas. He
> intentado usar ucase("texto") para ver si colaba, pero no "cuela". La
> otra opci�n es analizar car�cter a car�cter la cadena, ver si el
> car�cter en cuesti�n se encuentra en el rango de las min�sculas,
> restarle �32? al c�digo ascii y sustituir el car�cter antiguo por el
> nuevo. Vamos, de s�lo escribirlo, creo que el tutorial no ha llegado a
> este punto, pero a lo mejor soy yo el que no lo ve...
$_ = "pepe";
tr/a-z/A-Z;
$_ es ahora "PEPE"
> El segundo, si lo he entendido bien, es solicitar por STDIN nombre y
> apellidos (supongo que en una �nica variable, porque si no, no le veo la
> dificultad) para luego sacar primero los apellidos y luego el nombre.
> Deduzco que debe haber alguna funci�n que pueda analizar car�cter a
> car�cter una cadena, pero no soy capaz de dar con ella.
while (<STDIN>)
{
@line = split;
# $line[0], $line[1]... contienen cada una de las palabras de la linea
}
> Son los "ejercicios 1" de la p�gina mencionadaa, por si acaso alguien
> quiere echarles un vistazo.
> Gracias.
> --
> http://counter.li.org registration info:
> ----------------------------------------
> Linux user: 92390 - Linux machine: 39301
> |--------------------------------------------|
> | Oscar Manuel G�mez Senovilla |
> | mailto:oscarsen@BORRARomgs.findhere.com |
> | (quita "BORRAR" despu�s de @) |
> | (remove "BORRAR" after @) |
> | Madrid (Espa�a) |
> |--------------------------------------------|
--
@@@@@@@@@@
@@ @@
@@ @@@@@ @@ . .
spetit @@ @@ @@ @@ disca ... upv ... es
@@ @@@@@@@@ . .
@@ @@
@@@@@@@@@@@@@
Technical Details
Message-ID:
<8og5th$1bt$1@polaris.cc.upv.es>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<39A99DC3.F435E233@omgs.es>Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII
X-Google-Thread: f86c8,a62894166a1dda9a
X-Google-Attributes: gidf86c8,public
From: Salvador Petit Mart� <mr.smith@matrix.com>
Subject: Re: Empezando con perl
Date: 2000/08/29
Message-ID: <8og5th$1bt$1@polaris.cc.upv.es>
X-Deja-AN: 663849819
Content-Transfer-Encoding: 8bit
References: <39A99DC3.F435E233@omgs.es>
Content-Type: text/plain; charset=ISO-8859-1
X-Complaints-To: newsmaster@upv.es
X-Trace: polaris.cc.upv.es 967547633 1405 158.42.50.92 (29 Aug 2000 11:13:53 GMT)
Organization: DISCA - Universidad Polit�cnica de Valencia
Mime-Version: 1.0
User-Agent: tin/1.4.1-19991201 ("Polish") (UNIX) (Linux/2.2.13 (i686))
NNTP-Posting-Date: 29 Aug 2000 11:13:53 GMT
Newsgroups: es.comp.os.linux.programacion