🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #14966

Re: Empezando con perl

#14966
From: Salvador Petit Mart�
Date: Tue, 29 Aug 2000 00:00
63 lines
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-mail
References: <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