🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: regex, matchs, perl, controlar decimales

#9415
From: "Jesús M. NAVARRO"
Date: Sun, 14 Jul 2002 15:17
54 lines
2679 bytes
Hola, isues:

isues wrote:
> Wuenas a todos los mundos>
> vereis mi problema surge cuando quiero controlar los decimales con perl.
> 
> dada la expresion>
> 
> $num1 = 390;
> $num2 = 1.07:
> 
> $resultado = ($num1 / $num2);
> 
> #el resultado 364.485981308411, claro que yo solo necesito dos decimales,
> y no se ni por donde pillarlo, se que se resuelve usando regex y match.

Supongo que lo �nico que deseas es formatear el resultado (no imagino 
que pudieras "capar" el n�mero antes de acabar de realizar con �l 
operaciones aritm�ticas y perder por ello precisi�n).

Pues si lo que quieres es formatear una salida, utiliza las funciones de 
formateo de salida (de perogrullo vaya).  Tal que as�:

$num1 = 390;
$num2 = 1.07;

$resultado = ($num1 / $num2);

# �Que quieres dos decimales al enviar a la salida el resultado? pues...
	printf "%.2", $resultado;
# ...tambi�n hubieras podido hacerlo directamente si esto es todo lo que 
quer�as hacer con el n�mero:
	printf "%.2", ($num1/$num2);
# �Lo quieres con un formateo un poco m�s particular?
	printf "El n�mero de la bestia es %.2\n", ($num1/$num2);

El funcionamiento de printf es calcado del que se le da en C.

Finalmente, si se trata de una salida repetitiva con los mismos tipos de 
formato, pues en la misma base de Perl (no nos olvidemos: Practical 
extracting and *reporting* language) tenemos los Formatos, para hacerlo 
(keyword FORMAT).

> 
> PD.prometo estudiar mas los regex.(son fascinantes)
> 

Sin duda lo son, pero quiz� no sea �ste el caso de usarlos ;^D
-- 
SALUD,
Jesus
***
jmnavarrol@able.es
***
Technical Details
Message-ID: <3D319619.6070605@able.es>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!213.56.195.71!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!skynet.be!skynet.be!seanews2.seabone.net!garse!news.iddeo.es!mithrandir.intranet!news
References: <agpdui$h9f$1@localhost.localhost>

Show Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII
X-Google-Thread: f86c8,b809275dbda7b1e8
X-Google-Attributes: gidf86c8,public
X-Google-ArrivalTime: 2002-07-14 08:39:28 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!small.news.tele.dk!213.56.195.71!fr.usenet-edu.net!usenet-edu.net!proxad.net!proxad.net!skynet.be!skynet.be!seanews2.seabone.net!garse!news.iddeo.es!mithrandir.intranet!news
From: "Jesús M. NAVARRO" <jmnavarrol@able.es>
Newsgroups: es.comp.os.linux.programacion
Subject: Re: regex, matchs, perl, controlar decimales
Date: Sun, 14 Jul 2002 17:17:45 +0200
Organization: Iddeo - Retevisi�n
Lines: 55
Message-ID: <3D319619.6070605@able.es>
References: <agpdui$h9f$1@localhost.localhost>
NNTP-Posting-Host: 212.97.185.73
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
User-Agent: Mozilla/5.0 (X11; U; Linux i586; en-US; rv:1.0.0) Gecko/20020615 Debian/1.0.0-3
X-Accept-Language: en